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()
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Clign"
With Sheets("Feuil1")
With .Range("E27:E28,H13,H15,I11,I27,H72")
.Interior.ColorIndex = IIf(.Interior.ColorIndex = 3, 0, 3)
End With
With .Range("D1,H2,D9,E11:E12,E14,E16,D25,F32")
.Interior.ColorIndex = IIf(.Interior.ColorIndex = 45, 0, 45)
End With
With .Range("D36,D43,D50")
.Interior.ColorIndex = IIf(.Interior.ColorIndex = 33, 0, 33)
End With
End With
End Sub
Public Sub StopClign()
On Error Resume Next
Application.OnTime Temps, "Clign", , False
With Sheets("Feuil1")
.Range("E27,E28,H13,H15,I11,I27,H72").Interior.ColorIndex = xlNone
.Range("D1,H2,D9,E11,E12,E14,E16,D25,F32").Interior.ColorIndex = xlNone
.Range("D36,D43,D50").Interior.ColorIndex = xlNone
End With
End Sub