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.
Quelle est une résolution adéquate?
Une partie de code qui ajoute le CalculatedItem :
Code VB : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager