VBA Excel - Synchronisation TextBox/ListBox

Résolu
DBeruf Messages postés 4 Statut Membre -  
DBeruf Messages postés 4 Statut Membre -
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

2 réponses

  1.
    DBeruf Messages postés 4 Statut Membre
     
    Bonjour Michel,

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

    Meilleures salutations

    DBeruf
    0
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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