Bonjour,
Je souhaite effectuer un zoom (zmin;zmax) sur 10 courbes, mais mon programme VBA si dessous s'arrête !
Sub Macro1()
'
' Macro1 Macro
'
zm = 30000
zp = 31000
For G = 1 To 10
ActiveSheet.ChartObjects("Graphique" G).Activate
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).MinimumScale = zm
ActiveChart.Axes(xlCategory).MaximumScale = zp
Next G
End Sub