Discussion :

[stos]

Bonjour,
j'ai un bouton placé sur une feuille excel. je souhaite que lorsque l'utilisateur survole le bouton, il change de couleur. J'ai donc placé une image transparente dessous pour pouvoir utiliser les évènements MouseMove de l'image et du bouton.

Code :

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

1
2
3
4
5
6
 Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = 4966415
End Sub
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = 4966879
End Sub

Jusque là tout va bien.
Le problème est le suivant:
Si l'utilisateur clique sur l'image transparente, celle-ci s'affiche en premier plan et masque mon bouton. Pour revoir le bouton, je dois alors déplacer le curseur hors de l'image.
J'ai essayé d'afficher le bouton sur l'évènement onclick de l'image

Code :

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

1
2
3
4
Private Sub Image1_Click()
ActiveSheet.Shapes("CommandButton1").Select
Selection.ShapeRange.ZOrder msoBringToFront
End Sub

Mais rien n'y fait.
Je vous laisse mon fichier exemple au cas ou...

Auriez vous des idées?