Macro pour calcul moyenne dans TCD

[lorsaint]

Bonjour à tous,

J'ai préparé un TCD ci-joint pour lequel je souhaiterais créer une macro qui calculerait automatiquement la moyenne des notes par Etablissement, Division et Classe, et que ce résultat apparaisse dans la colonne K (hors du TCD) en reprenant la bordure et les couleurs...

Je suis novice en VBA alors un grand merci d'avance à ceux qui pourront me venir en aide.

Voici le fichier.

Merci

Lorsaint

 

[kjin]

Re : Macro pour calcul moyenne dans TCD

Bonjour,
Pourquoi en vba ?
J'ai intégré directement la moyenne dans tous les totaux
A+
kjin

 

[kjin]

Re : Macro pour calcul moyenne dans TCD

Re,
Si tu préfères conserver la structure initiale de ton TCD
A+
kjin

 

[lorsaint]

Re : Macro pour calcul moyenne dans TCD

Merci à tous,

Le TCD sur lequel je travaille est assez complexe et c'est la raison pour laquelle je ne souhaite pas surcharger davantage mon champ "données". Les 2fichiers que vous m'avez transmis incluent la moyenne dans le TCD, sauf erreur de ma part....

L'idéal serait pour moi la création automatique d'une colonne supplémentaire hors du TCD calculant la moyenne par ets/Division/Classe !

Est-ce possible ?

D'avance merci

Lorsaint

 

[kjin]

Re : Macro pour calcul moyenne dans TCD

Re,
J'ai simplement créer un nouveau TCD par macro dont la source de données est le TCD1. Active le bouton pour actualiser le TCD Moyenne après l'actualisation du TCD1.
Je te laisse faire la mise en forme.
A+
kjin

 

[lorsaint]

Re : Macro pour calcul moyenne dans TCD

Merci bcq Kjin!

Je testerai cette macro sur mon tableau original demain !

Merci encore et bonne soirée

 

[kjin]

Re : Macro pour calcul moyenne dans TCD

Re,
Comme tu dois recopier le code sur un autre classeur, pour éviter les bugs j'ai ajouter le contrôle pour vérifier si le TCD moyenne ("Tableau croisé dynamique2", c'est son vrai nom) existe avant de le supprimer
Par ailleur, la source étant ton TCD initial qui s'appelle actuellement "Tableau croisé dynamique1", il faudra vérifier que ce nom est bien le même sur le classeur auquel tu destines la macro; sinon changer le nom dans la macro ici

ActiveSheet.PivotTableWizard SourceType:=xlPivotTable, SourceData:= _
"Tableau croisé dynamique1", TableDestination:= _
Range("L4"), TableName:="Tableau croisé dynamique2"

Le TCD est créé en L4 mais peut-être n'est ce pas la bonne adresse, auquel cas il faut l'indiquer ici

ActiveSheet.PivotTableWizard SourceType:=xlPivotTable, SourceData:= _
"Tableau croisé dynamique1", TableDestination:= _
Range("L4"), TableName:="Tableau croisé dynamique2"

Du coup, j'en ai profité pour faire la mise en forme
A+
kjin