Bonjour à tous,
J'aimerai modifier ce programme: Au lieu de comparer une cellule a un nombre pour savoir s'il est inférieur ou supérieur il faudrait que je compare la cellule a une autre cellule qui n'est pas dans la même feuille. la case B8 de la feuille 1 superieur a la case D5 de la feuille 2 par exemple.
Public Sub CellulesVidesClignotent()
Dim d, c As Range
For Each c In Range("B8").Cells 'Zone du clignotement
If c.Interior.ColorIndex = xlNone Then
If c.Value <= 200 Then
c.Interior.ColorIndex = 8
Else
c.Interior.ColorIndex = 0
End If
Else
c.Interior.ColorIndex = 0
End If
Next c
For Each d In Range("B20").Cells 'Zone du clignotement
If d.Interior.ColorIndex = xlNone Then
If d.Value >= 80 Then
d.Interior.ColorIndex = 4
Else
d.Interior.ColorIndex = 0
End If
Else
d.Interior.ColorIndex = 0
End If
Next d
BlinkTime = Now() + TimeValue("00:00:01") 'le temps du clignotement
Application.OnTime BlinkTime, "CellulesVidesClignotent"
End Sub
Merci
-----