Discussion :

[didier19672]

bonjour à tous,

je voudrais savoir comment faire en sorte que les cellules soit colorée en fonction de la date qui y est indiquée, je m'explique: si la date du jour est superieur de 3 jours il faut la coloré (sa je sais faire) je voudrais connaittre la formule.
bien sur le format date ne peut pas etre changé
je joint le fichier

merci d'avance

didier19672

[huître]

salut

quelle est la date de référence?
est ce la date d'aujourd'hui ???
est ce la date indiqué sur le fichier ????

si la date du jour est superieur de 3 jours

enfin si la date du jour correspond à la date d'aujourd'hui alors voilà ce code

dis moi si ça te va ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub color()
Dim today As Date
 
derlig = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To derlig
today = Cells(i, 1).Value
If Date + 1 - today > 3 Then
Cells(i, 1).Interior.ColorIndex = 2
End If
Next
End Sub

[jfontaine]

Bonjour,

Essai cette formule dans la mise en forme conditionnelle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NB.JOURS.OUVRES(B2;AUJOURDHUI())>3

[didier19672]

merci à vous 2 j'essaie cela lundi

didier19672