VBA supprimer la dernière ligne

canti -  
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je veux séléctionner et supprimer la dernière ligne de mon fichier avec une macro, le problème c'est que a chaque fois le nombre de ligne change par exemple dans mon cas:

Rows("6199:6199").Select
Selection.ClearContents
Dans ce cas j'ai 6199 ligne mais il se peut que j'en ai plus ou moins, comment faire pour séléctionner la dernière ligne quelque soit le nombre?

Par avance merci
A voir également:

2 réponses

Réponse 1 / 2
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
bonjour

trouvé sur le forum
la dernière ligne utilisée de la colonne A
derli=Sheets(nomFeuille).Range("A" & Rows.Count).End(xlUp).Row
la dernière ligne utilisée de la feuille
derli = Sheets(nomFeuille).Cells.Find("*", , , , xlByRows, xlPrevious).Row
et pour la supprimer
Sheets(nomFeuille).Cells(derli,1).EntireRow.delete

bonne suite
0
Réponse 2 / 2
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Ou encore : 
Sub SupprimerDernièreLigne() 
  With ActiveSheet.UsedRange 
    ActiveSheet.Rows(.Row + .Rows.Count - 1).Delete 
  End With 
End Sub


Cordialement
Patrice
0

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Pat -

10 réponses