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