Label clignotant

Bonjour,

je suis débutant en VBA excel, j'ai créé un label non visible sur mon USERFORM qui se déclenche en alerte lorsque je dépasse quelques conditions. je voulais par conséquent le rendre clignotant lorsqu'il devient visible . comme dois-je procéder SVP?

Merci pour votre réponse.

voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
For Each TheRow In Feuil9.ListObjects("Tab_Taux").ListRows 
 
    'On recherche la ligne qui correspond à critère Montant et Nbr de jour 
    If TextBox3 <> "" And TextBox7 <> "" And TextBox11 <> "" And ComboBox1 <> "" Then 
 
        If (CDbl(TextBox7.Text) >= TheRow.Range(1, 1).Value) And (CDbl(TextBox7.Text) <= TheRow.Range(1, 2).Value) And (CDbl(TextBox3.Text) >= TheRow.Range(1, 3).Value) And (CDbl(TextBox3.Text) <= TheRow.Range(1, 4).Value) Then 
            'On controle le taux 
            If CDbl(TextBox11.Text) > TheRow.Range(1, 5).Value And CheckBox1.Value = False Then 
                TextBox11.Value = "" 
                MsgBox " (1ère Consultation) Dépassement du Taux Maximal : " & TheRow.Range(1, 5).Value & " % " 
                CheckBox1.Visible = True 
                'On quitte la boucle 
                Exit For 
            End If 
        End If 
 
    End If 
Next

- je veux que lorsque le checkbox1 devient visible son label commence à clignoter.

Merci.