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]

re
voila une version de ma méthode avec des static
pour eviter les scintillements même ceux des texte au move dans les controls

Sub InfoBulle(check As Object, msg)
    Static A: Static B: Static oldctrl
    Dim pos As pointapi, Tim#, Criter

    If oldctrl <> check.Name Then
        A = EmplacementControl(check)
        B = EmplacementControl(check, 1)
        oldctrl = check.Name

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

    Else
        A = EmplacementControl(check)
        B = EmplacementControl(check, 1)

        Tim = timer
        Do While timer - Tim < 0.5
            GetCursorPos pos
            DoEvents
            Criter = (pos.X > A(0) And pos.X < A(2)) And pos.Y > A(1) And pos.Y < A(3)
            If Not Criter Then
                commentaire.Visible = False
                oldctrl = ""

                Exit Do
            End If
        Loop

    End If

End Sub

autrement dit au move d'un control
si le nom change pas on passe directement "au else relance une do/loop de 100ms à 500ms
chez moi 0.1 est suffisant
le doevents permet toujours les appels successif mais tout n'est pas recalculé

avant au move j'avais un peu les ecritures du texte qui scintillaient maintenant non puisque c'est fait qu'une fois pour un nouveau control quand on sort la variable oldctrl se vide et donc prête a recevoir le nouveau

 

[Nicolas JACQUIN]

re
voila une version de ma méthode avec des static
pour eviter les scintillements même ceux des texte au move dans les controls

Tu peux faire une petite démo pour voir ce que ça donne chez toi s'il te plait

 

[patricktoulon]

 

[Nicolas JACQUIN]

re, je t'en demandais pas tant Patrick, sur le coup j'avais trouvé bizarre que ça se mette en pleine écran et moins précis qu'avant c'est tout, merci

 

[patricktoulon]

a oui c'est pour le ppx qu'il soit calculer correctement
comme je l'ai dit cette partie c'est au choix de la méthode
chez toi tu remplace tout le bloc par ppx=0.75 et ça match

comment ça moins précis ????ça ce n'est pas possible !!!

 

[Nicolas JACQUIN]

a oui c'est pour le ppx qu'il soit calculer correctement
comme je l'ai dit cette partie c'est au choix de la méthode
chez toi tu remplace tout le bloc par ppx=0.75 et ça match

comment ça moins précis ????ça ce n'est pas possible !!!

Ta vidéo le montre, avant ça pointait sur les angles de tes formes et plus maintenant

 

[Nicolas JACQUIN]

 

[patricktoulon]

t' a encore tout compris toi
il pointe parfaitement sur les angles
dans la vidéo je suis sur le point de l'angle du bouton ET!!! un point dans le checkbox
donc forcement ça passe de l'un a l'autre à toute vitesse

 

[patricktoulon]

ben tu vois ta capture montre que ça fonctionne non ?

 

[Nicolas JACQUIN]

ben tu vois ta capture montre que ça fonctionne non ?

Je sais que je dis souvent des conneries mais regarde

 

[patricktoulon]

bon entout cas tu a 3 methode maintenant
methode 1° @Dudu2

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

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

excel-downloads.com

méthode universelle vielle comme le mode qui peut siffir dans certains cas

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

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

excel-downloads.com

et ma méthode avec la fonction du calendar et la function infobulle

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

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

excel-downloads.com

avec ça tu es paré

 

[patricktoulon]

re
ma fois si tu passe trop vite l'infobulle ne s’affichera pas c'est normal
essaie avec le tooltiptext d'origine tu verra
punaise c'est lourd

 

[Nicolas JACQUIN]

Je t'es juste fait constater 2 de tes démos, désolé.
Bonne soirée.

 

[patricktoulon]

le pire c'est que tu continue Nicolas
tu fait constater quoi rien du tout
ça fonctionne comme ça doit marcher c'est tout
maintenant que ça te convienne pas c'est autre chose
il te faudra inventer un pc avec un proc quantique capable de pousser plus loin que le plus rapide des pcs du monde
bon je retourne travailler sur mon autre projet maintenant en même temps que ma serie préféré

 

[Nicolas JACQUIN]

Ce que je te dis juste dans ton poste 65 c'était précis, pas besoin de t'énerver