XL 2013 Probleme label clignotant

maval · 22 Mai 2016

Bonjour

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

Code:

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 · 22 Mai 2016

Re : Probleme label clignotant

Bonjour maval,

Et avec ce code?:

VB:

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 · 22 Mai 2016

Re : Probleme label clignotant

Bonjour Mapomme

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

XL 2013 Probleme label clignotant

maval

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Discussions similaires