Discussion :

[cchampion2fr]

Bonjour,

Je travaille sur plusieurs fichiers et pour l'un de ces fichiers, ma fonction retourne le nombre et pas la somme comme que je le desire.
J'aimerais force l'option somme dans les donnees de mon tableau..comment puis je faire?

Merci.

Code :

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

1
2
 ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Montant"). _
        Orientation = xlDataField

[Pierre Fauconnier]

Bonjour

Y-a-t-il une raison particulière à le faire par VBA? Une fois que ton tableau est fait à la main, il y a peu de raisons de devoir le manipuler par VBA, me semble-t-il...

Toutefois, voici le code

Code :

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

 ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Montant").Function = xlSum

[cchampion2fr]

La concatenation ne se passe pas bien...

Code :

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

1
2
 ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Montant").Function = xlSum _
        Orientation = xlDataField

Il doit y avoir un petit probleme..

je fais çà car c'est un travail qui revient regulierement et c'est pour gagner plusieurs jours de travail.

[Pierre Fauconnier]

Je ne vois pas où tu utilises de la concaténation dans le code que tu donnes...

[cchampion2fr]

ceci fonctionne

Code :

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

1
2
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Montant"). _
        Orientation = xlDataField

mais en rajoutant la fonction sum (code envoyé precemment mais qui contient pas l'orientation), le code bugge...

[Pierre Fauconnier]

Que veux-tu dire par "en rajoutant... le code bugue"...

Peux-tu donner le code qui a créé le bug? rebalancer le code qui fonctionne n'aide absolument pas à voir où le code qui bugue pose problème... Elémentaire, me semble-t-il

[cchampion2fr]

le code qui bugge

Code :

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

1
2
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Montant").Function = xlSum _
        Orientation = xlDataField

le code qui fonctionne

Code :

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

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Montant").Function = xlSum

C'etait deja indiqué..c le fait d'ajouter l'orientation qui bugge.
je dois avoir un souci dans l'ecriture de ce code je pense.

[faves]

Et en faisant comme cela ??

Code :

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

1
2
3
4
5
 
Dim pf As PivotField
pf = ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Montant")
pf.Orientation = xlDataField
pf.Function = xlSum

[Pierre Fauconnier]

Ben oui, tu as un petit souci.

Tu ne peux pas utiliser sur la même ligne de code deux propriétés. Ce sont les bases de VBA qui posent problème, là

Essaie le code que je t'ai donné sans vouloir ajouter des trucs à toi dedans.

Si tu veux jouer sur "l'orientation" et la fonction utilisée, tu dois bien entendu créer deux lignes de code

Code :

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

1
2
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Montant").Function = xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Montant").Orientation = xlDataField