boucle

[Evelynetfrancois]

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

 

[EricS]

Bonsoir

pas essayé mais peut-être un truc comme çà

Private Sub UserForm_Activate()
dim affich as label
dim i as byte
dim of as single
i=12
while i<45
timedebut = Timer
DoEvents
of = 0.06
if i=12 then of=0.2
if i = 44 hen of =0.3
While Timer < timedebut + of
Wend
affich = "Label" & i
affich.Visible = False
Wend
Unload Me
End Sub

Tiens moi au courant

A+
Eric

 

[EricS]

re

il manquerait bien un incrément de i à insérer entre les 2 lignes suivantes

affich.Visible = False
Wend

devient

affich.Visible = False
i = i+1
Wend

Sorry

Eric

 

[Evelynetfrancois]

BONJOUR EricS
je te remerci pour ta macro
apres quelques modifs tout devrais rentrer dans l'ordre
merci pour tout
bonne journee
E et F