filtre multi listebox et résultat dans textbox

[jtitin]

bonjour forum

j'essai depuis pas mal de temps après un filtrage avec plusieurs listbox de récupérer un texte de la feuille "Base" dans la textbox1 (ou un label)
Quant je clic dans la dernière listbox (listbox3) le choix dans cette list fait apparaitre un texte en rapport à ce choix issu de la feuille "Base".

je joins un fichier pour une meilleure compréhension.

merci pour votre aide

 

[jtitin]

Re : filtre multi listebox et résultat dans textbox

re bonjour à tous

j'ai réussi, j'ai enfin mon retour dans textbox1
pour les personnes intéressés:

Private Sub ListBox3_Click()
Dim DerLigne As Integer
Dim Plage As Range
Dim Cell As Range
DerLigne = Sheets(2).Range("A65536").End(xlUp).Row
Set Plage = Sheets(2).Range("A1:A" & DerLigne)
For Each Cell In Plage
If Cell.Value = ListBox3.Value Then
TextBox1 = Cell.Offset(0, 3).Value
End If
Next Cell

End Sub

 

[ziopizza]

Re : filtre multi listebox et résultat dans textbox

Bonjour jtitin,
Juste pour ne pas avoir travaillé pour rien.
Une autre façon,

Private Sub ListBox3_Click()
Dim i As Integer
For i = 1 To Sheets("Base").Range("a65536").End(xlUp).Row
If Sheets("Base").Cells(i, 1).Value = CDate(ListBox3.Value) Then TextBox1 = Cells(i, 4).Value
Next i
End Sub

Salut Yves