« Macros-commandes VBA/Création de Tableau croisé » : différence entre les versions
Contenu supprimé Contenu ajouté
Ligne 531 :
Sub ModifFunction()
'Définition des variabes
Dim TCD As PivotTable
Dim tcd_fld As PivotField
'Affectation du TCD sur lequel on souhaite travailler
Set TCD = ActiveSheet.PivotTables("TCD_Adhérents")
'Remplacement de la fonction "Somme" affectée au champ "Cotisation" par la fonction "Moyenne"
With TCD.PivotFields("Somme de Cotisation")
| |||