Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 text box vers tableau

CGU2022.

XLDnaute Junior
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....
 

Pièces jointes

  • chimeres.xlsm
    82.3 KB · Affichages: 9

ChTi160

XLDnaute Barbatruc
Bonsoir
Bonsoir Francois

je pense qu'en travaillant sur un tableau Structuré
ceux ci suffit pour définir la Ligne cible.
VB:
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
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…