Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
'Lance le clignotement
If [E6] <> "" Or [E7] <> "" Then Call Clign
Application.EnableEvents = True
End Sub
Option Explicit
Public celA As Range, celB As Range, compteur As Long, deb As Date, t As Date
Public Sub Clign()
With Sheets(1)
Set celA = .Range("e6")
Set celB = .Range("e7")
End With
With celA.Font
For compteur = 1 To 10
.ColorIndex = IIf(compteur Mod 2 = 0, xlNone, 3)
celA.Interior.ColorIndex = IIf(compteur Mod 2 = 0, xlNone, 3)
deb = Timer
Do While Timer - deb < 0.5
DoEvents
If celA.Value > 0 Then celA.Font.ColorIndex = 0: celA.Interior.Color = xlNone: Exit Do
Loop
Next
End With
With celB.Font
For compteur = 1 To 10
.ColorIndex = IIf(compteur Mod 2 = 0, xlNone, 3)
celB.Interior.ColorIndex = IIf(compteur Mod 2 = 0, xlNone, 3)
deb = Timer
Do While Timer - deb < 0.5
DoEvents
If celB.Value > 0 Then celB.Font.ColorIndex = 0: celB.Interior.Color = xlNone: Exit Do
Loop
Next
End With
End Sub