position souris

[A_Binouze_Drinker_Among_Others]

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

 

[Ngdere]

Bonjour,

je ne sais plus avec quels autres forumistes ce sujet nous avait coincés il y a plusieurs mois, mais ce code était très attendu ! (de moi en tout cas)

Grand merci, FD