Graphique à évolution automatique

[COLOR="DarkSlateGray"][B]Option Explicit

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub LancementGraph()
Dim i&
   For i = 1 To 33
      If i > 1 Then Call Tempo
      ActiveSheet.ChartObjects("Chart 4").Chart.SeriesCollection(1).Values = Sheets("Graph").Range("B15:B15").Resize(i, 1)
      Application.ScreenUpdating = True
   Next
End Sub

Sub RéinitialiserGraph()
   ActiveSheet.ChartObjects("Chart 4").Activate
   ActiveChart.ChartType = xlLine
   With ActiveChart.SeriesCollection(1)
      With .Border
         .Weight = xlThin
         .LineStyle = xlAutomatic
      End With
      .MarkerBackgroundColorIndex = xlAutomatic
      .MarkerForegroundColorIndex = xlAutomatic
      .MarkerStyle = xlDiamond
      .Smooth = False
      .MarkerSize = 8
      .Shadow = False
      .Values = Sheets("Graph").Range("B15:B15")
   End With
End Sub

Sub Tempo()
   Sleep (1000)
End Sub[/B][/COLOR]