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    ... et rende la main à la première boîte...
 
ça est possible ???

 
J'ai trouvé ce lien mais ça me paraît compliqué quand même...    
 
http://docvb.free.fr/codedetail.php?idc=95
 
 

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

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...
 

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
 
 

 
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'
 

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

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

 
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...

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

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

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)

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

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,