Deux Filtres avancés de suite

Bonsoir chers tous

je voudrais extraire mes données en utilisant deux filtres avancés , le premier avec un critère et le second sans critère.

Le premier fonctionne mais le second fonctionne mal.

Pouvez vous me venir en aide ?

Merci

Sub filtre()
    With ActiveSheet
     Dim critere, titres As Range
            Set critere = .[P1:P2]
            Set titres = .[M1:N1]
            .Range("A1:K" & .Range("A" & Rows.Count).End(xlUp).Row + 1).AdvancedFilter xlFilterCopy, critere, titres, Unique:=True
            Set critere = Nothing: Set titres = Nothing

     .Range("A1:K" & .Range("A" & Rows.Count).End(xlUp).Row + 1).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range _
                            ("R1:V1"), Unique:=False
    End With
End Sub
6filter.xlsm (18.70 Ko)

Bonjour,

Dans le gestionnaire de noms, lors du premier filtrage excel a généré le nom Criteres qui reste égal à P1:P2 et est appliqué une seconde fois.

On le voit en supprimant ce nom et le premier critère ... alors là toutes les données sont bien sorties.

Si tu veux faire un filtre sans critères -qui revient à extraire quelques colonnes-, assure toi d'avoir supprimé le nom Criteres.

Option Explicit

Sub filtre()
    With ActiveSheet
     Dim critere, titres As Range
            Set critere = .[P1:P2]
            Set titres = .[M1:N1]
            .Range("A1:K" & .Range("A" & Rows.Count).End(xlUp).Row + 1).AdvancedFilter xlFilterCopy, critere, .Range("M1:N1"), Unique:=True
            Set critere = Nothing: Set titres = Nothing

     .Names("Criteres").Delete
     .Range("A1:K" & .Range("A" & Rows.Count).End(xlUp).Row + 1).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("R1:V1"), Unique:=False
    End With
End Sub
capture d ecran 258

MERCI MERCI et MERCI

Rechercher des sujets similaires à "deux filtres avances suite"