Position du curseur VBA Excel

Question

Bonjour !

Comment connaître ou définir les coordonnées du curseur dans une feuille de calcul Excel avec VBA ?

Merci
RicoNuch

cs_Jack · Answer

Salut RicoNuch
Pour récupérer ou déplacer la souris, il y a les apis GetCursorPos et SetCursorPos.
Pour plus de détail, charge le programme Api-Guide disponible sur http://www.allapi.net . Il y a des exemples en VB.

Mais si tu ne veux que positionner la souris sur un controle, tu as la méthode MonTextBox.SetFocus.

Vala
Jack

RicoNuch · Answer

Merci Jack. Réponse nette et sans bavure. 
A une prochaine fois. 
RicoNuch

cs_jacklem · Answer

Après avoir longtemps cherché, je re-dépose ici une soluce relativement simple trouvée (qui reste à aménager et en particulier à lancer/arrêter par évènements javascript:void(0);!):

'Private Declare Function GetCursorPos Lib_ '"user32" (lpPoint As POINTAPI) As Long	
'Private Type POINTAPI
'    x As Long
'    y As Long
'End Type

'Sub curseur() 
'    Dim position As POINTAPI 'facultatif
'    GetCursorPos position 
'    Cells(1, 1).Formula "x " &_ 'position.x & " , y = " & position.y
'End Sub
Nota: on peut aussi de façon similaire tester les boutons de souris
Bon courage

cs_jacklem · Answer

Erratum
Le tiret de "Lib_" est de trop (renvoi ligne déplacé)!
"Javascript:Void(0):!)" aussi (Smiley non reproduit)!

A noter que le curseur est suivi en point d'écran, même hors de la feuille Excel !