Bonjour,
Pour gérer mes consommables informatiques, j’ai un fichier avec
Feuil1 = onglet « BASE PRODUITS » dans lequel j’ai tous mes articles
Feuil2 = onglet « ENTREES » dans lequel j’ai toutes mes entrées en stock
J’ai créée une userform dans laquelle j’ai 2 listBox.
ListBox6 : dans laquelle apparaissent tous mes consommables avec les champs (catégorie, emplacement, libellé, qté en stock etc…) qui représentent donc la Feuil1.
je remplis cette listbox via la macro suivante :
Sub Afficher_list_articles()
A = Feuil1.Range(« A3:G » & Feuil1.[A65000].End(xlUp).Row)
With Test_multipage.ListBox6
.ColumnWidths = « 145;150;290;80;100;160 »
.ColumnCount = 7
.List = A
End With
End Sub
ListBox4 : dans laquelle « pour l’instant » apparaissent toutes les entrées de stock de tous les articles via VBA suivant :
EC = Feuil2.Range(« A4:J » & Feuil2.[A65000].End(xlUp).Row)
With Test_multipage.ListBox4
.ColumnWidths = « 80;340;50;180;70;90;95;160 »
.ColumnCount = 10
.List = EC
End With
Sauf que je voudrais n’afficher dans la ListBox4 que les entrées qui concernent l’article sur lequel je clique sur la ListBox6 et n’afficher les champs 1, 3, 5,6 et 7.
Pour récupérer la valeur de l’article sur lequel je clique c’est ok via
Me.TextBox1 = Me.ListBox6.Column(2)
J’ai essayé d’être le plus clair possible, mais ma demande n’est pas complète, je peux vous mettre le fichier complet en PJ.
MERCI++++