comparer date : action si

[noviceAG]

Bonjour le Forum,
Pourriez-vous m'indiquer comment tester chaque cellule de la colonne A qui contient des dates (01-01-01) : si la valeur de la cellule + 60 jours est égale ou inférieure à la date du jour, alors appel macro, sinon rien.
En vous remerciant.

 

[tototiti2008]

Re : comparer date : action si

Bonjour noviceAG,

Avec quelque chose du genre :
Dim i as long
i=2
Do until Activesheet.cells(i,1).value = ""
if isdate(Activesheet.cells(i,1).value) then
if Cdate(Activesheet.cells(i,1).value)+60 <= Date then
MaMacro
end if
end if
i=i+1
Loop

 

[christophe1245]

Re : comparer date : action si

Bonjour,

Voici un petit code à coller dans VBA:

Sub CheckDate()
For Each cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
If cell.Value + 60 > Date Then ActionIf
Next cell
End Sub

Sub ActionIf()
MsgBox "OK"
End Sub


Bien à toi,

 

[noviceAG]

Re : comparer date : action si

Bonjour tototiti2008, christophe1245, le Forum,
Merci a vous deux pour votre gentillesse.
Je vous souhaite une bonne soirée.