XL 2013 text box vers tableau

[CGU2022.]

Bonjour à tout les utilisateur de Excel Download

je n'arrive pas a rapatrier les valeurs textbox vers le tableau.

la liste box a des colonne masquée 0 pt...
click dans la listbox envoi les valeurs (pas de soucis)..
j'ai essayé avec un label (chev-0 dans l'image et textbox 1 (valeur ligne 12 pour cet exemple).

En cliquant sur le bouton enregistrement, je pensai remettre les valeurs dans la feuille ("chevaux") tableau3..
ci dessous le code qui bloque....
Private Sub CommandButtonEnregistrement_Click()


Dim Numligne As Long
Numligne = TextBox1.ListIndex + 12 ' 12 a priori le démarrage du tableau j'ai essayé avec TextBox1 et Num_cheval(label)

Worksheets("Chevaux").Cells(Numligne, 2).Value = Me.Txt_Race.Value
Worksheets("Chevaux").Cells(Numligne, 3).Value = Me.Txt_Nom.Value
Worksheets("Chevaux").Cells(Numligne, 4).Value = Me.Text_Naissance.Value
Worksheets("Chevaux").Cells(Numligne, 5).Value = Me.Txt_parage.Value
Worksheets("Chevaux").Cells(Numligne, 6).Value = Me.Txt_prochparage.Value



End Sub

Une idée ?????
je souhaite ne pas créer un autre userform pour la modification....

 

[fanfan38]

Bonjour

Numligne = Me.ListBox1.ListIndex + 12

A+ François

 

[ChTi160]

Bonsoir
Bonsoir Francois

je pense qu'en travaillant sur un tableau Structuré
ceux ci suffit pour définir la Ligne cible.

Numligne = Me.ListBox1.ListIndex + 1

première ligne du tableau Structuré (DataBodyRange) = 1
il faudra donc modifié pour prendre en compte le travail (collage des données) sur le Tableau Struturé .

Bonne Soirée
Jean marie

 

[CGU2022.]

Merci pour vos réponses
Cdt. Christophe