Discussion :

[sarrsouraa]

Bonjour tout le monde
Voici mon problème j'ai un pivot table dans Sheet1 et des données dans sheet2 j'ai besoin après des changements dans sheet2 de changer data source de mon pivot table afin qu'il prend en compte mes changements j'ai essayé ainsi mais ça me fait des erreurs:

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
Sub Change_Pivot_TableDataSource()
 
Dim oPT As PivotTable
Dim oPC As PivotCache
Dim ORange As Range
 
 
Set oPT = Sheets("sheet1").PivotTables("PivotTable1")
Set oPC = oPT.PivotCache
Set ORange = Sheets("sheet2").Range("A2:AB" & Sheets("shee").Range("C65536").End(xlUp).Row)
 
oPC.SourceData = "TD_Reporting_EU_Breakdown!" & Application.ConvertFormula(ORange.Address, xlA1, xlR1C1)
 
oPT.RefreshTable
If Not oPT Is Nothing Then Set oPT = Nothing
If Not oPC Is Nothing Then Set oPC = Nothing
End Sub

merciiiiiiii d'avance

[pgz]

Bonjour.

Tu peux éviter d'avoir à mettre à jour la source.

1. Tu définis un nom (nfSource) = DECALER(Sheet1!$A$2;0;0;NbVAL(Sheet1!$C:$C);28)
2. Tu écris ensuite comme source du TCD : = nfSource

Et plus besoin de procédure VBA.

Cordialement,

PGZ

[sarrsouraa]

Merci beaucoup pour ta réponse j'ai fait comme tu m'a dit de créer un ranging name et ensuite quand je clique sur change data source et j'ecris le name que j'ai crée il m'affiche un message d'erreur en me disant que le Field sélectionné n'est pas correcte.

Est ce que t'aurais une idée
Merciii

[pgz]

Re,

Tu dois d'abord vérifier que le nom est correctement défini. Dans le gestionnaire des noms, tu sélectionnes nfSource, commande MODIFIER. Dans la fenêtre de définition du nom, zone Fait référence à, tu cliques à droite sur le réducteur de fenêtre. Tu passes alors à la sélection des cellules dans la feuille Sheet1.
Tu vérifies alors que la plage (encadrée en pointillés) est correcte.

PGZ