Discussion :

[marot_r]

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+

[Mic13710]

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 :

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

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 :

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

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 :

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

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

[patricktoulon]

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 :

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

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

[marot_r]

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+

[unparia]

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).

[marot_r]

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+

[patricktoulon]

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

[patricktoulon]

tiens regarde celle la elle devrait faire ton affaire

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
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

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 :

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

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

[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+

[patricktoulon]

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 )

[marot_r]

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+

[unparia]

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 :

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

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 :

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

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

[patricktoulon]

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

[marot_r]

Bonjour et merci de votre intérêt.

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+

[patricktoulon]

re

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