Discussion :

[casefayere]

Bonjour à tou(te)s,

J'ai un USF avec progressbar à l'intérieur que j'ai réussi à élaborer avec maintes péripéties, quad les calculs demandés sont terminés, dans cet USF apparait le temps écoulé, je voudrais que l'USF se ferme automatiquement après un certain temps, admettons 3 secondes,

si quelqu'un peut m'aider....

Bonne journée

[drakkar_agfa]

Bonjour,

Tu peux utiliser Application.OnTime (pour lancer une macro à l'heure voulu, Now + 3 secondes dans ton cas)

Bonne chance!

[casefayere]

Bonjour Drakkar,

Je vais essayer ta solution en regardant mieux la fonction Application.OnTime que je ne connais pas bien

Merci du tuyau

Bonne journée

[laetitia]

bonjour casefayere drakkar_agfa le forum plusieurs methodes

ton code....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Application.OnTime Now + TimeValue("00:00:03"), "fermer"
End Sub
Sub fermer()
Unload Me
End Sub

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ton code
p = 3: s = Timer: Do While Timer < s + p: DoEvents: Loop
Unload Me

a adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Tempo()
MsgBox "Msg 1"
Sleep (1000) ' pause de 1 seconde
MsgBox "Msg 2"
Sleep (3000) ' pause de 3 seconde
MsgBox "Msg 3"
End Sub

[casefayere]

Bonjour Laetitia,

Je vais également essayer tes propositions
(toujours bon d'évoluer)

Bonne journée

PS : je n'oublierai pas de mettre "resolu" dès que j'aurai finalisé ma procédure