XL 2019 insérer ou supprimer ligne dans un tableau

[dad621]

bonjour le Forum,
En VBA , à l'aide d'un bouton pour chaque fonction je voudrai insérer ou supprimer une ligne juste au dessus de celle des totaux d'un tableau , j'essai avec l'enregistreur de macro , cela fonctionne quelque fois mais à un moment la macro bug.

merci pour votre aide.

 

[Phil69970]

Bonjour @dad621 et bienvenue sur XLD

J'ai cherché mais j'ai pas vu ton fichier 😉

@Phil69970

 

[dad621]

merci.

 

[Dranreb]

Bonsoir.
J'écrirais les procédures comme ça :

Sub Macro11()
   With ActiveSheet.ListObjects(1)
       .ListRows.Add AlwaysInsert:=True
       End With
   End Sub
Sub Macro12()
   With ActiveSheet.ListObjects(1)
       .ListRows(.ListRows.Count).Delete
       End With
   End Sub

 

[dad621]

MERCI beaucoup pour la réponse

 

[Phil69970]

@dad621

Edit bonjour @Dranreb pb de rafraichissement j'ai pas vu ta réponse

Remplace tes 2 macros par celle ci

Sub Macro11()
Sheets("DEVIS (3)").ListObjects(1).ListRows.Add
End Sub

Sub Macro12()
Sheets("DEVIS (3)").Range("tableau10").ListObject.ListRows(Range("tableau10").Rows.Count).Delete
End Sub

*Merci de ton retour

@Phil69970

 

[dad621]

Merci pour ta réponse phil69970 ca fonctionne aussi .