alimenter deux listbox | ||
---|---|---|
Inscription: 25/08/2017
De madagascar
Messages:
1
Système d'exploitation: PC Version Excel utilisée: 2003,2007 |
Posté le : 11-10-2017 15h40
Bonjour,
Je vous demande votre aide.
J'ai deux listbox, listbox1 qui recap tout les articles feuille BD (colonne ABCDHI) et lisbox2 pour voir les mouvements (colonne ABCD IJK). Quand on click sur un article de listbox1, tout ses mouvements affiche sur la listbox2.
Exemple si je click sur l'article nommé eau vive pm, tout les mouvements de l'eau vive affiche sur listbox2 si je click sur l'article nommé coca cola, tout les mouvements de coca cola affiche sur listbox2
ci-joint le fichier
|
|
|
Re: alimenter deux listbox | ||
---|---|---|
Inscription: 18/05/2006
De Saône-et-Loire (71)
Messages:
1539
Système d'exploitation: PC Version Excel utilisée: 97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365 |
Posté le : 13-10-2017 20h29
Bonsoir odilolo, bienvenue sur XLpages.com
CODE VBA A AJOUTER AU MODULE DE CODE DE TON USERFORM1 : Private Sub ListBox1_Change() 'myDearFriend! - www.mdf-xlpages.com 10/2017 Dim vTab As Variant Dim CodeArticle As String Dim Lmax As Long, L As Long Dim C As Byte 'Code article sélectionné ? With ListBox1 If .ListIndex < 0 Then Exit Sub CodeArticle = .List(.ListIndex, 1) End With 'Mettre à jour la liste des MOUVements With ListeBoxMOUV 'RAZ du contenu .Clear 'On stocke toutes les données "MOUV" dans une variable Tableau vTab = Sheets("MOUV").UsedRange.Value Lmax = UBound(vTab, 1) 'Pour chaque ligne du Tableau For L = 2 To Lmax If vTab(L, 1) = CodeArticle Then 'Si le CodeArticle est trouvé... .AddItem vTab(L, 10) 'Date .List(.ListCount - 1, 1) = vTab(L, 11) 'Type .List(.ListCount - 1, 2) = vTab(L, 9) 'Bénéficiaire .List(.ListCount - 1, 3) = vTab(L, 2) 'Article (Désignation) .List(.ListCount - 1, 4) = vTab(L, 4) 'Quantité End If Next L End With End Sub En pièce jointe, ton classeur exemple adapté en conséquence.
J'espère que cette solution te conviendra. Bien cordialement, Didier_mDF
Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien |
|
|