Bonjour,
N'etant pas adepte du VBA et d'excel, je viens vers vous, car je rencontre un probleme dans mon code.
Je voudrais parcourrir les celulles N2 à W69 afin de controler si les dates inscrite sont valide ou pas. Celles ci on une date de validité de 1 an, je m'explique. Imaginons qu' il y a une date "21/08/2021", celle ci ne sera pas valide car, plus 1 an est passé.
Donc
- 1ere condition si la la cellule est vide on rempli le fond en gris est on passe a la cellule suite
- 2eme condition si la cellule a une date qui a plus de 11 mois, on rempli le font en rouge
- 3eme condition si la cellule a ete modifié entre temps ou est deja bonne mettre la couleurs d'origine.
pour le moment j'ai fais ce code la:
Sub Test()
Dim Cel As Range
For Each Cel In Range("N2:W69")
If Cel <> "" Then
Cel.Interior.ColorIndex = 56
ElseIf CDate(DateAdd("m", 11, Cel)) >= CDate(DateAdd("m", -1, Date)) Then
'MsgBox CDate(DateAdd("m", 11, Cel))
'MsgBox CDate(DateAdd("m", -1, Date))
Cel.Interior.ColorIndex = 3
ElseIf CDate(DateAdd("m", 11, Cel)) < CDate(DateAdd("m", -1, Date)) Then
'couleur d'origine
End If
Next
End Sub