Discussion :

[Denis_67]

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 :

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

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

J'ai même tenté

Code :

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

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

Ce qui marche c'est la suppression:

Code :

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

    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

[parmi]

Bonjour,

Ne peux-tu pas simplement masquer la colonne ?

Code :

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

Columns("F").Hidden = True

[Denis_67]

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

[had4789]

Pourquoi cette solution n'est pas viable?

Si ta colonne appairait plusieurs fois tu peux faire un if

[Denis_67]

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

[had4789]

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.

[Denis_67]

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.

[78chris]

Bonjour

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

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

Code :

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

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.

[Denis_67]

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