TCD et sélection multiple dans le filtre
Bonjour à tous,
Je viens vers vous car je ne suis pas un pro dans la manipulation VBA des TCD et je suis bloqué :(
J'ai un TCD dans lequel j'ai un champ dans la zone filtre que j'aimerai manipuler en VBA. J'arrive grâce à l'objet .CurrentPage de faire une sélection d'une valeur d'un champ mais je n'arrive pas à faire une sélection multiple (j'ai compris que .CurrentPage ne le permets pas).
Je ne peux pas lister l'ensemble des valeurs possibles car j'ai plusieurs centaines de valeurs possibles.
Voici ce que j'ai écrit avec une boucle mais qui ne fonctionne pas car .CurrentPage ne permet de sélection qu'une seule valeur.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| With ActiveSheet.PivotTables("DONNEES SYNTHETIQUES YTD").PivotFields("N.Trad Cust 1")
.EnableMultiplePageItems = True
For x = 0 To 50
If Entreprise(x) = "" Then
GoTo sortie
End If
.CurrentPage = Entreprise(x)
Next
End With
sortie: |
Comment feriez vous tout en optimisant le temps d'exécution du fait que j'ai plusieurs centaines de valeur possible dans le filtre ?
Merci de votre aide la communauté :)
Rudy
