Le reste de la formation est réservé aux inscrits.
S'inscrire gratuitementDim pt As PivotTable
Set pt = ActiveSheet.PivotTableWizard( _
SourceType:=xlDatabase, _
SourceData:=Range("Données"))
pt.PivotFields("Région").Orientation = xlRowField
pt.PivotFields("CA").Orientation = xlDataField
En quelques lignes, vous créez un TCD complet. Les avantages : création reproductible, adaptation automatique aux données, pas d'erreur humaine.
Dim pt As PivotTable, ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.RefreshTable
Next pt
Next ws
Placez ce code dans Workbook_Open() pour actualiser automatiquement tous les TCD à l'ouverture du classeur.
À l'ouverture du classeur : Power Query actualise les données → VBA actualise les TCD → les graphiques se mettent à jour. Le DG ouvre le fichier et voit les données du jour, sans rien faire.