[myDearFriend!]

Bonjour jmboutbout, CB60, le Forum,

Posté par CB60

Bonjour à tous
Voici quelques modif, si quelqu'un a une idée pour coupler les deux macros, je n'ai pas réussi ( probléme rafraichissement???)

Dans le module de code, tu peux remplacer l'ensemble par :

DANS UN MODULE DE CODE STANDARD

Option Explicit

Sub AnimateChart()
Dim StartVal As Long, r As Long
    Range("depart").Value = "0"
    With ActiveSheet.ChartObjects("Graph1").Chart
        .Axes(xlValue).MinimumScale = Range("k4").Value
        .Axes(xlValue).MaximumScale = Range("k5").Value
        .Axes(xlValue).MinorUnitIsAuto = True
        .Axes(xlCategory).MinimumScale = Range("k7").Value
        .Axes(xlCategory).MaximumScale = Range("k8").Value
        .Axes(xlCategory).MinorUnitIsAuto = True
    End With
    StartVal = Range("depart")
    For r = StartVal To 492 - Range("nbvaleur")
        Range("depart").Value = Range("depart").Value + 1
        DoEvents
    Next r
End Sub

Cordialement,