Réinitialiser un TCD

[Chaps]

Bonjour,

Admettons j'ai un TCD, avec pas mal de champs que je peux mettre en visible ou non selon ce que je cherche à obtenir comme résultat. Je voudrais pour éviter une éventuelle mauvaise interprétation avoir un bouton qui me permettrait de réinitialiser mon Tableau. Soit remettre tout mes champs en visible mais laisser vide décocher. Ou alors avoir un bouton ou usf qui me montrerait que la case tout afficher est décocher pour telles ou telles colonnes.

Clair?

A suivre... merci pour le retour d'infos.

 

[Dugenou]

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

 

[AV]

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]

 

[Chaps]

Re,

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

@+