Variable dans macro avec PivotFields

[wooshi]

Bonjour a tous,

Mon probleme est le suivant : je n'arrive pas a insérer de variable dans ma macro pour la fonction PivotFields. Ma variable ici serait quelque chose du style :
n = 11
Si qqun a une idée :/

En dur ca donne ca :

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Somme 11"). _
Orientation = xlHidden
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Somme 10"). _
Orientation = xlHidden


cdt,

 

[Dan]

Bonjour,

Difficile de te répondre sans voir ta macro ou un fichier; que représente le 11 dont tu parles ?

Pivotfield représente uniquement le nom d'un champ et tu ne pourras pas faire intervenir une variable à cet endroit.

S'il s'agit de formule, tu devrais utiliser plutôt Pivotformulas; Je te conseil de regarder l'aide VBA à ce sujet en tapant Pivotfield.

@+

Dan

 

[wooshi]

Ui c'est effectivement le nom d'un champ mes entetes de colonnes étant 1 2 3 4 5 6 etc .... pour avoir des colonnes statiques. Je souhaitais pouvoir enlever et rajouter automatiquement à l'aide d'une macro les champs non utilisé afin d'avoir réellement un graphique dynamique.

Apparemment cela est impossible sauf si quelqu'un a une idée géniale :/

Bonne semaine a tous

 

[galopin01]

Bonjour,
PivotFields(attend quelque chose qu'il puisse évaluer comme du texte et évaluer comme un en-tête de colonne)
Aussi je il doit être possible de lui poser une variable déclarée String :
Si [A1] = 11 alors

Dim Sn as string
Sn = Xstr(A1.Value)
alors
... ").PivotFields(Sn)...

Nota : sur le principe c'est sur, mais non testé.
Il est peut-être nécessaire que la cellule A1 soit au format Texte ? Pas sur... Essayer !

A+

 

[galopin01]

Sorry, vous aurez corrigé...

Aussi il doit être possible de...

Sn = CStr(A1.Value)

A+