Filtrer plusieurs Element et Mettre resultat dans une Feuille

Bonjour les,

je suis débutatn sur macro, j'ai essayé de creer un filtre avec plusieurs elements et afficher la resultat dans une nouvelle feuille,

j'ai tombé sur un code sur internet, en place de copié le resultat il fait la copie du fichié complet, comme si ya pas de filtre

voici le code, merci pour votre support

Option Explicit

Sub Filter_My_Data()

Dim Data_sh As Worksheet
Dim Filter_Criteria_Sh As Worksheet
Dim Output_sh As Worksheet

Set Data_sh = ThisWorkbook.Sheets("Data")
Set Filter_Criteria_Sh = ThisWorkbook.Sheets("Filter_Criteria")
Set Output_sh = ThisWorkbook.Sheets("Output")

Output_sh.UsedRange.Clear

Data_sh.AutoFilterMode = False

Dim Emp_list() As String
Dim n As Integer

n = Application.WorksheetFunction.CountA(Filter_Criteria_Sh.Range("A:A")) - 2

ReDim Emp_list(n) As String

Dim i As Integer

For i = 0 To n
    Emp_list(i) = Filter_Criteria_Sh.Range("A" & i + 2)
Next i

Data_sh.UsedRange.AutoFilter 2, Emp_list(), xlFilterValues
Data_sh.UsedRange.Copy Output_sh.Range("A1")

Data_sh.AutoFilterMode = False

MsgBox ("Data has been Copied")

End Sub

Bonjour

Que feras-tu des résultats ? S'il servent simplement à la consultation il est plus simple et efficace de créer cet extrait soit par formule de type FILTRE, soit par une requête PowerQuery (intégré à Excel).

Merci Chris,

j'au besoindu resultat dans une feuille séparé pour afficher le contenue,
en effet j'utilise un tableau plus de 12K ligne, et mes filtre hobdomadaire de 200 ligne ou plus,
donc j'ai tombé sur ce macro, adpaté a mon besoin, le probleme c'est sur le fichier source il marche sans probleme sur la mienne il fait une copie complete du feuille source

RE

Donc comme indiqué pas besoin de VBA : soit formule FILTRE soit PowerQyery

Poste un exemple allégé mais représentatif

Bon Voila un exemple fait avec la macro que j'ai déposé

RE

Solution PowerQuery : il suffit d'actualiser le résultat si la source ou les critères évoluent

On utilise des tableaux structurés : cela fait 19 ans qu'ils sont présents dans Excel pour gérer les listes de données

Waw Super bien,

vraiment j'ai jamais connue le Power Query :D

Merci pour le support :)