supression de lignes sous condition de date

[djulll]

Bonjour,

je cherche a programmer une macro me permettant de supprimer des lignes si la date contenu dans la colonne E est antérieur à la date du jour.

Merci pour votre aide

 

[Pierrot93]

Re : supression de lignes sous condition de date

Bonjour,

essaye peut être ceci :

Option Explicit
Sub test()
Dim i As Long
For i = Range("E65536").End(xlUp).Row To 1 Step -1
    If Cells(i, 5) < Date Then Rows(i).Delete
Next i
End Sub

bonne journée
@+

 

[djulll]

Re : supression de lignes sous condition de date

Ça marche pas 🙁

Ça me met sub ofmr fonction not defined !

 

[Pierrot93]

Re : supression de lignes sous condition de date

Re,

bah.. fonctionne très bien chez moi... A voir où tu as placé le code ....