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