Tester les cellules en fonction de la date

[pad01]

Bonsoir le Forum,
J'ai un classeur où je dois tester les dates inscrites. Si elles sont inférieures à celle du jour actuelle, le fond de la cellule devient rouge.
Je voudrai faire la même opération mais avoir la cellule en rouge 30 jours avant.
Je joins un fichier exemple
Merci de l'aide

 

[R@chid]

Re : Tester les cellules en fonction de la date

Bonsoir,
Essai avec MFC
Si j'ai bien compris, si c'est pas ca alors il faut mettre autres dates et les colorer manuellement.
voir PJ
Bonne Soiree

 

[pad01]

Re : Tester les cellules en fonction de la date

Bonsoir le Forum, Bonsoir Rachid_0661
Merci pour la solution mais je désirerai avoir cette solution mais en vba. Par contre c'est la date du jour + 30 jours, je fais une erreur dans l'énoncé de mon problème.
Je joins un nouveau fichier exemple
Merci Rachid_0661

 

[R@chid]

Re : Tester les cellules en fonction de la date

Re,

je désirerai avoir cette solution mais en vba

Les experts en VBA vont surement passer par la,
Bonne chance

 

[pad01]

Re : Tester les cellules en fonction de la date

Merci Rachid de ton aide

 

[Pierrot93]

Re : Tester les cellules en fonction de la date

Bonjour Pad, Rachid🙂

essaye peut être ceci :

Private Sub Workbook_Open()
Dim cell As Range
For Each cell In Range("A2:A5")
    If cell.Value < DateAdd("y", 30, Date) Then cell.Interior.ColorIndex = 3
Next cell
End Sub

bonne journée
@+

 

[pad01]

Re : Tester les cellules en fonction de la date

Bonjour le Forum, Rachid et Pierrot93
Merci Pierrot. C'est la solution que j'attendais.
C'est super
Bonne journée à tous
@ +