Survol sur image dans userform

Bonsoir,

Toujours en train d'expérimenter (1 mois de VBA),

J'essaie en vain à avoir quelque chose de concluant sur le survol sur image pour faire apparaitre une autre image dans un userform.

J'ai essayé avec userforme_mousemove, mais rien de fonctionnait...

Private Sub Btn1a1n_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

  If X < 10 Or X > Btn1a1n.Width - 10 Or Y < 10 Or Y > Btn1a1n.Height - 10 Then
    Btn1a1s.Visible = False
  Else
    Btn1a1s.Visible = True
  End If

End Sub

Le code semble ok si je laisse que celui-ci mais ne fait pas disparaitre l'image sinon l'image clignote :/

Merci d'avance pour l'aide et le temps que vous prenez pour m'aider :)

Bonjour Starnain

Voici un solution

@+

Merci c'est presque ça...

Je voulais que quand le pointeur n'est plus sur l'image que celle-ci reviennent à l'image de base... Là on doit faire un aller-retour pour remettre à l'état initial.

Merci encore de votre aide !

Bonjour tout le monde,

Je pense que c'est la feuille en arrière plan qu'il faut utiliser. Donc commencer par mettre la propriété .Enabled des deux boutons sur False et le code suivant :
- le premier si l'utilisateur clique sur le bouton
- le deuxième pour gérer le survol.

Private Sub Fond_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If X > 40 And X < 156 And Y > 40 And Y < 156 Then MsgBox "Bon dimanche !"
End Sub

Private Sub Fond_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If X > 40 And X < 156 And Y > 40 And Y < 156 Then
        Btn1a1s.Visible = True
    Else
        Btn1a1s.Visible = False
    End If
End Sub

Merci à vous deux !

Ca marche nickel optimix ! Merci encore.