XL 2013 Probleme label clignotant

[maval]

Bonjour

J'ai sur Userform un label qui clignote avec se code jusqu'ici tous vas bien

Private Sub UserForm_Activate()

Dim a As String
a = Timer
Do
Do Until a + 0.7 <= Timer
DoEvents
Loop
If Label18.Visible = True Then Label18.Visible = False Else Label18.Visible = True
a = Timer
Loop

End Sub

Lorsque je quitte mon userform je suis obliger de me rendre sur mon projet VBA pour réinitialisé mon code?
Y a t-il un moyen pour éviter ceci

 

[mapomme]

Re : Probleme label clignotant

Bonjour maval,

Et avec ce code?:

Option Explicit
Dim clignote As Boolean

Private Sub UserForm_Activate()
Dim a
'Label Clignotant
  clignote = True
  Do While clignote
    a = Timer
    Do Until a + 0.7 <= Timer: DoEvents: Loop
    Label18.Visible = Not Label18.Visible
  Loop
End Sub

Private Sub UserForm_Terminate()
  clignote = False
End Sub

 

[maval]

Re : Probleme label clignotant

Bonjour Mapomme

Oui c'est nickel je te remercie et te souhaite un bon dimanche