Sujet Précédent Sujet Suivant

VBA Excel - Synchronisation TextBox/ListBox

Résolu/Fermé
DBeruf Messages postés 4 Date d'inscription lundi 14 novembre 2011 Statut Membre Dernière intervention 17 novembre 2011 - 14 nov. 2011 à 17:02
DBeruf Messages postés 4 Date d'inscription lundi 14 novembre 2011 Statut Membre Dernière intervention 17 novembre 2011 - 15 nov. 2011 à 16:14
Bonjour,

Je souhaite synchroniser la sélection de ma Listbox avec mes différents Textbox se trouvant dans mon Userform.

Exemple :

Lorsque je sélectionne la première ligne de ma listbox , je souhaite que mes divers Textbox indiquent les valeurs des différentes colonnes de la Listbox.

Ligne1 sélectionnée (listbox) : TextboxArticle = Chaussure A/ TextBoxNuméro = 12345/ TextBoxCouleur = Rouge/ TextBoxTaille = 45

Ligne2 Ligne1 sélectionnée (listbox) : TextboxArticle = Chussure B, TextBoxNuméro = 23456, TextBoxCouleur = Brun TextBoxTaille = 43

Ligne3...

...

Voici mon fichier:

https://www.cjoint.com/?AKoqzQSDFk4

J espère avoir été assez clair pour que quelqu'un puisse m aider...

Merci d'avance pour votre aide

DBeruf
A voir également:

2 réponses

Réponse 1 / 2
DBeruf Messages postés 4 Date d'inscription lundi 14 novembre 2011 Statut Membre Dernière intervention 17 novembre 2011
15 nov. 2011 à 16:14
Bonjour Michel,

Je te remercie, cela fonctionne à merveille! ;-)


Meilleures salutations

DBeruf
0
Réponse 2 / 2
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
14 nov. 2011 à 17:29
Bonjour

a insérer dans le code de l'USF 

Private Sub ListBox1_Click()
Dim cptr As Byte, Article As String, lig As Byte

For cptr = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(cptr) = True Then
          Article = ListBox1.List(ListBox1.ListIndex, 0)
          With Sheets("donnee")
               lig = .Columns("A").Find(Article, .Range("A1"), xlValues).Row
               TxtBArticle = Article
               TxtBNumero = .Cells(lig, "B")
               TxtBCouleur = .Cells(lig, "C")
               TxtBTaille = .Cells(lig, "D")
          End With
        End If
Next
-1