Tester les cellules en fonction de la date

pad01 · 9 Mai 2012

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 · 10 Mai 2012

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 · 10 Mai 2012

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 · 10 Mai 2012

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 · 10 Mai 2012

Re : Tester les cellules en fonction de la date

Merci Rachid de ton aide

Pierrot93 · 10 Mai 2012

Re : Tester les cellules en fonction de la date

Bonjour Pad, Rachid

essaye peut être ceci :

Code:

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 · 10 Mai 2012

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
@ +

Tester les cellules en fonction de la date

pad01

XLDnaute Occasionnel

Pièces jointes

R@chid

XLDnaute Barbatruc

Pièces jointes

pad01

XLDnaute Occasionnel

Pièces jointes

R@chid

XLDnaute Barbatruc

pad01

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

pad01

XLDnaute Occasionnel

Discussions similaires