supprimer la derniere ligne d'une colonne

[fred]

bonjour a tous

quel est le code pour supprimer la dernière ligne non vide d'une colonne?

merci beaucoup

fred

 

[Jeannot]

Bonjour,

Dim NumLigne As Long

NumLigne = ActiveCell.CurrentRegion.Rows.Count
ActiveCell.Offset(NumLigne - 1, 0).Select
Selection.EntireRow.Delete

A +

Jeannot

 

[Pascal76]

Bonjour

à adapter en fonction de ta colonne

A lancer lorsque la bonne feuille est selectionnée:

Sub SupprimerDerLigne()
Rows(Range("A65536").End(xlUp).Row).Delete
End Sub


Tu peux la lancer de n'importe quelle feuille :

Sub SupprimerDerLigne()
Sheets("Feuille1").Rows(Sheets("Feuille1").Range("A65536").End(xlUp).Row).Delete
End Sub

Bon courage

Pascal

 

[fred]

merci a vous