F fred Guest 9 Novembre 2004 #1 bonjour a tous quel est le code pour supprimer la dernière ligne non vide d'une colonne? merci beaucoup fred
bonjour a tous quel est le code pour supprimer la dernière ligne non vide d'une colonne? merci beaucoup fred
J Jeannot Guest 9 Novembre 2004 #2 Bonjour, Dim NumLigne As Long NumLigne = ActiveCell.CurrentRegion.Rows.Count ActiveCell.Offset(NumLigne - 1, 0).Select Selection.EntireRow.Delete A + Jeannot Vote positif 0 Vote négatif
Bonjour, Dim NumLigne As Long NumLigne = ActiveCell.CurrentRegion.Rows.Count ActiveCell.Offset(NumLigne - 1, 0).Select Selection.EntireRow.Delete A + Jeannot
P Pascal76 Guest 9 Novembre 2004 #3 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 Vote positif 0 Vote négatif
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