Clignotement d'un texte

eliot raymond à dit:

... je ne trouve pas le code... un autre code qui ferai la mème chose...

Cliquez pour agrandir...

Public Arret_Timer1 As Boolean: Public Arret_Timer2 As Boolean

Sub ClignoteSélection()
If Arret_Timer1 Then Exit Sub
If UserForm1.Frame4.Label45.Caption = "" Then
UserForm1.Frame4.Label45.Caption = "Sélection cellule"
Else
UserForm1.Frame4.Label45.Caption = ""
End If
Application.OnTime Now + TimeValue("00:00:01"), "ClignoteSélection"
End Sub

Sub StopSélection()
Arret_Timer1 = True
End Sub

Sub ClignoteAutomatique()
If Arret_Timer2 Then Exit Sub
If UserForm1.Frame4.CmBValider.Caption = "" Then
UserForm1.Frame4.CmBValider.Caption = "AUTOMATIQUE"
Else
UserForm1.Frame4.CmBValider.Caption = ""
End If
Application.OnTime Now + TimeValue("00:00:01"), "ClignoteAutomatique"
End Sub

Sub StopAutomatique()
Arret_Timer2 = True
End Sub

Cliquez pour agrandir...