G globinours Guest 23 Mars 2005 #1 bonjour, comment en vba obtenir les coordonnées de la souris? merci
M MichelXld XLDnaute Barbatruc 23 Mars 2005 #2 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 Vote positif 0 Vote négatif
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