VBA supprimer la dernière ligne

Question

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
Configuration: Windows XP / Internet Explorer 6.0

ccm81 · Answer

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

Patrice33740 · Answer

Ou encore : 
Sub SupprimerDernièreLigne() 
  With ActiveSheet.UsedRange 
    ActiveSheet.Rows(.Row + .Rows.Count - 1).Delete 
  End With 
End Sub

Cordialement 
Patrice

VBA supprimer la dernière ligne

2 réponses

Votre réponse

Discussions similaires