Bonjour,
j'essais de faire un graphique a 2 courbes où l'on peut choisir le début et la fin de la plage.
J'ai donc ce code la
Sub graphesla2()
debut = Workbooks("jour.xls").Worksheets("parametre").Range("B7").Value + 1
fin = Workbooks("jour.xls").Worksheets("parametre").Range("B8").Value + 1
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.SeriesCollection(1).XValues = "=DATA!R" & debut & "C1:R" & fin & "C1"
ActiveChart.SeriesCollection(1).Values = "=DATA!R" & debut & "C4:R" & fin & "C4"
ActiveChart.SeriesCollection(2).Values = "=DATA!R" & debut & "C4:R" & fin & "C6"
End Sub
mais cela ne marche pas, je n'ai qu'une courbe sur 2 qui se modifie et une erreur "400" arrive alors...
pourquoi cela ne marche pas?
Que signifie cette erreur?
Merci d'avance pour vos réponses,
Mickaël.
j'essais de faire un graphique a 2 courbes où l'on peut choisir le début et la fin de la plage.
J'ai donc ce code la
Sub graphesla2()
debut = Workbooks("jour.xls").Worksheets("parametre").Range("B7").Value + 1
fin = Workbooks("jour.xls").Worksheets("parametre").Range("B8").Value + 1
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.SeriesCollection(1).XValues = "=DATA!R" & debut & "C1:R" & fin & "C1"
ActiveChart.SeriesCollection(1).Values = "=DATA!R" & debut & "C4:R" & fin & "C4"
ActiveChart.SeriesCollection(2).Values = "=DATA!R" & debut & "C4:R" & fin & "C6"
End Sub
mais cela ne marche pas, je n'ai qu'une courbe sur 2 qui se modifie et une erreur "400" arrive alors...
pourquoi cela ne marche pas?
Que signifie cette erreur?
Merci d'avance pour vos réponses,
Mickaël.