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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
118 internautes nous ont dit merci ce mois-ci
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
Public 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 --
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.