Microsoft 365 Bug Macro Filtre Avancé

chris

XLDnaute Barbatruc

• 30 Octobre 2021

• #2

Bonjour

La worksheet n'étant pas précisée pour la destination elle recouvre potentiellement le tableau source

 

Vote positif 0 Vote négatif

J

JBL07

XLDnaute Occasionnel

• 30 Octobre 2021

• #3

Merci Chris, mais je ne vois pas ce qu'il faut ajouter, et où

 

Vote positif 0 Vote négatif

J

JBL07

XLDnaute Occasionnel

• 30 Octobre 2021

• #4

Je comprends d'autant moins que c'est un enregistrement de ce qui fonctionne sans la macro

 

Vote positif 0 Vote négatif

J

JBL07

XLDnaute Occasionnel

• 30 Octobre 2021

• #5

Par contre, ne vous moquez pas, je viens de réaliser que ce n'est pas A11 mais ALL... ce qui ne change rien à ma problématique

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 30 Octobre 2021

• #6

RE

Joins ton fichier sinon avec juste ces infos on ne peut corriger

 

Vote positif 0 Vote négatif

J

JBL07

XLDnaute Occasionnel

• 30 Octobre 2021

• #7

Voilà la version allégée

 

Pièces jointes

• Comptes - Exemple.xlsm

  991.8 KB · Affichages: 8

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 31 Octobre 2021

• #8

Bonjour

Je ne sais si c'est toi ou bien Excel qui a créé les noms Criteres et Extraire

Dans ce deuxième cas, l'enregistreur de macros à mélangé US et français (comme souvent ) et ne peut donc les retrouver

Si on veut les utiliser

VB:

    Range("Tabécritures").ListObject.Range.AdvancedFilter _
        Action:=xlFilterCopy, CriteriaRange:=Range("Criteres"), _
        CopyToRange:=Range("Extraire"), Unique:=False

Sinon

Code:

    With Worksheets("Filtre avancé")
        Range("Tabécritures").ListObject.Range.AdvancedFilter _
            Action:=xlFilterCopy, CriteriaRange:=.Range("F3:M4"), _
            CopyToRange:=.Range("A2:D2"), Unique:=False
    End With

 

Vote positif 0 Vote négatif

Solution

J

JBL07

XLDnaute Occasionnel

• 31 Octobre 2021

• #9

Hello Chris,

Un grand merci - Non, je n'avais pas créé de noms particuliers - J'ai pris la seconde option, elle fonctionne parfaitement

 

Vote positif 0 Vote négatif