Combobox et listbox

[mamour60]

Bonjour a tous,

Je voudrais remplir une combobox sans doublon a partir d'une Feuille "Base"
mais ne voir que les codes qui sont "En cours". (colonne J de la feuille "Base").

Ensuite lorque je selectionne un code cela m'affiche tous les infos de la colonne E.
mais seulement les "En cours".

Merci de votre aide et bonne soirée

 

[mamour60]

Re : Combobox et listbox

Bonsoir Jean-Marcel,

Oui mais j'ai des doublons dans la combobox et lorque je selectionne un code
il n'y a rien dans la listbox.

Merci

 

[mamour60]

Re : Combobox et listbox

Bonsoir,

Merci cela fonctionne bien.

Maintenent lorsque je selectionne un code dans la combobox je veux voir
dans la listbox les N° de lot.
Ex : Pour le code: 10121 voir le N°: 5269 et 2658

Avec ComboBox1_Change()

Merci

 

[mamour60]

Re : Combobox et listbox

Bonsoir,

Merci beaucoup pour ton aide.

Bonne soirée

 

[mamour60]

Re : Combobox et listbox

Re bonsoir,

J'ai modifié un peu mon Userform mais
J'ai toujours un probléme avec le fichier.
Je ne reprends pas le bon N° LOT dans le Label5.

alors si vous avez une idée encore merci.

Bonne soirée

 

[mamour60]

Re : Combobox et listbox

Bonjour Jean-Marcel,

Merci c'est super cela fonctionne trés bien.
Maintenant est-il possible de filtrer dans la listbox que les "En cours".
et se sera ma derniere question.

Bon dimanche.

 

[mamour60]

Re : Combobox et listbox

Re bonjour,

J'ai mis le code suivant dans la listbox il y a que les "En cours" qui sont affiché
mais est-il possible de ne pas afficher les ligne vide.

Private Sub ComboBox1_Change()
Dim Cell As Range
Dim NbLigneUtilisée As Byte
Me.ListBox1.Clear
Me.Label5.Caption = ""
With Sheets("MBIO")
For Each Cell In .Range("A5:A" & .Range("A65536").End(xlUp).Row)
If CStr(Cell.Offset(0, 1)) = Me.ComboBox1 Then
Me.ListBox1.AddItem
If Cell.Offset(0, 9) = "Valider" Then Me.ListBox1.List(NbLigneUtilisée, 0) = ""
If Cell.Offset(0, 9) = "En cours" Then Me.ListBox1.List(NbLigneUtilisée, 0) = Cell.Offset(0, 1)
If Cell.Offset(0, 9) = "Valider" Then Me.ListBox1.List(NbLigneUtilisée, 1) = ""
If Cell.Offset(0, 9) = "En cours" Then Me.ListBox1.List(NbLigneUtilisée, 1) = Cell.Offset(0, 2)
If Cell.Offset(0, 9) = "Valider" Then Me.ListBox1.List(NbLigneUtilisée, 2) = ""
If Cell.Offset(0, 9) = "En cours" Then Me.ListBox1.List(NbLigneUtilisée, 2) = Cell.Offset(0, 3)
If Cell.Offset(0, 9) = "Valider" Then Me.ListBox1.List(NbLigneUtilisée, 3) = ""
If Cell.Offset(0, 9) = "En cours" Then Me.ListBox1.List(NbLigneUtilisée, 3) = Cell.Offset(0, 9)
If Cell.Offset(0, 9) = "Valider" Then Me.ListBox1.List(NbLigneUtilisée, 4) = ""
If Cell.Offset(0, 9) = "En cours" Then Me.ListBox1.List(NbLigneUtilisée, 4) = Cell.Offset(0, 4)
NbLigneUtilisée = NbLigneUtilisée + 1
End If

Next
End With
End Sub

Merci d'avance.

 

[mamour60]

Re : Combobox et listbox

Bonjour Jean-Marcel,

Pour le moment j'ai mis "En cours" car plusieurs personnes seront amenés
à utiliser le fichier.

Merci de ton aide c'est exactement ce que je voulais.

Bon fin de week-end