IF then

Bonjour,

je vous demande un petit coup de pouce pour une macro ,j'ai en colonne AB des dates, j'aimerai que si la date et égale ou supérieur a aujourd'hui, j'ai le terme "expiré ", soit inscrit en colonne DQ

Il me semble que c'est IF THEN mais je n'ai pas compris le principe pour pouvoir faire de ligne en ligne

Alors pour parcourir ligne à ligne, il faut faire une boucle :

Sub expirationdate()

For i = 1 To Range("AB1048576").End(xlUp).Row
If Cells(i, 28) <= Date Then Cells(i, 121) = "Expiré"
Next

End Sub

Sinon tu peux simplement utiliser une formule à mettre en DQ1 et à étirer vers le bas :

=SI(AB1<=AUJOURDHUI();"Expiré";"")

Merci

Pourrais-tu m'expliquer un peu plus en détail cette macro stp

For i = 1 To Range("AB1048576").End(xlUp).Row

Cette ligne indique qu'il faut boucler de la ligne 1 jusqu'à la derniere ligne utilisée de la colonne AB.

If Cells(i, 28) <= Date Then Cells(i, 121) = "Expiré"

Cette ligne vérifie si la condition est vérifiée ou pas, et si c'est le cas ça marque "Expiré" dans la colonne DQ de la même ligne.

Merci pour les info