SARdynamite
XLDnaute Junior
Bonsoir,
Je cherche à animer le texte d'un bouton au moment ou je clique dessus. J'ai donc pensé utiliser une pause entre 2 instructions sinon l'excéution (changement du texte du bouton) est trop rapide.
J'ai besoin d'aide pour la fonction Pause car les scripts que j'ai trouvé ne fonctionnent pas.
Je vous remercie.
Je cherche à animer le texte d'un bouton au moment ou je clique dessus. J'ai donc pensé utiliser une pause entre 2 instructions sinon l'excéution (changement du texte du bouton) est trop rapide.
J'ai besoin d'aide pour la fonction Pause car les scripts que j'ai trouvé ne fonctionnent pas.
Je vous remercie.
Code:
Private Declare Sub sapiSleep Lib "kernel32"
Alias "Sleep"
(ByVal dwMilliseconds As Long)
Public Sub Pause(TMPS As Variant)
Call sapiSleep(TMPS)
End Sub
Sub variation()
ActiveSheet.Shapes("Button 42").Select
Selection.Characters.Text = "Q"
Pause 1000
Selection.Characters.Text = "R"
Pause 1000
Selection.Characters.Text = "Q"