XL 2019 insérer ou supprimer ligne dans un tableau

Phil69970

XLDnaute Barbatruc

• 23 Avril 2022

• #2

Bonjour @dad621 et bienvenue sur XLD

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

@Phil69970

 

Vote positif 0 Vote négatif

D

dad621

XLDnaute Nouveau

• 23 Avril 2022

• #3

merci.

 

Pièces jointes

• Classeur1.xlsm

  67.4 KB · Affichages: 5

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 23 Avril 2022

• #4

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

 

Vote positif 0 Vote négatif

D

dad621

XLDnaute Nouveau

• 23 Avril 2022

• #5

MERCI beaucoup pour la réponse

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 23 Avril 2022

• #6

@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

 

Vote positif 0 Vote négatif

D

dad621

XLDnaute Nouveau

• 23 Avril 2022

• #7

Merci pour ta réponse phil69970 ca fonctionne aussi .

 

Vote positif 0 Vote négatif