[VBA] Déplacement d'un bouton de façon fluide

Bonsoir,

J'aimerais bien déplacer un bouton d'une certaine distance et que l'utilisateur puisse voir son déplacement en entier.

J'ai trouvé une vidéo explicative mais le code ne fonctionne pas chez moi, je ne sais pas si c'est une erreur de ma part ou bien que cela ne fonctionne pas avec ce que je veux faire.

Voici mon code (Le boutons ce déplace mais sans qu'on le voit)

Private Sub CmdStart_Click()

secondes = 0.1

For i = 1 To 200

    timer_avant = Timer

    Do While Timer < timer_avant - secondes
        DoEvents
    Loop
    Cmd1.Left = 204 - i
    Cmd2.Left = 204 - i
Next
End Sub

Merci de vos réponses.

Bonjour,

L'événement concerne l'objet CmdStart et tu déplaces les objets cmd1 et cmd2.

Et tel que c'est écrit c'est un bouton dans un formulaire, pas sur une feuille.

eric