1 pièce(s) jointe(s)
Problème de mise à jour graphique dynamique
Bonjour tout le monde,
J'ai tracé sous excel un graphique qui représente un système bielle-manivelle et je fais changer la valeur d'un paramètre avec une barre de défilement. Ce paramètre c'est l'angle alpha (cf image)
Pièce jointe 151465
lorsque je clique sur la barre de défilement je modifie l'angle alpha et tous les autres points sont recalculés en fonction de la valeur de alpha.
Ce que je voudrais faire c'est créer une animation en appuyant sur un bouton où alpha varierait de 0 à 360°.
J'ai essayé ceci:
Code:
1 2 3 4 5 6 7 8 9 10
| Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub CommandButton1_Click()
For i = 1 To 360
Range("b5").Value = i 'B5 est la cellule où la valeur de alpha est donnée
Sleep 100 'en milliseconde
Next i
End Sub |
Cependant cela ne fontionne pas car le graphique ne se met pas à jour pendant l'exécution de la macro, mais seulement à la fin...
Quelqu'un aurait une solution à me proposer?
Merci