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
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.