Filtrage des champs d'un TCD (Tableau Croisé Dynamique) en VBA

Question

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. 1- Je souhaiterais filtrer les trois (Type Spécificité, Métier du commercial, Unité) par vide , mais ma macro ci-dessous ne fonctionne pas, pourtant ça s'exécute sans aucun souci, le problème quand je vais dans mon TCD je ne vois aucun filtrage sur ces champs. ActiveSheet.pivotables("mon tableau croisé dynamique").pivofields("Type Spécificité").ClearAllFilters ActiveSheet.pivotables("mon tableau croisé dynamique").pivofields("Type Spécificité").Curren = "(blank)" 'CurrentPage ActiveSheet.pivotables("mon tableau croisé dynamique").pivofields("Métier du Commercial").ClearAllFilters ActiveSheet.pivotables("mon tableau croisé dynamique").pivofields("Métier du commercial").CurrentPage = "(blank)" ActiveSheet.pivotables("mon tableau croisé dynamique").pivofields("Unite").ClearAllFilters ActiveSheet.pivotables("mon tableau croisé dynamique").pivofields("Unite").CurrentPage = "(blank)" 2- J'ai le meme problème quand je fais le filtrage sur le champ "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: ' filtre champs Libellé du Groupe Perf ' le filtrage ne sélectionne pas les items spécifiés en objet 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 'Filtre sur le champ service se trouvant en collonne ActiveSheet.PivotTables("mon tableau croisé dynamique").PivotFields("Service").ClearAllFilters With ActiveSheet.PivotTables("mon tableau croisé dynamique").PivotFields("Service") .PivotItems("Développement 02").Visible = True .PivotItems("Développement 08-51").Visible = True .PivotItems("Développement 10").Visible = True .PivotItems("Développement 51").Visible = True .PivotItems("Développement 59 Nord").Visible = True .PivotItems("Développement 59 Sud").Visible = True .PivotItems("Développement 62").Visible = True End With SVP quelqu'un pourrait m'aider à résoudre ce problème ? Depuis hier je cherche de gauche à droite pour résoudre ce problème de filtrage mais je n'arrive pas Si vous avez des idées ou des suggestions à me faire ça va beaucoup m'aider. En comptant sur votre bonne compréhension et dans l'attente de votre retour , je vous souhaite une excellente journée. Bien cordialement...

21Formatic · Answer

Pour le 1er exemple, pourquoi ne pas utiliser la même structure que pour le 2nd ? ActiveSheet.PivotTables("mon tableau croisé dynamique").PivotFields("Type Spécificité").PivotItems("(blank)").Visible = False Pour le 2ème exemple, quand tu mets clearallfilters, cela réaffiche toutes tes valeurs. Puis tu demandes à tout un tas de champs d'être affichés. Il y a un truc qui coince là-dessus à mon avis...

Jean-Eric · Answer

Bonjour et bienvenue, Un petit fichier ? Cdlt...