Discussion :

[neiluj26]

Bonjour le forum,

Il me semble avoir lu dans ces pages (mais malheureusement, je ne réussis pas à retrouver le sujet) comment faire pour qu'un Commandbutton se déplace suivant les mouvements de la souris, et le rendre "incliquable". (c'est pour prouver à un collègue qu'on peut faire deux trois petites choses dans Excel)

Je sais qu'il faut utiliser ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
End Sub

Mais je ne sais pas définir la formule pour éviter que mon bouton ne sorte du formulaire...

[Krovax]

En utilisant la fonction reche sur le forum avec le mot clef bouton

Comment faire pour qu'un objet s'enfuie quand la souris approche?

joue sur les

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Int((100 * Rnd))

exemples

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Int((50 * Rnd+50))

Par contre ca serait peut être plus malin de luii faire une macro qui automatise une tache répétitive qu'il fait tous les jours (et de lui la vendre contre quelques cafés )

[neiluj26]

J'ai pourtant cherché avec bouton, bouton qui se déplace, bouton souris etc... je vais changer mes lunettes. Merci, c'est le sujet que je cherchais.