Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 insérer ou supprimer ligne dans un tableau

  • Initiateur de la discussion Initiateur de la discussion dad621
  • Date de début Date de début

dad621

XLDnaute Nouveau
Supporter XLD
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.
 

Dranreb

XLDnaute Barbatruc
Bonsoir.
J'écrirais les procédures comme ça :
VB:
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
 

Phil69970

XLDnaute Barbatruc
@dad621

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

Remplace tes 2 macros par celle ci

VB:
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
 

Discussions similaires

Réponses
10
Affichages
411
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…