[VBA]copier les valeurs d'un formulaire à la suite d'un tableau structuré

Question

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

cousinhub · Accepted Answer

Dans le code du bouton "Valider", tu mets ceci : Private Sub Valider_Click() Dim Ligne_Inser With TS_Spine Set Ligne_Inser = .ListRows.Add: I = Ligne_Inser.index .DataBodyRange(I, "B") = Me.vrflan .DataBodyRange(I, "M") = Me.vlanlan .DataBodyRange(I, "K") = Me.descriplan .DataBodyRange(I, "H") = Me.sublan24 .DataBodyRange(I, "E") = Me.commfinal3 End With End Sub Et dans le code d'initialisation de l'USF, tu rajoutes cette ligne (si ce n'est déjà fait) : Set TS_Spine = Range("Spines_L3").ListObject Bon courage...