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

vinz115 · 3 Décembre 2021

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

Compte Supprimé 979 · 3 Décembre 2021

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+

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

vinz115

XLDnaute Nouveau

Compte Supprimé 979

Guest

Discussions similaires