resultat recherche dans listbox a partir d'une combobox

[bignou77]

bonjour (re)

je ne sais pas trop comment expliquer mon souci mais en gros j'ai un tableau sur une feuille avec 4 colonnes
la colonne D contient des infos qui peuvent etre identique (truc marquer 1 fois, machin 5 fois, bidule 2 fois)
mais avec des info en face (meme ligne en colonne A differente.
ce que je voudrais c'est via un USF, je sélectionne la valeur en D (ca c'est OK) et je clique sur un bouton, et dans la listbox2 (voir le fichier) j'ai les differentes valeur en A a chaque fois que la valeur rechercher en D est presente, et j'ai en listbox3 et 4 les valeur des colonne B et C.

je pense que je fichier parlera un peu plus.

merci d'avance a tous
bignou77


PS : je part au travail dans pas tres longtemps donc je regarderais demain si des ames charitable on pu m'aider (mais je n'en doute pas)

 

[Pierrot93]

Re : resultat recherche dans listbox a partir d'une combobox

Bonsoir Bignou

regarde le code ci dessous, si j'ai bien compris :

Private Sub CommandButton1_Click()
Dim c As Range
If ComboBox1.ListIndex < 0 Then Exit Sub
For Each c In Feuil2.Range("D2:D" & Feuil2.Range("D65536").End(xlUp).Row)
    If c.Value = ComboBox1.Value Then
        ListBox2.AddItem c.Offset(0, -3)
        ListBox3.AddItem c.Offset(0, -2)
        ListBox4.AddItem c.Offset(0, -1)
    End If
Next c
End Sub

bonne soirée
@+

 

[bignou77]

Re : resultat recherche dans listbox a partir d'une combobox

Bonsoir,
merci a toi Pierrot93.
moi qui m'acharner a adapter un code que j'ai récupérer je ne sais plus pourquoi.
toi c'est 10 fois plus court et surtout ca roule.

un big merci.
je tente demain de le mettre dans mon projet, et si j'ai un cousi je revines par ici.

en tous cas re-big merci
bignou77

 

[Banzai64]

Re : resultat recherche dans listbox a partir d'une combobox

Bonjour

Un essai

 

[bignou77]

Re : resultat recherche dans listbox a partir d'une combobox

Merci Banzai64,
c'est parfiat,
mais j'ai deja utilisé le code de Pierrot93.

en tous cas je garde ton fichier sous le coude au cas ou.

Merci
Bignou77