Comparer dates et effectuer procédure
JONAX
-
Zoul67 Messages postés 2001 Statut Membre -
Zoul67 Messages postés 2001 Statut Membre -
Bonjour,
Ne connaissant pas grand chose à VBA, je m'en remets à vous pour effectuer une action sur les dates :
je voudrai comparer une colonne de dates à la date d'aujourd'hui, et renvoyer un mot dans la colonne suivante si la date de la colonne en question - 15 jours est inférieure ou égale à celle d'aujourd'hui.
J'ai essayé de faire un programme mais ça ne marche pas. Voici ce que j'avais écrit :
Sub procédurerappel()
j = 1
For j = 1 To j = xldown
Dim d As Date
d = Cells(j, 5).Value
If DateAdd("d", -15, d) <= Now() Then
Cells(j, 6).Value = "RAPPEL"
End If
Next j
End Sub
Merci pour votre aide !
Ne connaissant pas grand chose à VBA, je m'en remets à vous pour effectuer une action sur les dates :
je voudrai comparer une colonne de dates à la date d'aujourd'hui, et renvoyer un mot dans la colonne suivante si la date de la colonne en question - 15 jours est inférieure ou égale à celle d'aujourd'hui.
J'ai essayé de faire un programme mais ça ne marche pas. Voici ce que j'avais écrit :
Sub procédurerappel()
j = 1
For j = 1 To j = xldown
Dim d As Date
d = Cells(j, 5).Value
If DateAdd("d", -15, d) <= Now() Then
Cells(j, 6).Value = "RAPPEL"
End If
Next j
End Sub
Merci pour votre aide !
2 réponses
-
Bonjour,
Normalement pas besoin de VBA, une Mise en Forme Conditionnelle suffit -
Bonjour,
Un problème de syntaxe. On écrit normalement
For j = To n
(https://forums.commentcamarche.net/forum/affich-37622001-vba-detection-de-cellule-vide-ligne-colonnne peut te servir à déterminer n)
Mais tu pourrais faire ceci par formule plutôt qu'en VBA (cf. https://forums.commentcamarche.net/forum/affich-31362319-probleme-ecriture-formule-excel-avec-des-dates#p31363054)
