Probleme Option de graphique

Bonjour a tous,

J'ai un problème sur un fichier excel avec des macro. La macro en question met a jour des graphique, voici le code :

Sub Chart()

Sheets("Feuil1").Select
a = Range("A1").Value
b = Range("Z1")

Sheets("Cours - Volume N-1").Select
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("Z2:AA" & b & ",AE2:AE" & b)
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.FullSeriesCollection(1).ChartType = xlColumnClustered
    ActiveChart.FullSeriesCollection(1).AxisGroup = 1
    ActiveChart.FullSeriesCollection(2).ChartType = xlLine
    ActiveChart.FullSeriesCollection(2).AxisGroup = 1
    ActiveChart.FullSeriesCollection(2).AxisGroup = 2
    ActiveChart.FullSeriesCollection(1).ChartType = xlLine
    ActiveChart.FullSeriesCollection(2).ChartType = xlAreaStacked

Sheets("Cours - Volume N").Select
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A2:B" & a & ",F2:F" & a)
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.FullSeriesCollection(1).ChartType = xlColumnClustered
    ActiveChart.FullSeriesCollection(1).AxisGroup = 1
    ActiveChart.FullSeriesCollection(2).ChartType = xlLine
    ActiveChart.FullSeriesCollection(2).AxisGroup = 1
    ActiveChart.FullSeriesCollection(2).AxisGroup = 2
    ActiveChart.FullSeriesCollection(1).ChartType = xlLine
    ActiveChart.FullSeriesCollection(2).ChartType = xlAreaStacked

Sheets("Cours - Volat N-1").Select
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("Z2:AA" & b & ",AI2:AI" & b)
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.FullSeriesCollection(1).ChartType = xlColumnClustered
    ActiveChart.FullSeriesCollection(1).AxisGroup = 1
    ActiveChart.FullSeriesCollection(2).ChartType = xlLine
    ActiveChart.FullSeriesCollection(2).AxisGroup = 1
    ActiveChart.FullSeriesCollection(2).AxisGroup = 2
    ActiveChart.FullSeriesCollection(1).ChartType = xlLine

Sheets("Cours - Volat N").Select
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A2:B" & a & ",J2:J" & a)
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.FullSeriesCollection(1).ChartType = xlColumnClustered
    ActiveChart.FullSeriesCollection(1).AxisGroup = 1
    ActiveChart.FullSeriesCollection(2).ChartType = xlLine
    ActiveChart.FullSeriesCollection(2).AxisGroup = 1
    ActiveChart.FullSeriesCollection(2).AxisGroup = 2
    ActiveChart.FullSeriesCollection(1).ChartType = xlLine

Sheets("Performance N-1").Select
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("BD1:BD44")
    ActiveChart.FullSeriesCollection(1).XValues = "=Feuil1!$BC$2:$BC$44"

Sheets("Performance N").Select
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("BI1:BI44")
    ActiveChart.FullSeriesCollection(1).XValues = "=Feuil1!$BH$2:$BH$44"

Sheets("Volat INTR N-1").Select
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("BO1:BO21")
    ActiveChart.FullSeriesCollection(1).XValues = "=Feuil1!$BN$2:$BN$21"

Sheets("Volat INTR N").Select
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("BS1:BS21")
    ActiveChart.FullSeriesCollection(1).XValues = "=Feuil1!$BR$2:$BR$21"

Sheets("Graph Comp").Select
        ActiveChart.SetSourceData Source:=Sheets("Données").Range("DS14:DS313")
        ActiveChart.SetSourceData Source:=Sheets("Données").Range( _
        "DS14:DS313,DU14:DW313")

End Sub

Sub TCD()

' macro pour graph volume en fonction heures journée

Sheets("GCD").Select
Range("A3").PivotTable.RefreshTable

plagechart1 = Sheets("GCD").Range(Sheets("GCD").Cells(4, 1), Sheets("GCD").Cells(4, 1).End(xlDown)).Address(, , xlR1C1, True)
plagechart2 = Sheets("GCD").Range(Sheets("GCD").Cells(4, 3), Sheets("GCD").Cells(4, 3).End(xlDown)).Address(, , xlR1C1, True)

Sheets("GCD").ChartObjects("Graphique 7").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.FullSeriesCollection(1).XValues = "= " & plagechart1 & ""
    ActiveChart.FullSeriesCollection(1).Values = "=" & plagechart2 & ""

End Sub

J'ai un problème sur les graphiques Cours - Volume N-1 & Cours - Volume N. le code est le même que pour les autres graphiques, néanmoins, il m'est impossible de modifier les options de graphiques. Je souhaiterai ajouter un quadrillage et l'axe horizontale, comprenant des dates, mais des que j'utilise la macro, ces deux paramètres s’enlève. Je tiens a mentionner que cela fonctionne sur tout les autres graphiques. Désolé, le fichier étant vraiment volumineux je ne peux le déposer. Et je n'ai pas réussi a reproduire la bug sous un autre fichier. Merci de votre aide.

Rechercher des sujets similaires à "probleme option graphique"