coordonnées souris

[globinours]

bonjour, comment en vba obtenir les coordonnées de la souris?
merci

 

[MichelXld]

bonjour

tu peux utiliser l'API GetCursorPos


Declare Function GetCursorPos Lib 'user32' (lpPoint As POINTAPI) As Long
Type POINTAPI
x As Long
y As Long
End Type

Sub positionSouris()
Dim Point As POINTAPI
GetCursorPos Point
Range('A1') = Point.x
Range('A2') = Point.y
End Sub


bonne soiree
MichelXld