Modifier le champs data via valeur listé

**Coffe_taff** · 19/03/2013, 09h23

Bonjour,
I need your help:
J'ai un TCD dans une feuilles dons certains champs sont pilotable depuis une autre feuille, via l'atttribution d'un nom lié a une liste
Par contre j n'arrive pas à remplacer le contenu de data.
peut être que vous pouvez m'aider ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sheets("Sheet1").Select
Dim Regions As String
Dim Product_family As String
Dim Booked As String
Dim Valeur As String
    result = Range("Regions").Value
    result1 = Range("Product_family").Value
    result2 = Range("Booked").Value
    result3 = Range("Valeur").Value
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Region").CurrentPage = result
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Product Family").CurrentPage = result1
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Booked").CurrentPage = result2
 
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
        "PivotTable1").PivotFields = result3, "Result3", _
xlSum
 
 End Sub

Hellllllllp

**Daniel.C** · 19/03/2013, 12h53

Bonjour,

Par contre j n'arrive pas à remplacer le contenu de data.

Tu veux dire "le champ de valeur" ? Est-ce que tu as un message d'erreur ?

Quel est le contenu des variables resultx ?

**Coffe_taff** · 19/03/2013, 14h33

Salut merci de t'intérésser à mon probleme.
Ici le result qui m'interesse est le result3
La valeur qui s'en result est correct par contre la parti qui ne fonctionne pas est de la ligne 14 à 16, je ne sais pas si : AddDataField ActiveSheet.PivotTables("PivotTable1").PivotFields = result3 est une fonction acceptable ? surtout la fin : PivotFields = result3
sachant que sur une forme classic se serait PivotFields ("nom_du_champ").
result 3 est associé a un nom qui est lié on concatenage de 2 cellules.
la premiere pour le type la segonde pour l'année les deux formant l'intitulé d'une des collones de la source du tableau d'origine.