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 des champs vers la zone Valeurs de la liste des champs du tableau croisé dynamique, Excel applique par défaut la fonction Nombre, comme illustré dans la capture d’écran suivante. Mais maintenant, vous souhaitez remplacer d’un seul coup cette fonction Nombre par la fonction Somme. Comment modifier en une seule fois le calcul de plusieurs champs dans un tableau croisé dynamique sous Excel ?
Modifier les Paramètres de champ dans Tableau croisé dynamique manuellement, un par un
Modifier plusieurs Paramètres de champ dans Tableau croisé dynamique à l’aide d’un code VBA
Modifier les Paramètres de champ dans Tableau croisé dynamique manuellement, un par un
Dans Excel, vous pouvez modifier le calcul des Paramètres de champ en changeant la fonction une par une dans la boîte de dialogue Valeur Paramètres de champ, procédez comme suit :
1. Sélectionnez un champ dans la zone Valeurs du Tableau croisé dynamique dont vous souhaitez modifier la fonction de synthèse, cliquez avec le bouton droit et choisissez Valeur Paramètres de champ, voir la capture d’écran :
2. Dans la boîte de dialogue Valeur Paramètres de champ, sélectionnez le type de calcul souhaité sous l’onglet Synthétiser les valeurs par. Voir la capture d’écran :
3. Cliquez ensuite sur OK pour fermer cette boîte de dialogue ; vous verrez alors que votre fonction Nombre a été remplacée par la fonction Somme, comme le montre la capture d’écran :
4. Répétez les étapes ci-dessus pour ajuster, un par un, les paramètres de calcul des autres champs.
Remarque : Vous pouvez également modifier les paramètres de champ en cliquant avec le bouton droit sur une cellule de champ, en choisissant Synthétiser les valeurs par, puis en sélectionnant le calcul souhaité dans le menu contextuel.
Modifier plusieurs Paramètres de champ dans Tableau croisé dynamique à l’aide d’un code VBA
La méthode précédente peut s’avérer longue et fastidieuse lorsqu’il y a de nombreux calculs de champs à modifier. Je vous propose donc un code permettant d’ajuster simultanément les paramètres de plusieurs champs.
1. Cliquez sur n’importe quelle cellule de votre tableau croisé dynamique.
2. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
3. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre du module.
Code VBA : Modifier plusieurs Paramètres de champ dans 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 : tous les paramètres de champ de votre tableau croisé dynamique sélectionné seront alors convertis simultanément en calcul souhaité. Voir les captures d’écran :
|
 |
 |
Remarque : Dans le code ci-dessus, vous pouvez remplacer la fonction Somme par tout autre calcul — comme Moyenne, Max ou Min — selon vos besoins. Il vous suffit de modifier « Somme » dans les lignes suivantes :Public Sub SetDataFieldsToSum() et .Function = xlSum, en remplaçant ces occurrences par la fonction correspondante.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels