filtre multi listebox et résultat dans textbox

jtitin · 12 Novembre 2006

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 · 12 Novembre 2006

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 · 12 Novembre 2006

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

filtre multi listebox et résultat dans textbox

jtitin

XLDnaute Occasionnel

Pièces jointes

jtitin

XLDnaute Occasionnel

ziopizza

XLDnaute Occasionnel

Discussions similaires

filtre multi listebox et résultat dans textbox

jtitin

XLDnaute Occasionnel

Pièces jointes

jtitin

XLDnaute Occasionnel

ziopizza

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency