Microsoft 365 Filtre multicritères contenu dans une colonne en VBA

vinz115

XLDnaute Nouveau
Bonjour,

Malgré mes recherches, je ne trouve pas ce qu'il me faut.

Voici le code avec des données fixes (critères) qui fonctionne bien :

VB:
ActiveSheet.ListObjects("ImportCSV").Range.AutoFilter Field:=12, Criteria1 _
        :=Array("Critère 1", "Critère 2", "Critère 3"), Operator:=xlFilterValues

Ce que je ne trouve pas, c'est remplacer les critères par une série de valeur contenu dans un autre onglet dans une colonne (max 100 critères)

D'avance merci pour votre aide
 
C

Compte Supprimé 979

Guest
Bonjour Vinz115

Peut-être quelque chose comme ceci
VB:
Dim Tb() as Variant
' Critères dans la plage A1:A100
Tb = Sheets("NomFeuille2").Range("A1:A100")
ActiveSheet.ListObjects("ImportCSV").Range.AutoFilter Field:=12, Criteria1:=Tb, Operator:=xlFilterValues

A+
 

Discussions similaires

Réponses
7
Affichages
3 K
Compte Supprimé 979
C