VBA filtre sur plusieur TCD boucle

[Jec]

Bonjour,


J'ai réussi à faire un code pour à partir de la valeur en C2 (Jean) filtrer tous mes tcd sur la même page qui ont tous le même champs "nom".

Cependant le code que j'ai trouvé est un peu trop lent, est-il possible de créer une boucle pour selectionner directement tous les TCD de la page et appliquer la valeur en C2 (Jean) sur le filtre nom.

De plus, est-il possible de faire la même chose mais avec plusieurs éléments pour le filtre par exemple jean et luc.

Sub Synchro()

Worksheets("Data").PivotTables("1").PivotFields("Nom").ClearAllFilters
Worksheets("Data").PivotTables("1").PivotFields("Nom").CurrentPage = Range("C2").Value
Worksheets("Data").PivotTables("2").PivotFields("Nom").ClearAllFilters
Worksheets("Data").PivotTables("2").PivotFields("Nom").CurrentPage = Range("C2").Value
Worksheets("Data").PivotTables("3").PivotFields("Nom").ClearAllFilters
Worksheets("Data").PivotTables("3").PivotFields("Nom").CurrentPage = Range("C2").Value
Worksheets("Data").PivotTables("4").PivotFields("Nom").ClearAllFilters
Worksheets("Data").PivotTables("4").PivotFields("Nom").CurrentPage = Range("C2").Value
Worksheets("Data").PivotTables("5").PivotFields("Nom").ClearAllFilters
Worksheets("Data").PivotTables("5").PivotFields("Nom").CurrentPage = Range("C2").Value
Worksheets("Data").PivotTables("6").PivotFields("Nom").ClearAllFilters
Worksheets("Data").PivotTables("6").PivotFields("Nom").CurrentPage = Range("C2").Value

End Sub

Merci d'avance si vous avez des solutions 😉

 

[Gardien de phare]

Bonsoir,
A défaut d'exemple, la réponse sera assez théorique. Mais pour filtrer plusieurs TCD simultanément, le plus simple reste l'utilisation des segments...

 

[Jec]

Merci pour ton retour. Il est possible d utilier des segments en choisissant par exemple plusieur criteres dans la liste ? De plus il est egalemen possible d utilier ses segment si les source du tcd ne son pas les memes mais ont le meme champs «nom» ?

 

[chris]

Bonjour
Salut à Gardien de phare 😉

Oui la multi-sélection est prévue dans les segments.

Non on ne peut lier des TCD issus de sources différentes à un segment

Tu peux gagner un peu de temps en désactivant l'affichage et le calcul au début (le remettre à la fin), alléger le code avec une boucle mais avec des sources distinctes c'est tout ce qu'on peut optimiser...

 

[Jec]

Ok merci pour vos reponses. Du coup, une idée pour ajouter plusieurs critères à mon code VBA ?

 

[chris]

Re

Le CurrentPage est limité aux champs de page mono sélection.

Dans les autres cas il faut masquer tout ce qui ne correspond pas au choix

Si plusieurs prénoms à filtrer, une solution peut être de créer un segment par TCD puis de synchroniser les segments.

C'est plus convivial mais pas plus rapide en temps d'exécution...