Microsoft Excel est une application de tableur. Une caractéristique de ce programme est que vous pouvez utiliser ses feuilles de calcul pour stocker des données de manière similaire à la façon dont vous le feriez dans une base de données, puis le référencer dans des affichages graphiques dynamiques. Il existe deux types d`affichages que vous pouvez utiliser: tableaux et graphiques croisés dynamiques. PivotTables peuvent être utilisés pour trier, filtrer et résumer 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 l`arrière-plan.
Créer un objet tableau croisé dynamique dans VBA de sorte que vous pouvez mettre à jour la source. Copiez le code ci-dessous et de le mettre dans votre fonction macro ou.
Dim ptMyPivotTable Comme PivotTable
Connectez votre objet PivotTable avec votre tableau croisé dynamique réelle. Copiez le code ci-dessous.
Set ptMyPivotTable = ActiveSheet.PivotTables (1)
Mettre à jour la propriété SourceData de votre objet PivotTable aux nouvelles valeurs. Vous pouvez le faire en copiant le code VBA fourni. Remplacez votre gamme de données souhaité à la place de "A1" dans l`exemple.
ptMyPivotTable.SourceData = Range ("A1") .CurrentRegion.Address (True, True, xlR1C1, True)
Pour référencer une plage sur une autre feuille, vous pouvez utiliser le code suivant.
ptMyPivotTable.SourceData = Sheets ("mySheetName"). [A1] .CurrentRegion.Address (True, True, xlR1C1, True)
Mettre à jour les données réellement affichées dans votre tableau croisé dynamique en utilisant la commande VBA ci-dessous.
ptMyPivotTable.RefreshTable
Relâchez les ressources que vous avez utilisé dans votre objet PivotTable en la mettant égale à Nothing.
Réglez ptMyPivotTable = Nothing
Conseils & Avertissements
- Vous pouvez avoir les données de votre tableau croisé dynamique actualiser chaque fois que les modifications de données réelles. Pour ce faire vient de mettre votre feuille de calcul pour calculer automatiquement et ajouter la commande RefreshTable à la fonction Worksheet_Calculate. Voir le lien dans la section Ressources pour plus de détails.
