effacer la dernier ligne non vide

[didierschmit]

bonjour
c'est bete mais je bloque.
j'ai une feuille qui contient un nombre de ligne ou chaqe ligne à un nombre de colonne variable.

je voudrais detecter la derriere ligne non vide pour l'effacer.

je precise l'ensemble est dans une collection

merci

 

[excalibur]

Re : effacer la dernier ligne non vide

bonjour didierschmit le forum pas sur d avoir tous compris !!
Sub essai()
Sheets("Feuil1").Range("A65536").End(xlUp).Select
ActiveCell.EntireRow.Delete
End Sub
salutations

rebonjour tu peus simplifier aussi
Sheets("Feuil1").Range("A65536").End(xlUp).EntireRow.Delete

 

[didierschmit]

Re : effacer la dernier ligne non vide

bonjour
c'est parfait
je devais pas etre reveillé , jamais oublier le select.
mais ton code est light que le mien, je le prends

merci