J
Julien
Guest
Bonjour,
Comment fait-on pour comparer deux dates D1 et D2 correspondant a deux cellules et ensuite attribuer une couleur verte ou rouge au fond de la cellule suivant qu'il y a ou non du retard.
J'ai fait ca et ca marche pas:
Sub TestDate()
Range("A14").Interior.ColorIndex = 0
If B14 = 0 Then
If A14 > AUJOURDHUI Then Range("B14").Interior.ColorIndex = 0
If A14 <= AUJOURDHUI Then Range("B14").Interior.ColorIndex = 3
Else
If A14 < B14 Then Range("B14").Interior.ColorIndex = 45
If A14 >= B14 Then Range("B14").Interior.ColorIndex = 4
End If
End Sub
Comment fait-on pour comparer deux dates D1 et D2 correspondant a deux cellules et ensuite attribuer une couleur verte ou rouge au fond de la cellule suivant qu'il y a ou non du retard.
J'ai fait ca et ca marche pas:
Sub TestDate()
Range("A14").Interior.ColorIndex = 0
If B14 = 0 Then
If A14 > AUJOURDHUI Then Range("B14").Interior.ColorIndex = 0
If A14 <= AUJOURDHUI Then Range("B14").Interior.ColorIndex = 3
Else
If A14 < B14 Then Range("B14").Interior.ColorIndex = 45
If A14 >= B14 Then Range("B14").Interior.ColorIndex = 4
End If
End Sub