suppression lignes

[Philippe]

Comment supprimer des lignes à partir d'une ligne aléatoire selon les informations qui sont enregistrées :

Rows("23:65536").Select
Selection.Delete Shift:=xlUp

La ligne 23 pourrait très bien être la ligne 30 ou 15, en fait on atteint la dernière ligne par :

Range("A1).Select
Selection.SpecialCells(xlCellTypeLastCell).Select
ActiveCell.Offset(rowOffset:=1).Activate
ActiveCell.EntireRow.Select

Mais à partir de là je ne sais pas comment faire pour sélectionner toutes les lignes à partir de celle sélectionnée par l'Offset.

Merci pour les réponses.

 

[wape]

Bonjour,

A priori, il suffit d'ajouter :

Rows(ActiveCell.Row & ":" & 65536).Select
Selection.Delete Shift:=xlUp


Slts

wape

 

[Philippe]

J'ai trouvé ceci, qui fonctionne

Range("A1").Select
Selection.SpecialCells(xlCellTypeLastCell).Select
ActiveCell.Offset(rowOffset:=1).Activate
Range(ActiveCell.EntireRow, ActiveCell.End(xlDown)).Select