VBA supprimer la dernière ligne
canti
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 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
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
2 réponses
-
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 -
Ou encore :
Sub SupprimerDernièreLigne() With ActiveSheet.UsedRange ActiveSheet.Rows(.Row + .Rows.Count - 1).Delete End With End Sub
Cordialement
Patrice
