Sommaire

Modifier la plage source à l’aide d’une macro

Pour que la macro puisse enregistrer le positionnement du curseur dans le tableau croisé dynamique, cliquez tout d’abord dans une cellule d’une autre feuille que la feuille TABCROIS.

Dans l’onglet Développeur, groupe Code, cliquez sur Enregistrer une macro.

Saisissez le nom de la macro ModifSource dans la boîte de dialogue puis validez.

À partir de maintenant, Excel enregistre toutes vos actions.

Sélectionnez la feuille TABCROIS puis cliquez sur une cellule du tableau croisé.

Dans l’onglet Outils de tableau croisé dynamique - Analyse, groupe Données, cliquez sur le bouton Changer la source de données, puis saisissez le nom de la plage dynamique correspondant au deuxième site :

images/C10-09.PNG

Validez par OK.

Cliquez en G1 pour sortir du tableau croisé.

Arrêtez l’enregistrement.

Le listing de la macro est détaillé ci-dessous :

Sub ModifSource() 
’ ModifSource Macro 
’ 
’ 
    Sheets("TABCROIS").Select 
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotSelect 
"AGENT[All]", _ 
       xlLabelOnly + xlFirstRow, True 
    Range("A9").Select 
    ActiveSheet.PivotTables("Tableau croisé dynamique1").ChangePivotCache _ 
       ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, ...