Discussion :

[clem256]

Bonjour le forum

j'aimerais comprendre comment sous VBA on peut lire les étiquettes de lignes d'un tableau croisé dynamique dans une variable string. Je veux faire une boucle pour savoir si une chaine se trouve dans les étiquettes de lignes. J'ai trouvé la propriété "DataLabelRange" de l'objet PivotTable, qui me semble appropriée, mais n'étant pas famillier de TCD, j'ai un peu de mal à déterminer si c'est la bonne propprité et une bonne utilisation.
Si vous pouviez m'indiquer comment faire ou quelle autre démarche est la plus appropriée, je vous en serais reconnaissant?
Merci.
Clem256

[Daniel.C]

Bonjour,

Comme ceci, tu affiches les items visibles :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
    Dim C As Range
    For Each C In ActiveSheet.PivotTables(1).PivotFields("numero").DataRange
        MsgBox C.Value
    Next C
End Sub

Pour les afficher tous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test1()
    Dim Pi As PivotItem
    For Each Pi In ActiveSheet.PivotTables(1).PivotFields("numero").PivotItems
        MsgBox Pi.Name
    Next Pi
End Sub

et tu peux tester "Pi.Visible" à true ou False selon que tu veux lister les items visibles ou masqués.

[clem256]

C'est parfait merci beaucoup.