Microsoft 365 Bug Macro Filtre Avancé

[JBL07]

Bonjour le Forum !

Besoin de vos lumières svp

J'ai créé un filtre avancé, qui va chercher les données dans un tableau sur une autre feuille
Lorsque je le fais fonctionner, tout va bien
Mais si je fais "enregistrer une macro" pour automatiser, avec un bouton déclencheur, ça beugue !
Voilà le filtre :

Et voilà le bug ( je précise que A11 est vide, mon tableau " Tabécritures" va de B8 à R10269 )
Je ne sais pas interpréter les lignes jaunes du débogage, la petite flèche se positionne devant la dernière ligne

Merci par avance

 

[chris]

Bonjour

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

 

[JBL07]

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

 

[JBL07]

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

 

[JBL07]

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

 

[chris]

RE

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

 

[JBL07]

Voilà la version allégée

 

[chris]

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

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

Sinon

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

 

[JBL07]

Hello Chris,

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