A
A_Binouze_Drinker_Among_Others
Guest
bonjour
si cela vous intéresse, ce code figurant sur <http://perso.wanadoo.fr/lesheretiques> permet de savoir la position de la souris.
peut-être quant travaillant sur la résolution de l'écran, les ropriétés left, top width des cellules, et bottomrightcell & topleftcell des objets, on arriverait à savoir si le curseur est positionnée sur un objet particulier de la feuille de calcul
bye
'afficher la position du pointeur de la souris
'dans une feuille de calcul
Public Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long
Public Type POINTAPI
x As Long
y As Long
End Type
Public Arrete As Boolean
Sub CursorPos()
Dim XY As POINTAPI
Arrete = False
Do
GetCursorPos XY
Cells(1, 1).Value = "Position souris : " & XY.x & "x" & XY.y
DoEvents
Loop Until Arrete = True
End Sub 'fs
Sub NoCursorPos()
Arrete = True
End Sub
si cela vous intéresse, ce code figurant sur <http://perso.wanadoo.fr/lesheretiques> permet de savoir la position de la souris.
peut-être quant travaillant sur la résolution de l'écran, les ropriétés left, top width des cellules, et bottomrightcell & topleftcell des objets, on arriverait à savoir si le curseur est positionnée sur un objet particulier de la feuille de calcul
bye
'afficher la position du pointeur de la souris
'dans une feuille de calcul
Public Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long
Public Type POINTAPI
x As Long
y As Long
End Type
Public Arrete As Boolean
Sub CursorPos()
Dim XY As POINTAPI
Arrete = False
Do
GetCursorPos XY
Cells(1, 1).Value = "Position souris : " & XY.x & "x" & XY.y
DoEvents
Loop Until Arrete = True
End Sub 'fs
Sub NoCursorPos()
Arrete = True
End Sub