[COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]
[COLOR=NAVY]Option Explicit[/COLOR]
[COLOR=NAVY]Sub[/COLOR] AnimateChart()
[COLOR=NAVY]Dim[/COLOR] StartVal [COLOR=NAVY]As Long[/COLOR], r [COLOR=NAVY]As Long[/COLOR]
Range("depart").Value = "0"
[COLOR=NAVY]With[/COLOR] ActiveSheet.ChartObjects("Graph1").Chart
.Axes(xlValue).MinimumScale = Range("k4").Value
.Axes(xlValue).MaximumScale = Range("k5").Value
.Axes(xlValue).MinorUnitIsAuto = [COLOR=NAVY]True[/COLOR]
.Axes(xlCategory).MinimumScale = Range("k7").Value
.Axes(xlCategory).MaximumScale = Range("k8").Value
.Axes(xlCategory).MinorUnitIsAuto = [COLOR=NAVY]True
End With[/COLOR]
StartVal = Range("depart")
[COLOR=NAVY]For[/COLOR] r = StartVal [COLOR=NAVY]To[/COLOR] 492 - Range("nbvaleur")
Range("depart").Value = Range("depart").Value + 1
DoEvents
[COLOR=NAVY]Next[/COLOR] r
[COLOR=NAVY]End Sub[/COLOR]