c'est des bouts de code brut car sur mon filtre il ya 8 listbox et 12 textbox
je filtre de la colonne A à la colonne S
apres c'est toujour pareil du recopie le bout de code et tu changes juste les N° de colonne ,cellule , listbox
si tu as un probleme je t'envoi mon code complet se sera peut-etre plus clair pour toi que des bouts de code
@+
tu met ça a la suite
Private Sub listbox2_change()
End Sub
Private Sub listbox2_click()
Dim Lem As New Collection
Dim item
On Error Resume Next
ListBox3.Clear
If Sheets("feuil1").AutoFilterMode Then
Sheets("feuil1").Range("a1").AutoFilter 2, ListBox2
Else
Sheets("feuil1").Range("a1").AutoFilter 2, ListBox2
End If
Worksheets("feuil1").Range("c2:c500").Copy Destination:=Worksheets("feuil4").Range("c2")
For Each cell In Worksheets("feuil4").Range("c2:c250")
Lem.Add cell.Text, cell.Text
Next cell
On Error GoTo 0
For Each item In Lem
UserForm1.ListBox3.AddItem item
Next item
End Sub