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:

VBA Excel - Synchronisation TextBox/ListBox
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide
Mise en forme conditionnelle excel - Guide

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

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 303
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

Discussions similaires

ouverture d'un fichier excel à partir d'un code VBA

Discussions similaires

Newsletters