Sommaire

Compléments

Si vous devez réaliser d’autres macros, utilisez toujours pour débuter le mode enregistrement, ceci vous permettra d’obtenir simplement les syntaxes Visual Basic des différentes fonctionnalités des tableaux croisés. Vous pourrez ainsi obtenir et modifier le code pour filtrer, regrouper, modifier les formats…

Nous vous présentons ci-après quelques codes.

Ne pas afficher la liste des champs

  ActiveWorkbook.ShowPivotTableFieldList = False 

Formater les valeurs du tableau en euro

    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _ 
        "Somme de MONTANT") 
        .NumberFormat = "# ##0,00 €" 
    End With

Actualiser un tableau croisé

    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh

Actualiser tous les tableaux croisés

    ActiveWorkbook.RefreshAll

Supprimer les totaux des lignes

    ActiveSheet.PivotTables("Tableau croisé dynamique1").ColumnGrand = False

Supprimer les totaux des colonnes

    ActiveSheet.PivotTables("Tableau croisé dynamique1").RowGrand = False

Afficher le total des colonnes et masquer le total des lignes

    With ActiveSheet.PivotTables("Tableau croisé dynamique1") 
        .ColumnGrand = False 
        .RowGrand = True  ...