VBA - Bouton impossible à cliquer

Bonjour,

Durant mes cours VBA on avait créé jadis un code ou il était impossible de cliquer sur un bouton.

Le curseur s'approchant du bouton, le bouton se déplaçait sur le haut/bas/droite/gauche en fonction de la position du curseur.

J'ai bien retrouvé ce code mais impossible de le refaire fonctionner.

Pouvez-vous m'aider?

Meilleures salutations,

Thierry

Bonjour Thierry36

Il faut utiliser des boutons ActiveX, on peut ainsi visualiser le code directement en faisant un clic droit

Code qui sera automatiquement mis dans la feuille et non dans un module

Bonne régalade

Bonjour BrunoM45,

Merci pour votre suggestion. J'ai bien remplacé mes boutons mais il doit manquer qqch car ça ne fonctionne pas.

Meilleures salutations,

Thierry

Re,

Il faut penser à changer le nom des boutons dans les propriétés

Et ensuite modifier le code à convenance

Private Sub BtnNON_Click()
  MsgBox "Merci votre réponse a été envoyée au responsable du personnel"
End Sub

Private Sub BtnNON_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Me.BtnOUI.Visible = True
End Sub

Private Sub BtnOUI_Click()
  ' Au cas ou
  Me.BtnOUI.Visible = False
End Sub

Private Sub BtnOUI_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Dim ValX As Long, ValY As Long
  Randomize: ValX = Int(300 * Rnd) + 1
  Randomize: ValY = Int(300 * Rnd) + 1
  Me.BtnOUI.Left = ValX: Me.BtnOUI.Top = ValY
End Sub

A+

C'est pourtant bien ce que j'ai fait mais il manquait une partie du code. Cette fois-ci ça fonctionne.

Encore merci et bonne journée à vous.

Thierry