Pivot Fields

Version imprimable

02/10/2007, 10h19
lbar012001

Pivot Fields
bonjour,
Dans mon tableau dynamique, j'ai des SEMAINES en colonnes, rien en LIGNE, j'ajoute le champ (données) TSTK ainsi :
Code:

1 2 3 4 5 With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("TSTK") .Orientation = xlDataField .Position = 1 .Caption = "Stock" End With
ensuite je souhaite le rajouter une seconde fois, donc en position 2 mais par contre je souhaite qu'il saffiche en tant que "Différence % par rapport" à la SEMAINE précédente et non en Somme classique
savez vous comment faire en vba ??

Merci si vous avez une idée
Laurent
02/10/2007, 11h07
cb_60

Bonjour
Difficile sans avoir les données, mais je pense que cela doit se faire sur ton tableau avant la construction de ton TCD

pourr info j'ai trouvé

Code:

1
2
3
4
5
6
7
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("STK")
        .Orientation = xlDataField
        .Position = 9
        .Calculation = xlPercentDifferenceFrom
        .BaseField = "WEEK"
        .BaseItem = "(précédent)"
    End With

merci en tout cas
a+