XL 2016 inserer ligne dans tableau

Dranreb

XLDnaute Barbatruc

• 1 Mai 2020

• #2

Bonjour.
Peut être comme ça ?

VB:

Private Sub CommandButton4_Click()
   Dim TVL(1 To 1, 1 To 6), C As Long, LOt As ListObject
   For C = 1 To 6: TVL(1, C) = Me("TextBox" & C).Value: Next C
   Set LOt = Feuil1.ListObjects(Feuil1.ListObjects.Count)
   LOt.ListRows.Add.Range.Value = TVL
   End Sub

Ah, non, j'avais mal compris que vous n'arriviez pas à insérer sur le dernier tableau.
Dans ce cas il faut peut être initialiser Set LOt = Feuil1.ListObjects(N) avec N le numéro d'ordre du tableau dans la feuille où vous voulez insérer votre ligne. Ou son nom d'ailleurs.

Il serait peut être prudent de mettre LOt.ListRows.Add(AlwaysInsert:=True).Range.Value = TVL pour ne pas risquer que l'ajout soit empêché par un tableau situé plus bas

 

Dernière édition: 1 Mai 2020

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Mai 2020

• #3

Bonjour Tpacpc, Dranreb,
Pas tout compris à votre fichier.
Je me suis borné à remplir les tableaux avec les valeurs des textbox en insérant une ligne.
J'en ai profité pour optimiser les multiples écritures.

 

Pièces jointes

• Tpacpc.xlsm

  41.2 KB · Affichages: 10

Vote positif 0 Vote négatif

T

Tpacpc

XLDnaute Nouveau

• 1 Mai 2020

• #4

Merci Dranreb c'est exactement ce que je cherchais
je n'ai plus qu'a l'adapter aux différents tableaux liés aux optionbutton de mon classeur origine
encore merci et à bientôt

 

Vote positif 0 Vote négatif

T

Tpacpc

XLDnaute Nouveau

• 2 Mai 2020

• #5

sylvanu à dit:

Bonjour Tpacpc, Dranreb,
Pas tout compris à votre fichier.
Je me suis borné à remplir les tableaux avec les valeurs des textbox en insérant une ligne.
J'en ai profité pour optimiser les multiples écritures.

Cliquez pour agrandir...

Bonjour Dranreb
Je te sollicite encore une fois
L'ordre d'insertion des lignes ne correspond pas à l'ordre des tableaux
Exemple: option 1 ajoute une ligne au tableau4 au lieu du tableau3
J'aurais voulu aussi ajouter un tableau à la suite des autres avec l'option nouveau test
Jai essayé plusieurs solutions mais qui ne sont pas fiables

Je te remercie d'avance

 

Pièces jointes

• Copie de Tpacpc.xlsm

  41.6 KB · Affichages: 3

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 2 Mai 2020

• #6

Bonjour Tpacpc, Dranreb,
Vous citez Sylvanu et dites bonjour à Dranreb !
A qui s'adresse la question ? 😉

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Mai 2020

• #7

Bonjour.
D'autant que moi je ne vois dans le classeur joint nulle trace de la technique que je conseillais au poste #2, qui consiste à passer par un tableau dynamique pour renseigner les valeurs de la plage couverte par la ligne ajoutée dans le tableau.

 

Vote positif 0 Vote négatif