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 : Sélectionner tout - Visualiser dans une fenêtre à part
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