TCD Affichage champ calculé [Résolu]

jey1319 18 Messages postés mercredi 9 février 2011Date d'inscription 27 juin 2012 Dernière intervention - 22 juin 2012 à 10:27 - Dernière réponse : jey1319 18 Messages postés mercredi 9 février 2011Date d'inscription 27 juin 2012 Dernière intervention
- 22 juin 2012 à 11:09
Bonjour,

Je suis sous excel 2007.
Est-il possible d'afficher un champ calculé? car j'arrive à le masquer mais pas à l'afficher.

Masquer un champs:

ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Somme de 2012-05").Orientation = xlHidden


et j'aimerais avoir un truc dans ce style la mais pas moyen.
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Somme de 2012-05").Orientation = xlVisible


example
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 22 juin 2012 à 10:38
3
Merci
Bonjour,
PivotTables est un objet distinct de PivotTaple
Regarde donc les membres de chacun des deux dans ton aide VBA. Tu vas comprendre.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Merci ucfoutu 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

Commenter la réponse de ucfoutu
Meilleure réponse
jey1319 18 Messages postés mercredi 9 février 2011Date d'inscription 27 juin 2012 Dernière intervention - 22 juin 2012 à 11:09
3
Merci
C'est bon j'ai trouvé Merci.

ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique3").PivotFields("2012-05"), _
"Nombre de 2012-05", xlCount

Merci jey1319 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

Commenter la réponse de jey1319
jey1319 18 Messages postés mercredi 9 février 2011Date d'inscription 27 juin 2012 Dernière intervention - 22 juin 2012 à 10:56
0
Merci
Il faut que j'utilise PivotTable car c'est 1 objet du TCD ?

Dim pt As Object

For Each Pt In ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Somme de 2012-05").PivotItems
          Pt.Visible = True
Next Pt


Sa ne marche pas non plus
Commenter la réponse de jey1319

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.