Cacher un champ calculé dans un TCD en VBA ne semble pas fonctionner

Bonjour,

Je bute sur la desactivation d'un champ calculé dans un TCD.

Je crée divers TCD dans un fichier avec des champs calculés.
à un moment je dupplique une feuille avec un TCD, j'effectue des manip mais il m'est impossible de cacher un champ calculé.

J'ai beau enregistrer la macro pour le faire, à l'exécution elle bloque en erreur 1004.

Code:

---

ActiveSheet.PivotTables("TCD_Stat_MPB").PivotFields("Tx Déc %").Orientation = xlHidden

---

J'ai même tenté

Code:

---

ActiveSheet.PivotTables("TCD_Stat_MPB").CalculatedFields("Tx Déc %").Orientation = xlHidden

---

Ce qui marche c'est la suppression:

Code:

---

ActiveSheet.PivotTables("TCD_Stat_MPB").CalculatedFields("Tx Déch %").Delete

---

mais là je suis embêté car ce champ est utilisé dans le TCD père duquel j'ai copié la feuille et ce bien que j'ai renomé le TCD.

Merci pour vos suggestions
Denis

Bonjour,

Ne peux-tu pas simplement masquer la colonne ?

Code:

---

Columns("F").Hidden = True

---

Cette solution n'est pas viable pour des données TCD en plus le champ apparaît dans plusieurs colonne (groupes) différents.

Merci pour la proposition

Pourquoi cette solution n'est pas viable?

Si ta colonne appairait plusieurs fois tu peux faire un if

oui mais il me faudrait une procédure événementielle après chaque mise à jour du TCD cacher et afficher les colonnes conernées !

Je ne comprend pas, aucun TCD n'est caché juste une colonne.

Si tu veux faire un événement avant l'actualisation de ton TCD, tu peux utiliser un beforeclick et l'enregistreur de m'accro.

Mais justement comme c'est une colonne 'physique' qui est cachée, si l'utilisateur change (ajoute un champ dans le TCD) alors la valeur que je voulais chcher se trouve physiquement décalée d'une colonne et réapparait tandis que la nouvelle valeur n'est pas visible car dans la colonne cachée précédamment.
Il faudrait donc reafficher et recacher tout.

Moi au départ je voulais juste enlever un champ de mon TCD ça marche pour plusieurs champ mais pas pour le champ calcule.

De toute façon je n'ai pas l'intention d'ajouter une procédure événementielle dans ce fichier.

Merci

bon WE.

Bonjour

A priori problème ancien et connu si on farfouille sur le Web (Je découvre pour ma part :roll:)

J'ai trouvé sur le site de www.pivot-table.com cette solution qui fonctionne sur un de mes TCD :

Code:

---

ActiveSheet.PivotTables("TCD_Stat_MPB").DataFields("Tx Déc %").Parent.PivotItems(ActiveSheet.PivotTables("TCD_Stat_MPB").DataFields("Tx Déc %").Name).Visible = False

---

Cela supprime le champ du TCD mais pas du cache donc il reste dispo pour les autres TCD.

Merci Chris78, cela fonctionne parfaitement.

J'avais aussi continué à chercher et trouvé des posts principalement en anglais.
c'est bien un bug.
L'autre solution que j'avais testé consistait à supprimer tous les champs calculer et à les recréer.

Merci à tous.
Denis