[XL-2013] Arrêt d'un clignotement de label en VBA

Bonjour,

Une façon de faire:
a) dans le formulaire

Code:

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Sub CommandButton1_Click()
    Clignoter = True
    Clignote TABLEAU.Label1.Name
End Sub
 
Private Sub CommandButton2_Click()
    Clignoter = False
    TABLEAU.Label1.Visible = True
End Sub

b) dans un module

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Public Clignoter As Boolean
 
Sub Clignote(Label As String)
    Dim Fin As Single
    Do While Clignoter
        TABLEAU(Label).Visible = Not TABLEAU(Label).Visible
        Fin = Timer + 0.6
        Do While Timer < Fin
            DoEvents
        Loop
    Loop
End Sub

Bonne continuation.