Option Explicit
'---------------------------------------------------------------------------------------
' Auteur : Didier FOURGEOT (myDearFriend!)
' www.mdf-xlpages.com
' Date : 18/06/2006
' Sujet : Cellules et Alertes clignotantes
'---------------------------------------------------------------------------------------
Dim Temps As Variant
Public Sub Clign()
'Programmation de l'évènement toutes les secondes
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Clign"
'Affiche l'alerte ou la fait disparaître (alternativement)
With Feuil1
.[B][COLOR="Green"][B3:D5][/COLOR][/B].Interior.ColorIndex = IIf([COLOR="Green"][B][B3:D5][/COLOR][/B].Interior.ColorIndex = 3, xlNone, 3)
.[C3].Font.ColorIndex = IIf([C3].Font.ColorIndex = 10, 1, 10)
End With
End Sub
Public Sub StopClign()
On Error Resume Next
'Stoppe la gestion de l'évènement OnTime
Application.OnTime Temps, "Clign", , False
On Error GoTo 0
'Cache l'alerte
With Feuil1
.[B][COLOR="Green"][B3:D5][/COLOR][/B].Interior.ColorIndex = xlNone
.[C3].Font.ColorIndex = 10
End With
End Sub