Bonjour,
J'ai une feuille "B", en ligne 1, j'ai mis un Autofilter.
Dans un USF, j'ai créé une listbox qui reprend les données de la colonne A, j'ai mis un liststyleoption (me permettant d'avoir "les petits carrés" de sélection des éléments dans la listbox (merci les tutos de JB).
Je souhaite que lorsque le USF, le code reprenne les éléments cochés de la listbox et les mettent en Autofiltre....
J'ai fait (commandbutton1 étant le bouton de validation et de sortie du USF):
Code:
Private Sub CommandButton1_Click()
For i = 2 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then
Sheets("B").Range("$A$2:$F$10").AutoFilter Field:=1, Criteria:=Sheets("B").Cells(i, 1), Operator:=xlOr
End If
Next i
Unload Me
End Sub
Cela ne fonctionne pas et je ne vois pas où est mon erreur....