Suppression lignes

Bonjour,

J'ai une fichier qui est extrait d'une autre fichier excel et je veux supprimer les lignes dont la date qui se trouve en colonne "G" est antérieur à la date du jour (le fichier est plus ou moins long).

à l'avance merci

7test.xlsm (83.96 Ko)

Bonjour danval, le forum,

Un essai....

Sub efface()

Dim i  As Integer, d As Date
 dl = Range("A" & Rows.Count).End(xlUp).Row
  d = Format(Now, "dd/mm/yyyy")

  Application.ScreenUpdating = False
  For i = dl To 1 Step -1
   If Range("G" & i) < d Then Rows(i).Delete
  Next i

End Sub

Cordialement,

Bonjour,

superbe un grand merci

Rechercher des sujets similaires à "suppression lignes"