kiki
-
Modifié par Whismeril le 12/05/2015 à 09:33
kiki -
19 mai 2015 à 10:48
Bonjour,
Je suis étudiant, actuellement en stage je n'arrive pas à résoudre mon problème de "DefaultVersion:=xlPivotTableVersion12" j'ai beau cherché sur tout les sites je ne trouve aucune réponse pouvez-vous m'aider?
Voici ma macro:
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Tableau4[#Tout]", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="avril 2015!R29C6", TableName:= _
"Tableau croisé dynamique3", DefaultVersion:=xlPivotTableVersion12 Sheets("avril 2015").Select
Cells(29, 6).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Motif")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique3").PivotFields("Coût des pièces "), _
"Somme de Coût des pièces ", xlSum
ActiveWorkbook.ShowPivotTableFieldList = False
Bonjour,
hé bien ===>> boucle donc sur toutes les feuilles et imbrique dans cette boucle celle (qui t'a été montrée) traitant tes charts.
Les feuilles sont dans une collection (worksheets) et on boucle donc sur elles ainsi :
Dim sh As Worksheet For Each sh In Worksheets ... Next
Quel est le problème exactement ?
Est-ce que ton fichier doit être utilisé sur plusieurs versions Office ?
Y a-t-il un message d'erreur ? si oui lequel ?
Merci de votre réponses j'ai totalement changé de macro.
Cependant il me manque quelque détail que je n'arrive pas à modifier
1- J'aimerais agrandir et déplacer mon graphique
2- J'aimerais ajouter une étiquette de données
3- J'aimerais ajouter un titre
4- il m'arrive d'avoir des critères à 0% j'aimerais le supprimer.
1-La macro ne fonctionne pas est elle n'agit que sur un graphique et non tout les graphiques comme je l'aimerais.
pourquoi tu ne passe pas par l'enregistrement d'une macro ?
tu lance l'enregistrement et tu fais tous a la mains une fois tu arrête l'enregistrement et pouf ta macro est crée ^^
Oui je sais c'est ce que j'ai utilisé pour toutes mes macros cependant quand je fait ma macro pour déplacer et agrandir rien ne se passe, mais la macro ne me dit pas qu'il y a une erreur. Pour le titre et l'étiquette de données j'ai réussi à faire la macro le seul Bémol c'est que je dois cliquer sur le graphique avant pour qu'elle fonctionne et donc cela fait une étape en plus.
aprè sje suis pas vraiment celle qui va t'aider j'y connais peut etre moins que toi je te proposer une solution car j'ai fait comme ca moi pour certaines de mes macro :/