Dim maDateLimite As Date maDateLimite = DateAdd("m", -32, Now)
Dim monRange As Range For Each monRange In ActiveSheet.Range("E:E") ' On sort de la boucle dès qu'on rencontre une cellule vide If IsEmpty(monRange) Then Exit For ' Sinon, on fait la comparaison If monRange.Value < maDateLimite Then ' ici ton code End If Next
for i = 3 to 10 ladate = range("D" & i).value ' ===>>> affiche la date next
différence = ladate - date
' avec range: Range("E1") ' avec cells : cells(5,1)
dim maPlage as date set maPlage = Range("E1:E20") For each cell in MaPlage LaDate = cell.value 'etc... Next
'Parcours la colonne D de la ligne 7à15 For i = 7 To 15 ladate = Range("E" & i).Value ' ===>>> affiche la date difference = ladate - Date Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Sub MAJ() Dim maDateLimite As Date maDateLimite = DateAdd("m", -32, Date) Dim monRange As Range For Each monRange In ActiveSheet.Range("E6:E100") ' On sort de la boucle dès qu'on rencontre une cellule vide If IsEmpty(monRange) Then Exit For ' Sinon, on fait la comparaison If monRange.Value < maDateLimite Then ' ici ton code ActiveCell.Interior.ColorIndex = 36 ' Couleur orangé Else ActiveCell.Interior.ColorIndex = 3 ' Couleur rouge End If Next End Sub --