Détecter l'entrée et surtout la sortie d'un formulaire de la souris ?

Bonjour à toutes et à tous et merci de votre temps et de votre aide.

J'ai un formulaire ouvert en mode Non Modal (vbModeless).
Je suis capable avec Mous-Move de savoir qu'actuellement je suis dans le formulaire mais pas de détecter le moment où j'entre et surtout celui où j'en sort.

Mon but est de réagir en affichant l'adresse de la sélection actuelle (plus d'autres infos) dés que l'utilisateur survol mon formulaire puis s'il quitte le formulaire faire disparaître ces informations.

Quelqu'un a-t'il déjà programmé cela ?

A+

Je n'ai peut-être pas bien compris ce que vous vouliez faire.
Vous pouvez lancer un code à partir de la détection de mouvement.
Par exemple, j'ai un USF sur lequel j'ai des boutons. Lorsque je passe la souris sur les boutons, un explicatif de la fonction s'affiche dans une zone de texte (Label1) et les caractères du bouton passent en italique. Tout redevient normal (le texte s'efface et les caractères redeviennent normaux) lorsque je sort du bouton (en fait quand je passe dans le frame de l'USF), et ainsi de suite.

Pour le frame:

Code:

---

1 2 3 4

Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _ ByVal x As Single, ByVal y As Single) RAZItaliqueGras End Sub

---

Pour un bouton (j'en ai 8 dans l'USF) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _ ByVal x As Single, ByVal y As Single) With Me With .CommandButton1.Font .Bold = True .Italic = True End With With .Label1 .Caption = "Mon texte explicatif à afficher !" End With End With   End Sub

---

Et pour la remise à zéro:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub RAZItaliqueGras() 'Remise à zéro des textes des boutons en italique et gras 'et effacement du Label1 For Numbout = 1 To 8 With Me("CommandButton" & Numbout).Font .Bold = False .Italic = False End With Next Me.Label1.Caption = ""   End Sub

---

bonjour

le soucis c'est que quand tu sors du formulaire tu n'a plus rien (aucun evenement a associer ) pour tester ta position souris
si ce n'est que par une boucle infini interruptible

la seulle possibilité que je connaisse et qui n'alourdirait pas l'app c'est la position X/Y dans l'evenement mosemove de l'usf

exemple

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) '5 peut etre une marge insufisante selon la vitesse du deplacement de la souris l'augmenter le cas echeant 'apres voir si il n'y a pas des controls a ces enplacements scela complique un peu la chose mais en gros ' faire pareil dans les evenement mousemove de ces controls ok = "" If Y > 5 And Y < Me.InsideHeight - 5 Then If X > 5 And X < Me.InsideWidth - 5 Then ok = [A1] Else ok = "" End If TextBox1 = ok End Sub

---

Pièce jointe 327279

Bonjour.

Merci :a vous.

@Mic13710 , c'est au niveau du formulaire lui-même que je souhaite travailler, pas pour un contrôle en particulier.

@patricktoulon , je pense que c'est ce dont j'ai besoin. Je n'avais pas pensé à une idée de marge.

A+

Bonjour
Une solution parfaite existe bel et bien, mais passe par un hooking et donc l'utilisation de fonctions de l'Api de Windows.
Et quand on dit "hooking", on dit nécessité d'une parfaite maîtrise de ce que l'on fait (notamment en mode création et tests) --->> sinon --->> plantage assuré, voire dégâts assurés.

Es-tu certain de ce la vocation d'un tableur est ce que tu cherches à en tirer ? (la réponse est bien évidemment NON).

Bonjour.

Le code fonctionne mais si on déplace la souris vraiment vite (ex : du milieu du formulaire à une cellule) l'événement sur move n'attrape pas la marge et les données restent là.

Je pense que je vais faire un bouton finalement.

Merci à tous.

A+

re
oui je l'ai préciser pour la marge
après oui comme dis jacques :Hooker ,mais c'est costaud beaucoup de ramdam pour au final pas grand chose

tiens regarde celle la elle devrait faire ton affaire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Integer, ByVal yPoint As Integer) As Integer Private Type POINTAPI: X As Long: Y As Long: End Type Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) '5 peut etre une marge insufisante selon la vitesse du déplacement de la souris l'augmenter le cas echeant 'après voir si il n'y a pas des controls a ces emplacements cela complique un peu la chose mais en gros ' faire pareil dans les évènement mousemove de ces controls Dim pos As POINTAPI GetCursorPos pos Handle = WindowFromPoint(pos.X, pos.Y) ok = "" If Y > 5 And Y < Me.InsideHeight - 5 Then If X > 5 And X < Me.InsideWidth - 5 Then ok = [A1] Else ok = "" End If TextBox1 = ok t = Timer Do: DoEvents: X = Timer - t: Loop While X < 0.1 GetCursorPos pos If WindowFromPoint(pos.X, pos.Y) <> Handle Then TextBox1 = "" End Sub

---

ya pas photo ca patch
Pièce jointe 327359
pour éliminer le raté par rapport a la vitesse de la souris
on fait une pause de 10 millisecondes
ps: j'aurais pu utiliser l'api sleep pour la pause c'est pareil
et on test le handle avec windowfrompoint si c'est pas le me qu'au départ on vide le textbox


ps: j'ai mémé essayé 0.03(30milisecondes) ca marche parfaitement bien

et meme simplifié la chose

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Integer, ByVal yPoint As Integer) As Integer Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Type POINTAPI: X As Long: Y As Long: End Type ' Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TextBox1 = [A1] Dim pos As POINTAPI GetCursorPos pos Handle = WindowFromPoint(pos.X, pos.Y) t = Timer Do: DoEvents: X = Timer - t: Loop While X < 0.03 GetCursorPos pos If WindowFromPoint(pos.X, pos.Y) <> Handle Then TextBox1 = "" End Sub

---

Bonjour patricktoulon et désolé du délais.

J'ai revu mon interface et je ne pourrais pas utiliser ton code car mon utilisateur pourrait changer de page alors que je dois conserver les informations.

Je te remercie grandement pour tes efforts qui me seront surement très utiles dans le future car c'est un problème que j'ai rencontré plusieurs et qui m'avait fait renoncer à utiliser les formulaires.

A+

Citation:

---

Envoyé par marot_r

Bonjour patricktoulon et désolé du délais.

J'ai revu mon interface et je ne pourrais pas utiliser ton code car mon utilisateur pourrait changer de page alors que je dois conserver les informations.

Je te remercie grandement pour tes efforts qui me seront surement très utiles dans le future car c'est un problème que j'ai rencontré plusieurs et qui m'avait fait renoncer à utiliser les formulaires.

A+

---

bonjour
j 'avoue ne pas comprendre ce que tu souhaite vraiment

il faudrait en dire plus absolument rien ne peut être perdu ou être retrouvé même en changeant de page( userfom ou autre )

Bonjour.

Pour accomplir son travail mon utilisateur peut sélectionner une plage dans une feuille puis aller consulter des données dans une ou plusieurs autres feuilles puis revenir sur sa page initiale.

Si par hasard il passe sur le formulaire alors qu'il est sur une autre page, le programme réagirait en changeant les données que le formulaire affichait avant or il ne faut pas.

De plus au départ je prévoyais d'avoir une seule cellule d'intérêt mais je me suis aperçu qu'il m'en fallait parfois 2.
Je ne peux donc pas simplement récupérer la cellule active ce qui était mon idée lors de mon 1er post.

Merci encore de ton aide.

A+

Bonjour
Le plus simple n'est-il pas de subordonner l'exécution du code au caractère actif de la feuille en cause ?, genre :

Code:

---

1 2 3

If activeSheet.name = "toto" the   End if

---

EDIT ou encore (si le code agit sur des cellules) de préciser tout simplement de quelles cellules DE QUELLE FEUILLE, voire de QUEL CLASSEUR , genre

Code:

---

1 2 3

With workbooks("....").Worksheets(".....") .range(....).value = ... end with

---

Plutôt (ce qui est probablement le cas) que de travailler avec des ActiveSheet, ThisWorkbook, etc ...

re
bonjour

oui je rejoins jacques sur ce coup la

ajouter le test sur activesheet il n'y a pas d'ambiguïté aussi bien pour le déclenchement que pour l'affichage ou pas

tu peut ajouter pour cela par exemple un test avec rangefromproint si la fonction te donne "range" tester le parent


si le parent ne te convient pas alors l'userform garde les données affichées sinon vide

c'est tout

je te fait un exemple si tu veux

Bonjour et merci de votre intérêt.

Citation:

---

je te fait un exemple si tu veux

---

Non et merci encore.

J'ai compris le principe et oui je pourrais tester la feuille active et ne réagir que dans ce cas mais comme mon utilisateur a besoin de me signaler les 2 zones : source et destination.

La détection automatique ne présente plus l'Intérêt que je lui voyais au départ.

A+

re

Citation:

---

les 2 zones : source et destination

---

oui j'ai compris
*mais je ne vois pa ou est ton soucis bref c'est comme tu veux il n' y a pas de soucis