TCD macroRésolu

Question

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


EDIT: Ajout de la coloration syntaxique.

cs_MPi · Answer

Bonjour,

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 ?

kiki · Answer

Bonjour,

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.

Macro:

ActiveSheet.ChartObjects("Graphique 12").Activate
    ActiveChart.PlotArea.Select
    Selection.Left = 16.782
    Selection.Top = 11
    ActiveSheet.ChartObjects("Graphique 12").Activate
    ActiveChart.ChartArea.Select
    ActiveSheet.ChartObjects("Graphique 12").Activate

2-La macro fonction mais uniquement sur le graphique selectionner existe t'il une formule pour prendre en compte tout les graphiques?

Macro:

ActiveSheet.ChartObjects("Graphique 12").Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveSheet.ChartObjects("Graphique 12").Activate
    ActiveChart.SeriesCollection(1).ApplyDataLabels

3- Toujours le même problème avec un seul graphique et quand le macro fonctionne le titre ce superpose au graphique et ne se met pas au dessus.

Macro:

ActiveSheet.ChartObjects("Graphique 11").Activate
    ActiveChart.SetElement (msoElementChartTitleAboveChart)
    ActiveSheet.ChartObjects("Graphique 11").Activate
    ActiveChart.ChartTitle.Text = _
        "Pièces non prévues dans le recore" & Chr(13) & "Janvier 2015" & Chr(13) & "Total XXXXXX€"
    ActiveSheet.ChartObjects("Graphique 11").Activate
    ActiveChart.ChartArea.Select
    ActiveSheet.ChartObjects("Graphique 11").Activate

4- Je n'est pas de macro en existe t'il une?

Merci beaucoup pour votre aide comme vous pouvez voir ce sont des détail mais qui on leur importance pour ma missions.

Encore merci.

cs_MPi · Answer

Pour faire le tour de tes chartes, utilise un code comme ceci.
Change ActiveSheet pour le nom de la feuille si ce n'est pas elle qui est active.

    Dim Obj As ChartObject        For Each Obj In ActiveSheet.ChartObjects        MsgBox Obj.Name    Next

kiki · Answer

Merci mais j'aimerais que la macro se face sur toutes les feuilles et pas juste une :/

ucfoutu · Answer

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 WorksheetFor Each sh In Worksheets  ...Next

kiki · Answer

Sa y est ma macro est terminer et fonctionne bien.

Merci beaucoup à vous tous pour votre aide.

Je reviendrais ici encore merci.

Bonne fin de journée à vous.

TCD macro

6 réponses

Votre réponse