Bouton pour arrêter rotation Image

[MuscatMimi]

Bonjour a tous le Forum
Sur une Feuille
J'ai une Image, avec un Bouton pour la Faire tourner
(Code Pris sur cet excellent site et ce grace a d'exellent Excelliens que compte ce site)

Maintenant,je désire mettre un bouton pour arrêter cette Rotation,
je suis pas arrivé a trouver le bon Code
Voici Mon Code Rotation

Sub YaImage()
Dim sh As Shape
Set sh = ThisWorkbook.Sheets("Divers3").Shapes("Image1")
sh.Rotation = sh.Rotation + 10
Application.OnTime Now + TimeSerial(0, 0, 1), "YaImage"
End Sub

 

[wilfried_42]

Re : Bouton pour arrêter rotation Image

Bonjour

Pour la rotation de l'image tu utilises le Timer, toute les secondes, il suffit de mettre le 3eme paramettre à false pour arreter ce timer

Application.OnTime Now , "YaImage", , False

 

[pierrejean]

Re : Bouton pour arrêter rotation Image

bonjour vaucluse immo

Vois si tu peux t'inspirer de ceci

Edit : Salut Wilfried

 

[MuscatMimi]

Re : Bouton pour arrêter rotation Image

Merci Pierrejean et Wilfrild
Juste ce qu'il me fallait,

A bientôt