E
Evelynetfrancois
Guest
bonsoir a toutes et tous
pour une tite animation j'utilise ce code qui fonctionne tres bien
cependant l'ecriture n'est certainement pas tres academique
je sens bien une boucle mais ............ je sais pas !
pourriez vous me montrer !!!!
merci d'avance
E et F
Private Sub UserForm_Activate()
timedebut = Timer
DoEvents
While Timer < timedebut + 0.2
Wend
Label12.Visible = False
timedebut = Timer
DoEvents
While Timer < timedebut + 0.06
Wend
Label13.Visible = False
timedebut = Timer
DoEvents
While Timer < timedebut + 0.06
Wend
Label14.Visible = False
timedebut = Timer
DoEvents
While Timer < timedebut + 0.06
Wend............................................................................etc
......................................................................jusque ...
Label44.Visible = False
timedebut = Timer
DoEvents
While Timer < timedebut + 0.06
Wend
Label45.Visible = False
timedebut = Timer
DoEvents
While Timer < timedebut + 0.3
Wend
Unload Me
End Sub
pour une tite animation j'utilise ce code qui fonctionne tres bien
cependant l'ecriture n'est certainement pas tres academique
je sens bien une boucle mais ............ je sais pas !
pourriez vous me montrer !!!!
merci d'avance
E et F
Private Sub UserForm_Activate()
timedebut = Timer
DoEvents
While Timer < timedebut + 0.2
Wend
Label12.Visible = False
timedebut = Timer
DoEvents
While Timer < timedebut + 0.06
Wend
Label13.Visible = False
timedebut = Timer
DoEvents
While Timer < timedebut + 0.06
Wend
Label14.Visible = False
timedebut = Timer
DoEvents
While Timer < timedebut + 0.06
Wend............................................................................etc
......................................................................jusque ...
Label44.Visible = False
timedebut = Timer
DoEvents
While Timer < timedebut + 0.06
Wend
Label45.Visible = False
timedebut = Timer
DoEvents
While Timer < timedebut + 0.3
Wend
Unload Me
End Sub