Réinitialiser un TCD

Re salut Chaps,

j'ai une demi solution mais en fait c'est un probleme :
sur mon pc, quand je n'affiche pas tous les éléments d'un champ de page et que je fait afficher tous : ça m'écrit (plusieurs éléments) ce qui est très pratique pour m'informer que toutes les valeurs du champ de page ne sont pas utilisées. Le probleme, c'est que sur le pc de ma collègue de bureau (même config) ça lui afiche (tous) au lieu de (plusieurs éléments) et que je ne sais pas trouver le réglage pour qu'elle ait le même affichage.
Maintenant si ton probleme est pour des champs de ligne ou de colonne : tu oublies vite ce que je viens d'écrire

Cordialement

Ave,

En adaptant les noms de champs, ça pourrait faire ça :

With ActiveSheet.PivotTables('MonTCD').PivotFields('monChamp')
Dim monPivIt As Object
For Each monPivIt In .PivotItems
If monPivIt.Name = '(vide)' Then monPivIt.Visible = False Else monPivIt.Visible = True
Next
End With

AV [aaa]

Re,

Merci pour le suivi, c correct AV mais c très long chez moi...

@+