Salut à tous,

Je m'arrache les cheveux sur le problème suivant: j'ai une macro qui fait tourner un filtre. Si je hardcode le criteria1 tel que

Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveSheet.Range("$A$1:$V$2061").AutoFilter Field:=4, Criteria1:=Array("Assets", "Consumables"), operator:=xlFilterValues
Ca roule et ma table est bien filtrée.

MAIS en fait la valeur de mon array dépend de la sélection d'élément dans un listbox. Si mon Assest est dans la cellule F6 de la feuille 30 et mon consumables dans la cellule G6, je tente de prendre la valeur de mon array de ces cellules mais ca ne marche pas:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Dim FilterValue As String
Dim quot As String
quot = "''"
 
FilterValue = quot & Sheet30.Range("F6").Text & quot & ", " & quot & Sheet30.Range("G6") & quot
MsgBox (FilterValue)
 
ActiveSheet.Range("$A$1:$V$2050").AutoFilter Field:=6, Criteria1:=Array(FilterValue), Operator:=xlFilterValues
Je n'ai pas de message d'erreur, juste aucun résultat n'apparaît dans ma table filtrée. Si je compare la valeur de FilterValue dans mon message box, j'ai bien la meme chose que dans mon premier cas.

Apparemment personne ne fait la meme chose que moi quand je google, donc si quelqu'un à une autre idée, tant mieux.

Merci d'avance