VBA - Liste des étiquettes visibles d'un TCD, vraiment visibles.

[amine00z]

Bonjour tout le monde
J'aurais besoin de vos lumières pour une question toute bête.

J'ai besoin qu'une macro aille chercher pour moi la liste des étiquettes de ligne d'un champ particulier, après qu'une autre macro aie appliqué divers filtres et sélections.

J'ai donc essayé

Set Tableau = ThisWorkbook.Sheets("MaFeuille").PivotTables("MonTCD")
For Each Etiquette In Tableau.PivotFields("MonChamp").VisibleItems
ActiveSheet.Range("A1").Offset(i, 0) = Etiquette.Name
i = i + 1
Next Etiquette

Le problème c'est que ce code fini par lire toutes les étiquettes et pas seulement celles qui sont visibles.

En faite j'ai compris que "visible" voulait dire pour VB "coché". Y a-t-il un moyen de ne lister que ce qui est véritablement visible ?

Merci à tous (et à toutes)

 

[amine00z]

Personne ne sait

 

[chris]

Re : VBA - Liste des étiquettes visibles d'un TCD, vraiment visibles.

Bonjour

Si tu raisonnes en TCD, pas d'autre solution.

Sinon tu peux analyser le contenu des cellules.

 

[amine00z]

Re : VBA - Liste des étiquettes visibles d'un TCD, vraiment visibles.

Merci beaucoup Chris, tu m'épargne la corvée de relire toute l'aide de VB.