[VBA]Copier les valeurs d'un userform dans un tableau structuré

Bonjour à tous, je sollicite un peu (beaucoup) d'aide pour la réalisation de mon code VBA.
J'expose ici dans un premier temps de façon textuelle mon problème. Je dispose d'un formulaire à remplir (merci @Cousinhub pour l'aide).

Voici les noms des objets de mon formulaire
vrflan, vlanlan, descriplan, sublan24 et commfinal3

Je souhaite lorsque je clique sur le bouton createbt, que les valeurs de ses champs soient copiés dans mon tableau structuré "Spines_L3", que j'ai déclaré comme suit
TS_spine As ListObject
Set TS_spine = Range("Spines_L3").ListObject

Valeurs à copier à la suite de la dernière ligne du tableau structuré où la cellule B est libre
en gros si Cellule B est vide dans TS_spine alors je copie:

la valeur du combobox vrflan doit aller colonne B de mon TS_spine

la valeur de vlanlan doit aller colonne M de mon TS_spine

la valeur de descriplan doit aller colonne K de mon TS_spine

la valeur de sublan24 doit aller colonne H de mon TS_spine

la valeur de commfinal3 doit aller colonne E de mon TS_spine

En vous remerciant par avance

Bruno

Hello,

Il suffit d'écrire après la dernière ligne du TS
Exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim wb As Excel.Workbook Set wb = ThisWorkbook   Dim ws As Excel.Worksheet Set ws = wb.Worksheets("Feuil1")   Dim TS As Excel.Range Set TS = ws.Range("Tableau1")   Dim RowCount As Long RowCount = TS.Rows.Count TS.Cells(RowCount + 1, 1) = "fgh"

---

Hello merci pour ton retour, j'ai un doute quant à la bonne compréhension que tu t'es faite de ma demande. N'étant pas un expert VBA (ni même un bon débutant) pourrais tu me détailler ce code?

Je reposte le code agrémenté de commentaires:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim wb As Excel.Workbook Set wb = ThisWorkbook '// Reference sur le classeur contenant le code   Dim ws As Excel.Worksheet Set ws = wb.Worksheets("Feuil1") '// Référence sur la feuille nommée Feuil1 du classeur   Dim TS As Excel.Range Set TS = ws.Range("Tableau1") '// Référence sur la plage nommée Tableau1 de la feuille '// Note: Les tableaux structurés sont aussi des plages nommées.   Dim RowCount As Long RowCount = TS.Rows.Count '// Recupération du N° de la dernière ligne du tableau structuré   TS.Cells(RowCount + 1, 1) = "fgh" '// Ecrit une valeur quelconque après la dernière ligne du tableau structuré '// Ce qui ajoute automatiquement une ligne à ce dernier

---

Salut,
Ne pas hésiter à faire des recherches, ce sujet à déjà été abordé maintes fois.
Voici une fonction de Pierre Fauconnier à coller dans ton module boite à outils.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

' // TS_AddRow Sur une idée de Pierre Fauconnier le : 23/02/2022 ' // Ajoute une ligne dans un tableau structuré et la remplie avec les valeurs passées en Array Function TS_AddRow(TS As Range, Values, Optional Position As Long) Dim lstR As ListRow Dim lstO As ListObject Dim Counter As Long   Set lstO = TS.ListObject If Position = 0 Or Position > lstO.ListRows.Count Then Position = lstO.ListRows.Count + 1 Set lstR = lstO.ListRows.Add(Position) For Counter = LBound(Values) To UBound(Values) Step 2 lstR.Range(lstO.ListColumns(Values(Counter)).index).Value = Values(Counter + 1) Next   If Not lstR Is Nothing Then Set lstR = Nothing If Not lstO Is Nothing Then Set lstO = Nothing   End Function

---

Et pour l'appel :

Code:

---

1 2	TS_AddRow Range("TS_spine"), VBA.Array("Nom colonne B", cmbvrflan.Value, "Nom colonne M", txtvlanlan.Value, "Nom de colonne K", txtdescripplan.Value & _ "Nom de colonne H", txtsublan24.Value, "Nom de colonne E", txtcommfinal3.Value)

---

Donc tu renseignes le nom du tableau, et ensuite un Array qui contient le nom de la colonne ou tu dois écrire les données suivie de la valeur soit d'une zone de texte soit d'une liste déroulante etc.
Rien ne t'empêche de formater exemple : VBA.Array("Nom de colonne", Format(cmbvrflan.Value, "0000"), et pour finir la position de la ligne ajoutée, (en fin de tableau par défaut)

---

Et pour finir des liens incontournables :
Fonctions en VBA pour gérer les Tableaux Structurés d’Excel
VBA - Modélisation des échanges entre un userform et une table de données (tableau structuré)
VBA - Ajouter une ligne dans un tableau structuré et y placer des valeurs

Merci pour votre aide.