[VBA-E] Coordonnées de la souris

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

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

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:

---

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.

Essaye avec 0 à la place de Me.hwnd.

SGDG...

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

Code:

---

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... :?

Et rien de plus normal, puisque ni les labels ni les contrôles images n'ont de hwnd !