Macro suppression de ligne en fin de tableau

Bonsoir,

Je me permet de solliciter votre aide concernant la mise au point d'une commande qui pour des utilisateurs avertis sera d'après moi aisée à élaborer.

Donc voila, ci-joint vous trouverez un fichier xlsm contenant un petit tableau.

J'ai crée dans ce fichier une macro permettant d'ajouter automatiquement une ligne en fin de tableau, que j'ai attribuée au bouton "ligne +". Jusque-là facile car étant novice sur excel j'utilise "enregistrer macro". ( si par la même on peut vérifier que cette macro est correcte )

Donc mon problème : je ne parviens pas à créer une macro qui permettrait de supprimer la dernière ligne du tableau. (sachant que le nombre de lignes le composant est variable).

Voila en espérant trouver de l'aide ici, je vous remercie d'avance.

Cordialement.

bonsoir,

Sub suppressiondernièreligne()

Rows(Range("B" & Rows.Count).End(xlUp).Row).Delete
End Sub

Bonjour,

Je viens de tester le code que vous m'avez donné, cela fonctionne bien. Néanmoins j'ai tenté de modifier la syntaxe afin d'effectuer une suppression simultanée de ligne sur des tableaux différents sur différentes feuilles, je n'y parviens pas. Je ne sais pas comment indiquer la "localisation" des tableaux en question.

Vous trouverez ci-joint un fichier exemple de la configuration des tableaux sur lesquels je souhaiterais agir.

Je vous remercie.

Nicolas

bonjour,

Sub suppressiondernièreligne()

Worksheets("A").Rows(Range("B" & Rows.Count).End(xlUp).Row).Delete
Worksheets("B").Rows(Range("C" & Rows.Count).End(xlUp).Row).Delete
Worksheets("C").Rows(Range("H" & Rows.Count).End(xlUp).Row).Delete
End Sub

Bonjour et merci pour votre réponse rapide.

Je viens de tester le code, lorsque je lance la macro (par exemple en page A), seule la dernière ligne du tableau de cette page s'efface, les dernières lignes des tableaux en B et C demeurent. Peut-être ai-je fait une erreur.

Merci à vous

Sub suppressiondernièreligne()

With Worksheets("A")
 .Rows(.Range("B" & .Rows.Count).End(xlUp).Row).Delete
End With
With Worksheets("B")
 .Rows(.Range("C" & .Rows.Count).End(xlUp).Row).Delete
End With
With Worksheets("C")
 .Rows(.Range("H" & .Rows.Count).End(xlUp).Row).Delete
End With
End Sub

Rebonsoir,

Ca fonctionne bien cette fois-ci ! Merci à vous.

Dernière question concernant le sujet : mon code d'ajout de ligne est-il correct ? ça fonctionne mais ça semble moins "carré" que le votre. merci à vous.

Sub addl()
'
' addl Macro
'

'
    Range("B6:G6").Select
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Range("B7:G7").Select
    Sheets("B").Select
    Range("C7:H7").Select
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Range("C8:H8").Select
    Sheets("C").Select
    Range("H2:M2").Select
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Range("H3:M3").Select
    Sheets("A").Select
    Range("B7").Select
End Sub

edit: en fait il ya un problème. Je me permet de vous MP