Comment Filtrer le champ d'un TCD en macro VBA (Tableau croisé dynamique)

Version imprimable

Bonjour,

Je suis débutant en VBA , j’ai une feuille dans laquelle j’ai construit un TCD en macro VBA. La source de données de ce TCD est récupérée dans une deuxième feuille se trouvant dans un répertoire de fichier.

je souhaiterais faire le filtrage sur un champ nommé « Libelé du groupe Perf », la macro s’exécute sans aucun souci , mais quand je vais dans mon TCD je ne vois aucun filtrage sur le champ « Libelé du groupe Perf ».

Voici le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 With ActiveSheet.PivotTables("mon tableau croisé dynamique").PivotFields("Libellé du Groupe Perf") .PivotItems("Prev PP globale").Visible = True .PivotItems("Val Désirio").Visible = True .PivotItems("Val Epargne Vie").Visible = True .PivotItems("Val Gestion Préconisée").Visible = True .PivotItems("Val Ret ind.").Visible = True .PivotItems("Conquêtes Part multirisques").Visible = True .PivotItems("Conquetes Pro Agri").Visible = True .PivotItems("Conquetes Pro ACPS").Visible = True .PivotItems("PN IARD HT").Visible = True .PivotItems("Nb Auto").Visible = True .PivotItems("Nb GAV").Visible = True .PivotItems("Nb Habitation").Visible = True .PivotItems("Nb Santé ind.").Visible = True .PivotItems("Nb GBH").Visible = True End With
J'ai regardé sur plusieurs forums m’ais j’arrive pas à trouver la solution. Quelqu’un pourrait svp m’aider à résoudre ce problème de filtrage?

Comme ceci:

Code:

1
2
3
4
5
6
7
8
9
Sub FiltrerViaUneVariable()
    Dim monChamp As PivotField
    Dim TexteVoulu As String
 
    Set monChamp = ActiveSheet.PivotTables("Mon_TCD").PivotFields("Libelé du groupe Perf")
    TexteVoulu = "Le Meilleur"
 
    monChamp.CurrentPage = TexteVoulu
End Sub

Code:

1
2
3
4
5
6
7
8
9
Sub FiltrerViaUneConstante()    'e.g. contenu d'une cellule
    Dim monChamp As PivotField
    Dim TexteVoulu As String
 
    Set monChamp = ActiveSheet.PivotTables("Mon_TCD").PivotFields("Libelé du groupe Perf")
    TexteVoulu = ActiveWorkbook.Sheets("Sheet1").Range("F2").Value  'coordonnées à adapter bien entendu
 
    monChamp.CurrentPage = TexteVoulu
End Sub

1 pièce(s) jointe(s)

Bonjour,

Je vous remercie pour votre réponse , parcontre en utilisant votre code j'ai une erreur qui s'affiche en disant impossible ce céfinir la propriété CurrentPage de la classe PivotField (voir ci-jointe la capture de l'erreur).

L'erreur s'effectue sur l'avant dernière ligne , sur laquelle la propriété CurrentPage est utilisée.
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub filtrage_champ_par_variable() Dim monChamp As PivotField Dim TexteVoulu As String Set monChamp = ActiveSheet.PivotTables("mon tableau croisé dynamique").PivotFields("Libellé du groupe Perf") TexteVoulu = "Prev PP globale" monChamp.CurrentPage = TexteVoulu End Sub
Savez vous svp à quoi est due cette erreur?
Pièce jointe 617163

11/04/2022, 22h44
Zekraoui_Jakani

Je ne sais pas quelle version Excel vous utilisez, mais vos pouvez vous en sortir en enregistrant une macro dans laquelle vous performez les actions manuellement, puis exploitez le code généré par la macro.
Essayez et si ça ne va pas, vous pouvez toujours poster copie de votre fichier avec données fictives pour que l'on puisse intervenir.