Détecter le mouvement de la souris

**usul3** · 23/03/2012, 12h17

Bonjour,

Je voudrais savoir s'il est possible sur VBA de détecter le survol de la souris sur un rectangle (sans cliquer sur le rectangle) ?

J'ai cherché sur le net mais ça ne donne pas grand chose !!!

Je vous remercie pour votre aide !!!

**Jean-Philippe André** · 23/03/2012, 12h21

salut,

peux-tu définir plus précisément "rectangle" stp ?
Est-ce une cellule ? Une Shape ? Une image ?

**fring** · 23/03/2012, 14h25

Bonjour,

Une solution éventuelle, sur le rectangle en question, tu insères un Label que tu rends transparent via sa propriété "BackStyle" et ce Label possède l'évènement MouseMove

**usul3** · 23/03/2012, 15h23

Merci pour vos réponses, j'ai bien un label... je vais voir si ça marche !!!

**usul3** · 27/03/2012, 10h39

Bonjour,
Je reviens vers vous car je n'arrive toujours pas à trouver la solution; voici un code que j'ai trouvé sur le net et qui semble faire ce que tu dis fring:

Code :

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

1
2
3
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 Label1.BackColor = vbBlue
End Sub

J'ai bien un label1 sur Feuil1, et quand je ramène la souris dessus.... il ne se passe rien !!

**fring** · 27/03/2012, 12h13

Ton code est pourtant correct. Tu as bien désactivé le "Mode Création" ?

Détecter le mouvement de la souris

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager