Bonjour à tous,

J'ai créé un Bouton ActiveX sur ma Feuil1 et j'aimerais que lorsque je survole ce bouton, une ellipse s'affiche MAIS que lorsque je ne suis plus sur ce bouton, cette Ellipse disparaisse... J'ai bien l'invisibilité de ma forme à l'ouverture de mon classeur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Workbook_Open()
ActiveSheet.Shapes("Ellipse 10").Visible = False
End Sub
Et j'ai bien l'affichage de ma forme :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveSheet.Shapes("Ellipse 10").Visible = True
End Sub
Je pense que le problème vient de ma fonction .Visible dans le bouton qui devrait être remplacée par une fonction .Show mais cela ne fonctionne pas...
Je débute et je vous avoue que je ne vois pas trop comment faire autrement...

Merci beaucoup