[TCD] Selectionner pivot items

Bonjour,

J'ai un TCD fini mais pas trés lisible facilement.
J'aimerais renommer les pivot items (les entêtes des colonnes de donnes) qui sont affichés actuellement.

En effet, je peux faire un boucle sur tous les pivotitems du pivotfield qui m'interesse mais il me prend aussi tous ceux qui ne sont pas valués (et donc affichés) et les renomme, mais ce n'est pas du tout pertinent pour moi.

En gros, cela revient à renommer uniquement ceux qui s'affichent quand on décoche la case "Afficher les éléments sans données" d'un champ. mais dans la liste des propriétés de l'objet pivotitem, je ne trouve pas celui qui sert a faire la différence entre un affiché et un masqué (ou un 'avec données' et un 'sans données').

Si quelqu'un voit de quoi je parle.. merci :)

bonsoir

Je ne suis pas sur d'avoir bien compris mais tu peux essayer:

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Pvt As PivotTable Dim Pvf As PivotField Dim i As Integer   Set Pvt = ActiveSheet.PivotTables(1)   For i = 1 To Pvt.VisibleFields.Count Set Pvf = Pvt.VisibleFields(i) MsgBox Pvf.Name Next i

---

bonne soirée
michel