Discussion :

[Speranza]

Bonjour,

J'ai un petit soucis pour recuperer les coordonnées de la souris sur une frame. Logiquement, j'ai utilisé la fonction:
Frame2_MouseMove(...)
Seulement, lorsque la souris passe sur un label, une image,... se trouvant sur ma frame, je n'obtient plus les coordonnées.

Comment proceder pour les obtenir correctement ?

ps: j'ai essayé en supperposant un label transparent sur la frame et en utilisant le même procédé ( Label5_MouseMove(...) ) seulement, sa me bloque l'accés a d'autre objets situé sous le label :s

[linda15975]

Il me semble me souvenir avoir trouvé dans la FAQ un code qui récupère les coordonnées de la souris
mais je sais pas si ça marche en VBA Excel

[Speranza]

oui, dans la FAQ VB, moi je travaille en VBA

j'ai essayé quand meme et j'ai une erreur sur la ligne:
ScreenToClient Me.hwnd, pos
erreur: "Membre de methode ou de donnée introuvable"

le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
' Position de X et Y par rapport a l'écran
Private Declare Function GetCursorPos Lib "user32" ( _
    lpPoint As POINTAPI) As Long
 
' Position de X et Y par rapport a la fenètre et a GetCursorPos
Private Declare Function ScreenToClient Lib "user32" ( _
    ByVal hwnd As Long, _
    lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
    X As Long
    Y As Long
End Type
 
' Affiche un point sous le curseur quand on clique sur la feuille
Private Sub UserForm_Click()
Dim pos As POINTAPI
GetCursorPos pos
ScreenToClient Me.hwnd, pos
TextBox7.Text = pos.X
TextBox8.Text = pos.Y
End Sub

Ensuite, je ne pense que sa resolve mon probleme, puisque la fonction s'execute lors d'un clic sur Userform et si j'ai un bouton, une image ou autre sur ma form, la fonction ne se lance pas, du coup je n'obtient toujours pas la position.

[AlainTech]

Essaye avec 0 à la place de Me.hwnd.

SGDG...

[jmfmarques]

OUI, Alain !
C'est ce qui convient avec VBA (0 par défaut). J'approuve sans réserve

[Speranza]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
' Position de X et Y par rapport a l'écran
Private Declare Function GetCursorPos Lib "user32" ( _
    lpPoint As POINTAPI) As Long
' Position de X et Y par rapport a la fenètre et a GetCursorPos
Private Declare Function ScreenToClient Lib "user32" ( _
    ByVal hwnd As Long, _
    lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
    X As Long
    Y As Long
End Type
 
 
Private Sub Frame2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim pos As POINTAPI
    GetCursorPos pos
    ScreenToClient 0, pos '?
    TextBox7.Text = pos.X
    TextBox8.Text = pos.Y
End Sub

En effet, il fallait bien mettre 0 a la place de me.hwnd.
Seulement, comme je det plus haut, cette fonction ne resoud pas mon problême.
Lorsque je suis sur la frame avec mon curseur, aucun problême, seulement lorsqu'il y a un label ou une image sur ma frame la fonction: Frame2_MouseMove ne s'applique plus donc je n'obtient plus mes coordonnées.

ps: Et pour un autre problême, je ne peut pas appliquer cette fonction sur tous les controles situés dans la frame...