VBA PivotTables -> CalculatedItems

Bonjour,

J'essaie de créer suite des tables croisées dynamiques. J'ai besoin d'ajouter une colonne calculée (elle va afficher la variation de deux dernières années), mais pas dans toutes les tables. Il y a deux problèmes:

1. Une fois le CalculatedItem a été ajouté il va apparaître dans les tables suivantes, s'il y en a un champ (Field) avec le même nom.

2. Si j'ai plusieurs regroupements (comme dans l'exemple en haut) Excel va automatiquement ajouter les valeurs (0 par défaut) pour que les groupes soient identiques même si les donnes de départ ne les contiennent pas.

Pièce jointe 209197

Quelle est une résolution adéquate?


Une partie de code qui ajoute le CalculatedItem :

Code:

---

1 2 3 4 5 6 7 8 9 10

With .PivotFields("ANNEESURV")   .Orientation = xlColumnField .Position = 1 .Subtotals(1) = False   .CalculatedItems.Add Name:="Variation" & Annee & "/" & Annee - 1, Formula:="='" & Annee & "'/'" & Annee - 1 & "'" & "-1" .PivotItems("Variation" & Annee & "/" & Annee - 1).Position = 4 .PivotItems("Variation" & Annee & "/" & Annee - 1).DataRange.NumberFormat = "0.00%" End With

---