Comparer deux dates

[Julien]

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

 

[Pascal76]

Salut

Remplace AUJOURDHUI par Date

Pascal

 

[Julien]

Ok alors si je veux comparer une date avec aujourdhui et mettre en vert le fond si c'est plus tard ou rouge si c'est plus tot?

 

[Aurore]

Salut,

Le mot Date est reconnu par excel comme la date d'aujourd'hui

Donc dans ton texte t'as qu'a faire le changement indiqué par pascal

Aurore

 

[Pascal76]

Re

Comme le dit Aurore en VBA on utilise Date pour dire AUJOURDHUI

@ +

Pascal

 

[Julien]

Ok mais ca marche pas et ca me prend le chou

 

[Pascal76]

Bizarre j'ai fais un test chez moi et pas de problème

Envoies un morceau du fichier si tu veux pour voir

Pascal

 

[Julien]

Envoie moi plutot ce que t'as teste stp??? Je comparerai avec ce que j'ai (mal) fait...
Merci

 

[Pascal76]

Ok

Ci-joint

Pascal

 

[Julien]

Ok c'est cool merci... Ca marche, j'avais inscrit B14 pour la valeur de la cellule au lieu de range("B14"). Pfff...