ListBox a ajouter sur une Démo de Thierry

[MuscatMimi]

Bonjour a tout le Forum

je remercie a nouveau celles et ceux qui ont déja résolu mes soucis
avec mes Fichiers Excel en Vba

je viens de télécharger une Application de Thierry'demo
,,USF Facture Gestion de Stock,,téléchargée sur ce site
dans cette appli il y a une ListBox pour les Articles
j'aimerais incorporer a cet Usf une ListBox Choix Fournisseurs
qui me permettrait de Sélectionner un Fournisseur
et que dans la ListBox Articles, les Articles du Fournisseurs 1 ou
Fournisseurs 2 s'affichent
J'ai essayé pas mal de choses mais comme je suis nul en VbA
j'arrive a rien
Si quelque peut m'aider ce serait sympa

Merci a tous a l'avance

je fais peut-être des gâffes sur ce Forum, mais je découvre, donc j'apprends


Christian

 

[MuscatMimi]

Re : ListBox a ajouter sur une Démo de Thierry

bonsoir

tu déplaces les données de la colonne B dans la 1ère colonne vide
et tu changes B dans '= .Range("B" & K)' par la lettre de la colonne remplie avec les données de la colonne B

Private Sub UserForm_Initialize()

Dim VarPlageList As String
Dim K As Integer

Sheets("Facture").Activate
TextBoxQuantite.Visible = False
CommandButton4.Visible = False

With ListBox2
.ColumnCount = 2
.ColumnWidths = "2cm;0cm"
End With

With Sheets("List_Fournisseur")
For K = 2 To .Range("A65536").End(xlUp).Row
ListBox2.AddItem .Range("A" & K)
ListBox2.List(ListBox2.ListCount - 1, 1) = .Range("B" & K)'içi
Next
End With

End Sub

à bientôt

Bonjour Bébére ,Bonjour bqtr et a tout le Forum

Merci bqtr et bébére
Ok je n'ai pas vu la réponse de Bébére, merci a lui
J'ai compris la manip a réaliser dans le Code et dans la feuille
Merci a tous ceux qui ont eux la gentillesse de ce pencher sur mon probléme
je ne savais pas que tu travaillais le WE bqtr
Bonne journée a tous
Christian