Je cherche maintenant à déterminer la position de la souris, ceci afin
d'afficher le Userform en bas à droite de celle-ci, après un clic dans la
feuille. Comment gère-t-on les événements relatifs à la souris ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
bonjour,
je ne sais pas si ca peut t'être utile, mais dans le doute?
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
Public 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
Public Sub NoCursorPos() Arrete = True End Sub
A+
Re bonjour à tous!
Je cherche maintenant à déterminer la position de la souris, ceci afin d'afficher le Userform en bas à droite de celle-ci, après un clic dans la feuille. Comment gère-t-on les événements relatifs à la souris ?
Merci d'avance!
bonjour,
je ne sais pas si ca peut t'être utile, mais dans le doute?
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
Public 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
Public Sub NoCursorPos()
Arrete = True
End Sub
A+
Re bonjour à tous!
Je cherche maintenant à déterminer la position de la souris, ceci afin
d'afficher le Userform en bas à droite de celle-ci, après un clic dans la
feuille. Comment gère-t-on les événements relatifs à la souris ?
je ne sais pas si ca peut t'être utile, mais dans le doute?
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
Public 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
Public Sub NoCursorPos() Arrete = True End Sub
A+
Re bonjour à tous!
Je cherche maintenant à déterminer la position de la souris, ceci afin d'afficher le Userform en bas à droite de celle-ci, après un clic dans la feuille. Comment gère-t-on les événements relatifs à la souris ?
Merci d'avance!
Rekam
Merci, je vais essayer d'aller avec ça ! a+!
"anonymousA" wrote:
bonjour,
je ne sais pas si ca peut t'être utile, mais dans le doute?
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
Public 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
Public Sub NoCursorPos() Arrete = True End Sub
A+
Re bonjour à tous!
Je cherche maintenant à déterminer la position de la souris, ceci afin d'afficher le Userform en bas à droite de celle-ci, après un clic dans la feuille. Comment gère-t-on les événements relatifs à la souris ?
Merci d'avance!
Merci, je vais essayer d'aller avec ça !
a+!
"anonymousA" wrote:
bonjour,
je ne sais pas si ca peut t'être utile, mais dans le doute?
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
Public 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
Public Sub NoCursorPos()
Arrete = True
End Sub
A+
Re bonjour à tous!
Je cherche maintenant à déterminer la position de la souris, ceci afin
d'afficher le Userform en bas à droite de celle-ci, après un clic dans la
feuille. Comment gère-t-on les événements relatifs à la souris ?
je ne sais pas si ca peut t'être utile, mais dans le doute?
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
Public 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
Public Sub NoCursorPos() Arrete = True End Sub
A+
Re bonjour à tous!
Je cherche maintenant à déterminer la position de la souris, ceci afin d'afficher le Userform en bas à droite de celle-ci, après un clic dans la feuille. Comment gère-t-on les événements relatifs à la souris ?
