Suppression lignes selon conditions

Bonjour,

J'ai une macro qui effecteur des copier coller de certaines lignes selon un critère. Cependant, une fois par jour, je dois purger la base de données mais pour cela il me faut garder les 2 premières lignes (en-tête) et les 57 dernières.

En sachant que ce n'est jamais la même plage et que je voudrai éviter de faire des boucles de vérification car j'ai beaucoup de données et que cette macro doit continuer sur autre chose.

Comment puis-je faire???

Bonjour alvych, le forum,

Dommage que tu n’ai pas joint un fichier....

Un code du genre.....

Sub test()

 Dim dl As Long, x As Long

  With Sheets("Feuil1")  'nom de ta feuille
   dl = .Range("A" & Rows.Count).End(xlUp).Row  'dernière cellule remplie de la colonne A, à adapter
    x = dl - 57    ' x = dernière ligne -57
     If dl > 59 Then .Range("A" & x & ":A3").EntireRow.Delete
  End With

End Sub

devrait faire le job....à tester....

Cordialement,

xorsankukai a écrit :

Bonjour alvych, le forum,

Dommage que tu n’ai pas joint un fichier....

Un code du genre.....

Sub test()

 Dim dl As Long, x As Long

  With Sheets("Feuil1")  'nom de ta feuille
   dl = .Range("A" & Rows.Count).End(xlUp).Row  'dernière cellule remplie de la colonne A, à adapter
    x = dl - 57    ' x = dernière ligne -57
     If dl > 59 Then .Range("A" & x & ":A3").EntireRow.Delete
  End With

End Sub

devrait faire le job....à tester....

Cordialement,

Bonjour,

Merci ça fonctionne. J'ai un peu modifié le code en enlevant une étape.

Sub test()

 Dim dl As Long
   dl = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row-57  'dernière cellule remplie de la colonne A, à adapter
   .Range("A" & dl & ":A3").EntireRow.Delete
  End With

End Sub

J'ai un peu modifié le code en enlevant une étape.

Cordialement,