[VBA] Boîte qui se ferme toute seule au bout de 5 s.

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Boîte qui se ferme toute seule au bout de 5 s.

scaryfan

Apple Inside

:hello:

Et bien, c'est encore moi...

J'ai créé une boîte de dialogue où l'on saisit des montants dans des TextBox.
Parfois, lorsqu'une valeur est saisie (ou pas) dans une TextBox, une autre boîte peut s'afficher pour avertir l'opérateur (grâce à un sub_AfterUpDate).
J'aimerais que cette petite deuxième boîte s'affiche quelques secondes... et se ferme tout seule... comme une grande :lol: ... et rende la main à la première boîte...

ça est possible ???

Message cité 1 fois

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To

Publicité

scaryfan

Apple Inside

scaryfan a écrit :

J'ai trouvé ce lien mais ça me paraît compliqué quand même...

http://docvb.free.fr/codedetail.php?idc=95

:sleep:

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To

tholdan

http://msdn.microsoft.com/en-us/li [...] e.11).aspx ?

---------------
Ph'nglui mglw'nafh Cthulhu R'lyeh wgah'nagl fhtagn

scaryfan

Apple Inside

J'ai essayé mais ça ne répond pas à ma question...
Dans mon code, j'ai mis "BOITE.Show", ma boîte s'ouvre... et j'aimerais qu'elle se ferme d'elle-même au bout de quelques secondes...
Je ne trouve pas...

pault6

-- -- -- -- -- -- -- -- -- --

Salut, en VB tu peux faire quelque chose comme ça :

' ouverture fenêtre
BOITE.show

T = Timer()

' boucle qui dure 5 secondes
Do while T + 5 > Timer()

DoEvents

Loop

' fermeture fenêtre
BOITE.hide

Message cité 1 fois

---------------
[FEED-BACK]

scaryfan

Apple Inside

pault6 a écrit :

Merci...
Malheureusement, la boîte s'ouvre mais ne se referme pas... et c'est quand je la ferme qu'un laps de temps de 5 s. s'écoule et ensuite la macro tente de fermer la BOITE... et comme elle est déjà fermée, j'ai le message :
'Erreur d'exécution 402 - Vous devez d'abord fermer ou masquer la feuille modale de premier plan'

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To

scaryfan

Apple Inside

:hello:

Bon, j'ai trouver ce lien aussi... mais ça ne marche pas non plus...
http://support.microsoft.com/kb/462855/fr

:cry:

Message cité 1 fois

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To

scaryfan

Apple Inside

Bon, j'ai trouver ça et ça marche !!!

Code :

Sub MsgBoxTmp()
Dim SH As Object
Set SH = CreateObject("WScript.Shell" )
SH.Popup "Le message qui disparait aprés 3 secondes", 3, "3 secondes", 48
Set SH = Nothing
End Sub

Malheureusement, c'est une boîte Windows classique alors que je cherchais à appliquer la fermeture automatique à une boîte de dialogue personnalisée...
Bref, je vais me contenter de cette soluce...

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To

scaryfan

Apple Inside

scaryfan a écrit :

:hello:

Bon, j'ai trouver ce lien aussi... mais ça ne marche pas non plus...
http://support.microsoft.com/kb/462855/fr

:cry:

C'est bizarre, il avait l'air pas mal ce code... :??:

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To

86vomito33

bonjour,

est ce qu'avec ce code ca marche ?

Private Sub TextBox1_Enter()
Dim PauseTime, Start, Finish, TotalTime

PauseTime = 5 ' Set duration.
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop
UserForm1.Hide
End Sub

Message cité 1 fois
Message édité par 86vomito33 le 11-06-2008 à 16:08:01

Publicité

86vomito33

eureka

je pense avoir trouver

est ce que cela te va ?

http://cjoint.com/?glqH6s4hG5

EDIT:
apres avoir cliquer sur CLICK ICI rentre nimporte quoi ds le text box

vaut mieux mettre Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Message édité par 86vomito33 le 11-06-2008 à 16:41:14

scaryfan

Apple Inside

86vomito33 a écrit :

Merci...
J'ai adopté l'autre script...
Merci encore !!!

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To

godric57

Bonjour,

Je n'arrive pas à exploiter l'exemple de script que tu as adopté,
peux-tu me l'envoyer tel que tu l'as paramétré ?
Merci d'avance,

---------------
G57

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] Boîte qui se ferme toute seule au bout de 5 s.

Sujets relatifs
[VBA] Sélectionner une TextBox	[VBA] Probleme sur une macro
Recensement de fichiers en utilisant VBA	Boîte de dialogue - fermeture par la croix
[Access VBA] Créer une requête	[Excel VBA]_Importer un fichier texte
Besoin d'aide programme VBA cellules	Debutant VBA
Excel VBA - ajouter un menu	masquage erreur #valeur sous VBA Excel
Plus de sujets relatifs à : [VBA] Boîte qui se ferme toute seule au bout de 5 s.

Page générée en 0.036 secondes