Identifier relachement bouton souris

[thilam]

Bonjour tout le monde.
Je souhaiterais executer une procédure en boucle tant que le bouton de la souris est enfoncé. Comment faire pour identifier le relachement de la souris pour arreter la boucle?

Voilà à quoi j'aimerais que ça ressemble.
boutplus est une image sur laquelle je click pour démarrer la proc
En italique: ce que je ne sais écrire qu'en francais et pas en VB


Private Sub boutplus_Click()
ActiveSheet.Unprotect
While "le bouton de la souris est enfoncé"
Range("depart").Value = Range("depart").Value + 7
curseur
Range("depart").Offset(4, -4).Select
ActiveSheet.Shapes("bulledec").Visible = False
Wend
ActiveSheet.Protect
End Sub

Merci à tous
Cdt
Th

 

[job75]

Re : Identifier relachement bouton souris

Bonjour thilam,

Le clic sur un bouton correspond à un seul évènement (pas 2).

Avec une procédure particulière (il y a eu un fil récent là-dessus), on peut arrêter la macro par un autre clic.

Edit : j'ai retrouvé le fil (fin mars) :

https://www.excel-downloads.com/threads/arreter-une-boucle-sous-vba.117088/

A+

 

[thilam]

Re : Identifier relachement bouton souris

Bonjour Job
Je comprend bien mais j'imaginais qu'on pouvais tester l'état du bouton avec un truc
dans le genre MouseButton.down=true, pour interrompre la boucle.
Ca n'est pas possible?