Supprimer lignes si date supérieure

[kristof]

Bonjour le Forum,

Je souhaite appliquer une macro qui supprime les lignes si dans la colonne L la date est inférieure à JJ/MM/AA. Mais comme cette date peut changer il faudrait qu'une boite de message s'ouvre afin de demander cette fameuse date limite.

Merci pour votre aide.

Kristof

 

[PascalXLD]

Bonjour

essaies du genre

Sub SupprDate()
Dim madate As Date
Dim x As Integer
madate = InputBox('Quelle date ?')
For x = Range('L65536').End(xlUp).Row To 2 Step -1
If Range('L' & x) < madate Then Rows(x).Delete
Next

End Sub

 

[Kristof]

C'est exactement ce que je voulais.

Merci pour tout