Bonjour à tous,

Afin de pouvoir filtrer une base de données sur plusieurs critères, j'ai créé dans un onglet une listbox dont les valeurs sélectionnées s'enregistrent dans un tableau qui est ensuite utilisé comme critère dans mon filtre. Mais j'ai le problème suivant :au lieu que le filtre soit de type "égal à" je voudrais qu'il soit de type "contient", ce que je n'arrive pas à coder. Si vous pouviez m'aider ce serait super !! Je sais que pour une chaine de caractères il suffit de rajouter "=*" & critère & "*", mais cela ne fonctionne pas dans mon cas.

Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim tableau(1 To 20) As Variant 
 
nb = Sheets("ACCUEIL").ListBox1.ListCount 
 
j = 1 
For I = 0 To nb - 1 
 
If Sheets("ACCUEIL").ListBox1.Selected(I) Then 
tableau(j) = Sheets("ACCUEIL").ListBox1.List(I) 
j = j + 1 
End If 
Next I 
 
 
Sheets("DETAIL DES REFS").Rows("1:1").AutoFilter 
Sheets("DETAIL DES REFS").Range("$A$1:$AK$15000").AutoFilter Field:=13, Criteria1:=tableau, Operator:=xlFilterValues
Merci d'avance !!