Microsoft Excel est un tableur . Une particularité de ce programme est que vous pouvez utiliser ses feuilles pour stocker des données de manière similaire à la façon dont vous le feriez dans une base de données , puis la référencer dans des affichages graphiques dynamiques. Il existe deux types d'écrans que vous pouvez utiliser : les tableaux croisés dynamiques . Les tableaux croisés dynamiques peuvent être utilisées pour trier, filtrer et synthétiser vos données. La seule façon de changer la source de données utilisée par un tableau croisé dynamique une fois qu'il a été créé par l'assistant est de le mettre à jour à partir du code VBA dans le fond. Instructions
1

Créer un objet de tableau croisé dynamique en VBA de sorte que vous pouvez mettre à jour la source. Copiez le code ci-dessous et de le mettre dans votre macro ou fonction.

PtMyPivotTable As tableau croisé dynamique
2

Connectez votre objet tableau croisé dynamique avec votre tableau croisé dynamique réelle. Copiez le code ci-dessous .

Set ptMyPivotTable = ActiveSheet.PivotTables (1)
3

jour la propriété SourceData de votre objet tableau croisé dynamique pour les nouvelles valeurs. Vous pouvez le faire en copiant le code VBA fourni. Remplacez votre plage de données souhaitée à la place de "A1" dans l'exemple.

PtMyPivotTable.SourceData = Range (" A1") . CurrentRegion.Address ( vrai, c'est vrai , xlR1C1 , True)

pour faire référence à une gamme sur une autre feuille , vous pouvez utiliser le code suivant.

ptMyPivotTable.SourceData = Sheets (" mySheetName " ) . [A1] . CurrentRegion.Address ( vrai, c'est vrai , xlR1C1 , True)
4

jour les données réellement affichées dans votre tableau croisé dynamique en utilisant la commande VBA ci-dessous.

ptMyPivotTable.RefreshTable
5

libérer les ressources que vous avez utilisés dans votre objet tableau croisé dynamique en le définissant égale à Nothing .

Set ptMyPivotTable = Nothing