XL 2021 Commentaire au survol d'un checkbox d'un userform

[Nicolas JACQUIN]

Bonjour à tous,

Comme le titre le dit, je cherche à mettre un commentaire ou note au survol d'un checkbox d'un userform,
je sais que ça se fait et qui en a qui savent faire, mais plus moyen de trouver.

Merci d'avance à tous

 

[patricktoulon]

alors y en a t il au moins un qui a testé ?

 

[Nicolas JACQUIN]

Adapte moi le au fichier que tu as et je te dirai, si tu perçois ce message (mp)

 

[patricktoulon]

quel fichier et quel message ???

 

[Nicolas JACQUIN]

quel fichier et quel message ???

le post #111 tu as bien lu ??????

 

[patricktoulon]

re
c'est fait ca marche
tes check box sont plus larges que le text qu'ils ont
j'ai virer les label effece et efface 2 et tout y couintiti

 

[Dudu2]

Non, je n'ai pas testé parce que j'ai vu le code et je n'ai pas vu de différence de conception d'avec le Timer.
Mais si tu dis que ça fonctionne, alors utilise ce code car c'est ton droit le plus strict.
Perso, ma petite boucle "éternelle" me convient très bien et a fait ses preuves. Je ne changerai pas pour le tien .

 

[patricktoulon]

a aurait été sympa que tu teste ne serait-ce que pour me remercier d'avoir rempli ta besace de deux fonctions
même si tu ne compte pas utiliser le tempo de la do/loop

 

[Nicolas JACQUIN]

a aurait été sympa que tu teste ne serait-ce que pour me remercier d'avoir rempli ta besace de deux fonctions
même si tu ne compte pas utiliser le tempo de la do/loop

??????????? Pas compris du tout là

 

[patricktoulon]

si tu regarde bien le code @Dudu2 tu te rendra compte qu'a chaque movement la boucle repart de zero
c'est ca l'astuce

??????????? Pas compris du tout là

c'est pas atoi que ça s'adressait Nicolas

 

[Dudu2]

si tu regarde bien le code @Dudu2 tu te rendra compte qu'a chaque movement la boucle repart de zero
c'est ca l'astuce

Et oui, le Timer aussi repart à zéro à chaque exécution lancée par le MouseMove() dans son décompte de 0.5 secondes. A l'ouest rien de nouveau.

 

[patricktoulon]

sauf que l'on repasse pas par tout e la function et A et B (qui sont en static )ne sont pas changés tant que l'on change pas de control ce qui fait que la boucle repart jusqu'a 300 par contre quand tu t'arrête de bouge en restant dessus seuls les appels de boucles passées finissent leur tour et ç'a s’arrête : et dès que tu re bouge ça repart
autrement dit
le move lance les appels
si c'est nouveau on part du début de la fonction
le comm se place
la boucle démarre
pendant qu'elle tourne avec le doevent d'autre appels lui parvient
comme c'est le même control ça passe direct a un nouvelle instance du do/loop
si je m'arrête de bouger les instances de boucles finissent leur tour et ça s'arrête(je suis toujours dessus)
des que je re bouge d'autres appels de la boucle se lancent
et bien sur dans la boucle byebye si on est sortis

mais j'ai bien peur que tu n'ai pas compris le truc en fait
mais c'est pas grave si tu veux pas regarder

 

[Dudu2]

et dès que tu re bouge ça repart

Sauf si tu bouges et que l'évènement MouseMove() ne se déclenche pas pour relancer ton truc car curseur en bordure et déplacement rapide de la souris comme en Post #108 illustré dans le GIF.
Je te dis que c'est pareil qu'avec les Timers.

mais j'ai bien peur que tu n'ai pas compris le truc en fait

Ça doit être ça.

 

[Dudu2]

La petite ressource issue des travaux et discussions de ce sujet a été publiée.

VBA - Tester si la souris est sur un objet - Placer la souris sur un objet et cliquer

Le fichier à télécharger MouseOverObject.xlsm contient: Le Module_MouseOverObject à importer dans le projet VBA. Le Module_Test et UserForm1 comme exemple de mise en œuvre. Note: Voir toutes mes ressources ->...

excel-downloads.com

 

[patricktoulon]

re
Bonjour à tous

@Dudu2 je viens de me rendre compte que tu te fait une fausse idée du sleep
dans le do/loop
en fait avec le sleep de 100 pas exemple tu repose le procc oui!!! mais tu augmente le temps de boucle aussi
conclusion je viens de f"aire un test "avec une boucle do/loop de 10 tours "avec un sleep de 100
100*10 ca fait 1000 soit une seconde
une seconde pour déterminer si la souris est sorti est 10 fois trop long
démonstration et pour le coup je fait la même chose que dans ta démo a savoir sortir a pas de tortue du control
on vois bien mon label de decompte defiller largement moins vite

et pourtant je boucle que jusqu’à 10
soit une seconde(=1000)
conclusion j'ai bien raison la discontinuité de la boucle n'est pas nécessaire
pour peu que je règle le sleep à 200 on passe a deux secondes de delay et on vois bien le compteur défiler encore moins vite

on a donc des temps de repos quand on bouge pas
et des temps de repos avec le sleep

Sub InfoBulle(check As Object, msg)
    Dim pos As pointapi, Criter, i&, sorti$
    Static A
    Static B
    If check.Name = OldControl Then

        GoSub passe
    Else
        OldControl = check.Name
        A = EmplacementControl(check)
        B = EmplacementControl(check, 1)

        With commentaire
            .Visible = True
            .ZOrder 0
            .Controls("message").Caption = UCase(check.Name) & vbCrLf & msg
            .Move B(0) + check.Width - 3, B(1) - .Height + 3
            If .top < 0 Then .top = check.top + check.Height
            If .Left > Me.InsideWidth - .Width Then .Left = check.Left - .Width
        End With
passe:

        Do While i < 10    ' c laisse largement le temps de capter la sortie
            i = i + 1
            sorti = "pas sorti"
            Label1.Caption = "boucle à démarré " & i & "  " & sorti
            GetCursorPos pos
            Criter = pos.X > A(0) And pos.X < A(2) And pos.Y > A(1) And pos.Y < A(3)
            If Not Criter Then OldControl = "": sorti = "sorti": commentaire.Visible = False: Exit Do
            DoEvents
            Sleep 200
        Loop
      
       Label1.Caption = "boucle arrêtée " & i & "  " & sorti


    End If
    'Debug.Print "stop"
End Sub

 

[Dudu2]

Bonjour la liste,

@patricktoulon, plus tu allonges ton temps de boucle (ici 2 secondes), plus tu te rapproches d'une boucle infinie en temps relatif utilisateur en action. Mais ça reste une boucle limitée, comme les Timers ou le nombre de tours.

Mettons, tu attends pendant 2 secondes. Maintenant, le curseur est en bordure de zone par hasard, l'utilisateur répond au téléphone pendant 5 minutes ou croque dans son donuts pendant 5 secondes ou regarde passer la nouvelle secrétaire pendant 3 secondes puis il reprend sa souris qui sort rapidement de la zone sans déclencher de MouseMove(). Ben ta nouvelle boucle à 2 secondes elle sert à rien. Ça couvre peut-être 98,5% des cas, mais pas 100%. La boucle infinie, c'est 100%. Et perso j'aime bien l'idée que ce soit 100%.