Probleme Option de graphique
N
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.