1 2 3 4 5 6 7 8 9 10
| plage10 = "='Indicateur RTAT Aconit'!" & Cells(annee10, r).Address() & ":" & Cells(annee10, s).Address()
plage11 = ";'Indicateur RTAT Aconit'!" & Cells(annee20, t).Address() & ":" & Cells(annee20, u).Address()
plage20 = "='Indicateur RTAT Aconit'!" & Cells(annee1, r).Address() & ":" & Cells(annee1, s).Address()
plage21 = ";'Indicateur RTAT Aconit'!" & Cells(annee2, t).Address() & ":" & Cells(annee2, u).Address()
plage1 = plage10 + plage11
plage2 = plage20 + plage21
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).Values = plage2
ActiveChart.SeriesCollection(1).XValues = plage1 |
Partager