Macro, effacer ligne selon date

[Douane]

Hello,

Voilà mon soucis, J'ai dans ma colonne C des dates au format jj.mm.aaaa J'aimerais pouvoir supprimer toutes les lignes plus vieilles qu'il y a 1 mois. J'ai pas trouver mon bonheur en recherchant sur le forum. Une bonne âme pour m'éclairer ?

Merci !

 

[mutzik]

Re : Macro, effacer ligne selon date

bonjour
déjà c'est pas un format date valide (essaie en faisant cette cellule +15 et vois si cela te donne la date plus 15 jours)
sinon, si tu dois le faire qu'une seule fois, tu fais un tri de tes données et tu effaces les lignes, c'est ce qu'il y a de plus simple et de plus rapide
autrement, il nous faut un bout de ton fichier

 

[Pierrot93]

Re : Macro, effacer ligne selon date

Bonjour Douane, Bertrand

essaye peut être le code ci-dessous :

Option Explicit
Sub test()
Dim i As Long
Application.ScreenUpdating = False
For i = Range("C65536").End(xlUp).Row To 1 Step -1
    If Cells(i, 3).Value < DateSerial(Year(Date), Month(Date) - 1, Day(Date)) Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

bon après midi
@+