Bonsoir lolonene, Jean-Marie, lapinou1, jmps,
Lapinou1, si tu le permets, je vais déjà répondre à Lolonene cette fois.... mais j'essaie de me penche sur tes questions dès ce soir, promis !
Lolonene, pour seulement 2 valeurs j'ai revu un peu le code de la macro et ai essayé de le commenter au maximum afin de te permettre de comprendre le fonctionnement :
Citation:
Sub Animer()
Dim M1 As Variant, M2 As Variant
Dim Vmax As Long, L As Long
With Sheets('Donnees')
'Mémorise les données (en feuille 'Donnees')
M1 = .Range('I33').Value
M2 = .Range('J33').Value
'Détermine la valeur maximum
Vmax = Application.WorksheetFunction.Max(M1, M2)
'Mise à jour de l'échelle de l'ordonnées du Graph
Sheets('Graph').ChartObjects('Graphique 1').Activate
ActiveChart.Axes(xlValue).MaximumScale = Vmax
Sheets('Graph').Range('A1').Activate
'ANIMATION : Incrément des valeurs (et donc du graph !) jusqu'aux valeurs mémorisées
' 'Step 10' permet de doser la rapidité de l'animation (mettre une valeur supérieure à 10
'accélèrera l'animation)
For L = 0 To Vmax Step 10
.Range('I33').Value = Application.WorksheetFunction.Min(L, M1)
.Range('J33').Value = Application.WorksheetFunction.Min(L, M2)
DoEvents 'Permet d'assurer la réactualisation d'affichage du graph
Next L
End With
Beep
End Sub
|
Ci-joint le fichier modifié en conséquence...
Cordialement, [file name=PourLolonene.zip size=15760]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PourLolonene.zip[/file]