listbox et recherche vertical

[n3Twork]

Bonjour

J'ai un petit soucis dans mon application j'ai un listbox et je voudrai que lorsque le selectionne une reference dans cette listbox , sa m'affiche dans un textbox (ou label) une valeur par rechercher vertical ...

j'ai fait des recherche sur le forum mais rien de trouvé.

Je ne sais pas si c'est trés clair...

 

[n3Twork]

Bonjour,

Je vous est fait un fichier avec tou le code et le code qu'il me manquerait 🙂

Merci de votre aide

Voila le fichier : http://cjoint.com/?gAlekvIrUe

 

[Hervé]

bonjour fabien, a essayer :

Private Sub ListBox1_Click()
Dim L As Integer
Dim c As Range

L = ListBox1.ListIndex
L = L + 1

        With Sheets('Feuil2')
        Label12 = .Cells(L, 2)
        Set c = .Columns('d').Find(Label12)
        If Not c Is Nothing Then Label12 = Label12 & vbNewLine & c.Offset(0, 1)
        End With
End Sub

salut

 

[n3Twork]

Merci sa a l'air de bien fonctionner 🙂