Discussion :

[bonilla]

Bonjour,

J'ai une question assez difficile (a mon gout)

Je passe par du code pour faire un TCD.Jusque la rien de sorcier.
Sur mon code il y a bien les .addfields Rowfields :=Array("Nom","Prénom" ,"Trimestre" , "Notes" ,"Année","Matiere")

Ce que je voudrais faire ,c'est prendre les sommes que donne le TCD et les stocker sur des variables que j'aurais précedemment déclarer

Sur mon exemple, pouvoir récuperer la note sur chaque matiere.

Quelqu'un a une idée?

[SilkyRoad]

bonjour

Je ne suis pas sur d'avoir compris mais tu peux tester la méthode GetData

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
NomVariable = Worksheets("Feuil4").PivotTables("Tableau croisé dynamique1"). _
    GetData("'Somme de Chiffre affaire' 'Ville' 'Lyon'")

et l'équivalent par formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=LIREDONNEESTABCROISDYNAMIQUE("Somme de Chiffre affaire";Feuil4!$A$3;"Ville";"Lyon")

'A3 étant une cellule du TCD



bonne journée
michel

[bonilla]

Mon objectif c'est de prendre les valeurs (les Sommes ) qu'un TCD donne lorsqu'il est créé.
Comme le TCD n'est pas fixe (a certains trimestres,on peut avoir + d'eleves, + ou - de notes ,+ ou - de matieres) ,ca serait bien de recuperer les sommes du TCD en les stockant dans des variables.

Je test ton code VBA sur ma macro et je reviens vous dire ce que ca donne!
En tout cas merci pour le bout de code!

[bonilla]

le GetData ,il marche comment ?
GetData("'Somme de Chiffre affaire' 'Ville' 'Lyon'")

Y'a une colonne Somme de Chiffre affaire
une colonne Ville?

[SilkyRoad]

oui et dans la colonne 'Ville', il y a un élément nommé 'Lyon'. GetData renvoie dans cet exemple la valeur correspondante contenus dans la colonne 'Somme de Chiffre affaire'.


bonne soirée
michel

[bonilla]

Merci pour le renseignement!
j'en prends note