Salut bibbip,
Si j'ai bien compris (et c'est rarement le cas
).
Si tu veux rajouter la ligne Juin-2015 le code devrait ressembler à ça :
1 2 3
| Worksheets("TCD").PivotTables("Tableau croisé dynamique1").AddDataField Worksheets("TCD"). _
PivotTables("Tableau croisé dynamique1").PivotFields("juin-15"), _
"Somme de juin-15", xlSum |
Par contre cela ne marchera que dans certains cas qui dépendent de la façon dont ton tableau source source est mis à jour. Il se peut que la source de données utilisées pour le TCD change.
Dans ton exemple, si tu supprimes la colonne E (le moi que tu ne veux plus) la source du TCD passe de A1
12 à A1:O12 auquel cas la ligne de code que j'ai donné ne suffira pas.
Si la mise à jour de ton tableau source entraine ce problème tu dois changer la source de données avant d'utiliser la ligne de code du début :
Worksheets("TCD").PivotTables("Tableau croisé dynamique1").SourceData = "Base!L1C1:L12C16"
Il faudra bien sur personnaliser la ligne, j'imagine que tu n'as pas toujours 12 lignes.
EDIT : je me suis fait devancer
Partager