Filtre élaboré multi-critères et recherche ds 4 feuilles

Bonjour,

Je recherche une solution pour effectuer une recherche multi-critères dans 4 feuilles (nommées AB, AC, AD et AE) de mon classeur et copier le résultat dans la feuille Récap.

Pour cela, j'ai trouvé comment adapter le filtre élaboré dans une macro. Le problème que je rencontre est d'arriver à exécuter le filtre dans les 4 feuilles et non pas dans une seule (AB pour le moment).

Pour que cela soit plus clair, j'ai mis le fichier simplifié en pièce jointe.

Est-ce que quelqu'un pourrait me donner une piste afin d'adapter mon code?

Merci d'avance!

Sophie

151filtreelaboretest.xlsm (126.08 Ko)

Bonjour,

Modifie ton code ainsi :

Sub Filtre()
Dim LesFeuilles, Sh
Dim DerLig As Long
Application.ScreenUpdating = False
LesFeuilles = Array("AB", "AC", "AD", "AE")
With Sheets("Recap")
    .Range("A6:S1000").Clear
    For Each Sh In LesFeuilles
        DerLig = .Cells(Rows.Count, "A").End(xlUp).Row + 1
        With Sheets(Sh)
            .Range("A2:K" & .Cells(Rows.Count, "A").End(xlUp).Row) _
                .AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
                Sheets("Recap").Range("E2:I3"), CopyToRange:=Sheets("Recap").Cells(DerLig, "A"), Unique:=False
        End With
        Sheets("Recap").Rows(DerLig).Delete
    Next Sh
End With
End Sub

Bon courage

Bonsoir,

C'est super! Un grand merci pour le code, ça marche parfaitement bien!

Sophie

Rechercher des sujets similaires à "filtre elabore multi criteres recherche feuilles"