bonjour,
j'ai page qui génère un graphe avec 2 séries de valeurs et deux échelles Y et une echelle X.
j'affiche bien le grph mais je n'arrive pas à rendre les ordonnées indépendante en donnant une principale et une secondaire.
voici mon code merci :
set ChartSpace1 = Server.CreateObject("OWC10.Chartspace.10")
Dim oSeries1, oSeries2
Dim oAxis1, oAxis2
ChartSpace1.Clear
Set oConst = ChartSpace1.Constants
Chartspace1.interior.SetSolid "#008EB4"
'Creation d'un nouveau ChartSpace.
Set oChart = ChartSpace1.Charts.Add
'Ajout d'une série Type colonne.
Set oSeries1 = oChart.SeriesCollection.Add
oSeries1.Caption = "Prélévement"
oSeries1.SetData oConst.chDimCategories, oConst.chDataLiteral, anneet 'TheDate
oSeries1.SetData oConst.chDimValues, oConst.chDataLiteral, IFCPt
oSeries1.Type = oConst.chChartTypeColumnClustered
oSeries1.Interior.SetSolid "#ec6700"
'Add d'une série en ligne.
Set oSeries2 = oChart.SeriesCollection.Add
oSeries2.Caption = "Cotisations*"
oSeries2.SetData oConst.chDimCategories, oConst.chDataLiteral, anneet 'theDate
oSeries2.SetData oConst.chDimValues, oConst.chDataLiteral, PTt
oSeries2.Type = oConst.chChartTypeLineMarkers
oSeries2.Interior.SetSolid "#273c7f"
' Change le Min/Max, format de Nombre de la premiere série.
Set oAxis1 = oChart.Axes(oConst.chAxisPositionLeft)
oAxis1.Scaling.Maximum = getMaxValue(IFCPt, PRIMEUNIQUE)
oAxis1.Scaling.Minimum = 0
oAxis1.NumberFormat = "0 €"
oAxis1.HasMajorGridlines = false
'oAxis1.HasAxis(xlCategory, xlPrimary) = True
'oAxis1.HasAxis(xlValue, xlPrimary) = True
'oAxis1.HasAxis(oConst.xlPrimary) = true
Set oAxis2 = oChart.Axes.Add(oSeries2.Scalings(oConst.chDimValues))
oAxis2.Position = oConst.chAxisPositionRight
oAxis2.HasMajorGridlines = False
oAxis2.NumberFormat = "0 €"
oAxis2.Scaling.Maximum = getMaxValue(PTt, PRIMEUNIQUE)
oAxis2.Scaling.Minimum = 0