Intéragir avec un tableau croisé dynamique

Question

Salut!

Voila j'ai une question, je pense que c'est assez simple (j espere ^^) mais en tt cas j ai pas trouvé.

j'ai une tableau croisé dynamique, avec des filtres, et je voudrais intéragir avec ces filtres en VBA.

Exemple j'ai un filtre "segment" qui contient les valeurs: L, M et XL et je voudrais pouvoir sélectionner que les valeurs de L, puis les copier, les mettre ailleurs, puis que les valeurs de M les copier .....

(il contient également la valeur (tous))

J'ai vu sur google un truc du genre:


   Worksheets("new_TCD").Activate

   With ActiveSheet.PivotTables("TCD new 1").PivotFields("segment")
      .PivotItems("XL").Visible = True
   End With




Mais bon c'est pas ca .... mais la j ai le chemin deja ... apres quelle est la commande? j ai essayé "select" a la place de visible mais c pas ca ....

en tt cas ici quand je fais ce que je vous ai mis, ca ne fait absolument rien ^^


j espere que vous pourrez m aider


a+

cs_MPi · Answer

Si je comprens bien, tu pourrais essayer quelque chose comme ça

With ActiveSheet.PivotTables("NomDuTCD").PivotFields("NomDuChamps")
    For I = 1 To .PivotItems.Count
        If .PivotItems.Item(I) = "TonCritère" Then   'disons "L"
            .PivotItems.Item(I).Visible = True
        Else
            .PivotItems.Item(I).Visible = False
        End If
    Next
End With

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Intéragir avec un tableau croisé dynamique

1 réponse

Votre réponse

Discussions similaires