Macro pour calcul moyenne dans TCD

K

kjin

XLDnaute Barbatruc

• 28 Août 2008

• #2

Re : Macro pour calcul moyenne dans TCD

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

 

Pièces jointes

• TCD_moyenne_V1.zip

  4.8 KB · Affichages: 56

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 28 Août 2008

• #3

Re : Macro pour calcul moyenne dans TCD

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

 

Pièces jointes

• TCD_moy_V1.zip

  5.1 KB · Affichages: 41

Vote positif 0 Vote négatif

lorsaint

XLDnaute Occasionnel

• 28 Août 2008

• #4

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 28 Août 2008

• #5

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

 

Pièces jointes

• TCD_moy_V2.zip

  13.5 KB · Affichages: 52

Dernière édition: 28 Août 2008

Vote positif 0 Vote négatif

lorsaint

XLDnaute Occasionnel

• 28 Août 2008

• #6

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 28 Août 2008

• #7

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"

Cliquez pour agrandir...

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"

Cliquez pour agrandir...

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

 

Pièces jointes

• TCD_moy_V3.zip

  15 KB · Affichages: 47

Dernière édition: 28 Août 2008

Vote positif 0 Vote négatif