Discussion :

[bibbip35]

Bonjour à tous

Je viens vers vous par rapport a un souci que je souhaiterais resoudre

Mon pb : J'ai 1 TCD qui est en relation avec 1 tableau avec des en têtes mois
Aujourd'hui il est de juin 2014 à Mai 2015
Le mois prochain les en têtes seront de Juillet 2014 à Juin 2015

Je souhaiterai crée en VBA , un code me permettant de modifier la valeurs des champs
Je m'explique; l'objectif serait
Que le champ valeurs 1 soit la valeur de cellule A1 de la feuille de base
Que le champ valeurs 2 soit la valeur de celluleB1 de la feuille de base
......

Aurriez vous une idée sur la procédure?

Merci

Bibbip35

[Daniel.C]

Bonjour,

Je n'ai pas compris si le nombre de lignes de la base était variable. La macro qui suit suppose que ce nombre est fixe. Dans le cas contraire, dis-le.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim PT1 As PivotTable
Set PT1 = Sheets("TCD").PivotTables("Tableau croisé dynamique1")
With PT1
    .PivotCache.Refresh
    .AddDataField PT1.PivotFields(Format([Base!P1], "mmm-yy")), "Somme de " & Format([Base!P1], "mmm-yy"), xlSum
End With

[ptitcool]

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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 A112 à 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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[78chris]

Bonjour

Tu as déjà posé la question sur un autre forum et nous t'avons répondu : si tu modifies les titres des colonnes cela a un impact direct sur le TCD, que la modification soit faite manuellement ou en VBA.

Nous t'avons invité à nous préciser pour quoi tu ne veux pas revoir ta source mal adaptée à l'exploitation par TCD mais tu ne nous as pas répondu...