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)
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:
Cependant cela ne fontionne pas car le graphique ne se met pas à jour pendant l'exécution de la macro, mais seulement à la fin...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Quelqu'un aurait une solution à me proposer?
Merci
Partager