coordonnées souris

  • Initiateur de la discussion globinours
  • Date de début
G

globinours

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

MichelXld

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
11
Affichages
193

Statistiques des forums

Discussions
302 248
Messages
2 001 849
Membres
215 341
dernier inscrit
rhad