Bonjour tout le monde,

j'ai besoin de faire un filtre multi critère, j'ai fait ce code, mais y a quelque chose qui bug ....

Voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim Criteres As Variant
 
    'compte le nombre de lignes et colonnes
        Range("A1").Select
        nblignes = Range("A1", Selection.End(xlDown)).Cells.Count
        nbColonnes = Range("A1", Selection.End(xlToRight)).Cells.Count
 
'Les critères de recherche
Criteres = Array("Approved", "Cancelled", "Closed", "Commitment made", "Completed", "Dispatched", "On-going", "Open", "Planned", "Positive Opinion", "Reclassified Downgrade", "Submitted", "No submission required", "Submitted to Agency")
 
ActiveSheet.Range("A1:" & nbColonnes & nblignes).AutoFilter Field:=11, Criteria1:=Criteres, Operator:=xlFilterValues
Si quelqu'un a une solution, je suis preneur
Merci par avance pour votre aide
Laurent