Oui mais j'aurais plusieurs feuilles et elle devra clignoter à deux endroits sur chaque feuille
QUid dans ce cas ?
Dim vNow As Variant
Public Sub Eclairage()
vNow = Now + TimeValue("00:00:02")
If Range("c3") <> "" Then Range("c3").Font.ColorIndex = IIf(Range("c3").Font.ColorIndex = 1, 24, 1)
Application.OnTime vNow, "Eclairage"
End Sub
Et si possible je souhaiterais qu'il clignote en rouge
If Range("c3") <> "" Then Range("c3").Font.ColorIndex = IIf(Range("c3").Font.ColorIndex = 1, 3, 1)
'En rouge
Recopie le code avec les bonnes adresses de celluleComment faire pour le mettre sur plusieurs cellules dans plusieurs feuilles distinctes ?
Public Sub Eclairage()
Dim vNow As Variant
vNow = Now + TimeValue("00:00:02")
If Range("c3") <> "" Then Range("c3").Font.ColorIndex = IIf(Range("c3").Font.ColorIndex = 1, 3, 1) 'En rouge
Application.OnTime vNow, "Eclairage"
End Sub
Oui mais j'aurais plusieurs feuilles et elle devra clignoter à deux endroits sur chaque feuille
QUid dans ce cas ?