VBA filtre sur plusieur TCD boucle

Jec

XLDnaute Nouveau
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 ;)
 

Jec

XLDnaute Nouveau
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

XLDnaute Barbatruc
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...
 

chris

XLDnaute Barbatruc
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...
 

Discussions similaires

Statistiques des forums

Discussions
311 715
Messages
2 081 822
Membres
101 822
dernier inscrit
holale