Comment modifier plusieurs paramètres de champ dans un tableau croisé dynamique ?

Lorsque vous créez un tableau croisé dynamique dans une feuille de calcul, après avoir fait glisser les champs vers la liste Valeurs dans la liste des champs du tableau croisé dynamique, vous pourriez obtenir toutes les fonctions Compter comme le montre la capture d'écran suivante. Mais maintenant, vous souhaitez que la fonction Somme remplace la fonction Compter immédiatement. Comment pouvez-vous changer le calcul de plusieurs champs du tableau croisé dynamique en même temps dans Excel ?

Modifier manuellement les paramètres des champs dans le tableau croisé dynamique un par un

Modifier plusieurs paramètres de champ dans un tableau croisé dynamique avec du code VBA

Modifier manuellement les paramètres des champs dans le tableau croisé dynamique un par un

Dans Excel, vous pouvez modifier le calcul des paramètres des champs en changeant la fonction une par une dans la boîte de dialogue Paramètres des champs de valeur, veuillez procéder comme suit :

1. Sélectionnez un champ dans la zone Valeurs pour lequel vous souhaitez modifier la fonction de résumé dans le tableau croisé dynamique, puis faites un clic droit et choisissez Paramètres des champs de valeur, voir la capture d'écran :

2. Ensuite, dans la boîte de dialogue Paramètres des champs de valeur, sélectionnez un type de calcul que vous souhaitez utiliser sous l'onglet Résumer les valeurs par, voir la capture d'écran :

3. Cliquez ensuite sur OK pour fermer cette boîte de dialogue, et vous pouvez voir que votre fonction Compter a été changée en fonction Somme, voir la capture d'écran :

4. Répétez les étapes ci-dessus pour modifier les paramètres de calcul des autres champs un par un.

Remarque : Vous pouvez également modifier les paramètres des champs en faisant un clic droit sur une cellule de champ et choisir Résumer les valeurs par, puis sélectionner un calcul dont vous avez besoin à partir des menus contextuels.

Modifier plusieurs paramètres de champ dans un tableau croisé dynamique avec du code VBA

La méthode ci-dessus peut être chronophage et fastidieuse s'il y a beaucoup de calculs de champs à modifier. Ici, je peux vous présenter un code pour modifier plusieurs paramètres de champ en même temps.

1. Cliquez sur n'importe quelle cellule de votre tableau croisé dynamique.

2. Maintenez les touches ALT + F11 enfoncées, et cela ouvre la fenêtre Microsoft Visual Basic pour Applications.

3. Cliquez sur Insertion > Module, et collez le code suivant dans la fenêtre Module.

Code VBA : Modifier plusieurs paramètres de champ dans un tableau croisé dynamique

Public Sub SetDataFieldsToSum()
'Update 20141127
Dim xPF As PivotField
Dim WorkRng As Range
Set WorkRng = Application.Selection
With WorkRng.PivotTable
   .ManualUpdate = True
   For Each xPF In .DataFields
      With xPF
         .Function = xlSum
         .NumberFormat = "#,##0"
      End With
   Next
   .ManualUpdate = False
End With
End Sub

4. Appuyez ensuite sur la touche F5 pour exécuter ce code, et tous les paramètres des champs dans votre tableau croisé dynamique sélectionné auront été convertis au calcul dont vous avez besoin en une seule fois, voir les captures d'écran :

Remarque : Dans le code ci-dessus, vous pouvez changer la fonction Somme pour tout autre calcul, tel que Moyenne, Maximum, Minimum selon vos besoins. Il vous suffit de remplacer Somme dans ces scripts : Public Sub SetDataFieldsToSum() et .Function = xlSum par d'autres fonctions.