Discussion :

[QuestVba]

Bonjour Forum ,
Une petite question sur le filtre avancé appliqué à un tableau structuré.
Quand j'utilise l'enregistreur, voici le code sortant et le résultat est correct :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Sheets("FRED_3").Range("FRED_3[#All]").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:="SELECT_VERIF!Criteria", CopyToRange:=Range("A10"), Unique _
        :=False

Mais, lorsque je veux faire retourner ce code, erreur 1004 :

La méthode AdvancedFilter de la classe Range a échoué.

Je modifie un peu le Range pour qu'il soit conforme à mes feuilles :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Sheets("FRED_3").Range("FRED_3[#All]").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("SELECT_VERIF").Range("SELECT_VERIF!Criteria"), CopyToRange:=Sheets("SELECT_VERIF").Range("A10"), _
        Unique:=False

Et patatra, erreur 1004 :

Erreur définie par l'application ou par l'objet.

Y a-t-il un pilote pour me guider ?
Un grand merci,

[Philippe Tulliez]

Bonjour,
As-tu lu cette contribution La méthode AdvancedFilter et l'objet ListObject ?

Mais, lorsque je veux faire retourner ce code, erreur 1004 :

Qu'entends-tu par "retourner ce code"

[QuestVba]

Bonjour Philippe,
J'ai lu ton document, j'ai pris les fichiers et je pense avoir compris.
Je prends un fichier vierge de copie quelques données, reprends la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub AdvancedFilterWithListObject()
  Dim areaSource As Range
  Set areaSource = shtData.ListObjects(1).Range
  areaSource.AdvancedFilter xlFilterCopy, Range("areaCriteria"), Range("areaTarget")
  Set areaSource = Nothing
End Sub

Tout fonctionne à merveille.

MAIS (car il y a toujours mais ... )

Je prends mon fichier de travail et y mets la macro en changeant uniquement le nom d'une feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub AdvancedFilterWithListObject()
  Dim areaSource As Range
  Set areaSource = shtFRED3.ListObjects(1).Range
  areaSource.AdvancedFilter xlFilterCopy, Range("areaCriteria"), Range("areaTarget")
  Set areaSource = Nothing
End Sub

Et là, j'ai une erreur 1004 : La méthode AdvancedFilter de la calsse Range a échoué.

Voici aussi le code sorti de l'enregistreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Range("areaSource").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Range("areaCriteria"), CopyToRange:=Range("areaTarget"), Unique:=False

Et quand j'essaie de réexécuter ce dernier code, même erreur 1004 ....

Si vous avez une piste, je serai heureux...

[Philippe Tulliez]

Bonjour,
Est-ce que shtFRED3 est bien le CodeName de la feuille où se trouve le tableau structuré ?

[QuestVba]

Re-,
Effectivement, c'est bien le CodeName.

[Philippe Tulliez]

Bonjour,
Et le tableau de cette feuille est vraiment un tableau structuré car si je regarde bien, il semble y avoir deux lignes de titre (ligne 3 et 4) or un tableau structuré doit avoir une ligne de titre ?

Une simple ligne de code suffira pour le vérifier MsgBox shtFRED3.ListObjects(1).Range.Address

[QuestVba]

Philippe,
Oui, c'est bien un tableau structuré

[Philippe Tulliez]

Bonjour,
J'avoue ne pas comprendre.
As-tu vérifié avec le compilateur (Onglet [Débogage] commande Compiler VBAProject)

[QuestVba]

Vérification via ce biais aussi. Et rien du tout.
Je suis un peu démuni. Je vais continuer à chercher.
En tout cas, un grand merci pour ton intérêt.

[Philippe Tulliez]

Bonjour,

Je suis un peu démuni. Je vais continuer à chercher.

J'avoue que moi également. Si ton classeur ne contient aucune données sensibles, tu peux toujours me le faire parvenir pour que je l'examine.
C'est un classeur suffixé xlsm ou xlsb ?

[QuestVba]

C'est un xlsm.

[QuestVba]

OKI, cela se débloque. En fait, ce sont les slicer qui se trouvent sur ma feuille DB qui bloquait la macro. Je viens de les ôter et la macro fonctionne à merveille.

[anasecu]

Bonsoir QuestVba

En fait, ce sont les slicer qui se trouvent sur ma feuille DB qui bloquait la macro.

Désolé d'intervenir après résolution mais je suivais ce poste et je n'arrive pas à comprendre la correction car je ne vois pas ce que sont les 'slicer' : merci d'avance.

[Philippe Tulliez]

Bonjour QuestVba,
Merci pour ton retour.
Je vais examiner cela fin de semaine et apporterai une modification à la procédure proposée dans la contribution si les tests confirment ce fait.

@Anasecu
Les "Slicers" pour la version anglaise sont les segments que l'on utilise à la fois dans les tableaux croisés dynamiques (depuis la version 2010, si mes souvenirs sont exacts) et pour les tableaux structurés (depuis la version 2013)

[anasecu]

Bonsoir Philippe,

Merci de l'information que je n'avais pas réussi à trouver malgré mes recherches.