Discussion :

[Log_polmed]

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

[SilkyRoad]

bonsoir

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

Code :

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

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