Modifier le champs data via valeur listé

Version imprimable

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:

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

19/03/2013, 11h53
Daniel.C

Bonjour,

Citation:

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 ?
19/03/2013, 13h33
Coffe_taff

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.
19/03/2013, 13h38
Daniel.C

Et tu as essayé "PivotFields (result3)" ?
19/03/2013, 14h00
Coffe_taff

marche pas j'ai une erreure 1004
Unable to get the pivotfield property of the pivot table class
19/03/2013, 14h17
Coffe_taff

Oupsss sa marche !!!
Simplement et efficement , Bravo Daniel thankssssss
your are big bosss