XL 2013 Icône d'aide dans la barre de titre d'un Userform

[Achille_1]

Bonjour à tous,

Je souhaiterais mettre une icône d'aide (un point d'interrogation, un peu comme excel) pour ouvrir un userform contenant une aide.
Comme sur l'image ci-dessous.

Est-ce possible ?

Achille

 

[patricktoulon]

re
une petite modif de rien du tout pour empêcher de redimensionner plus petit que la largeur des boutons réunis

Private Sub UserForm_Resize()
    Dim minWidth As Long, i As Long, l As Long
    Frame1.Width = Me.Width
    For Each ctrl In Me.Frame1.Controls
        i = i + 1
        l = l + ctrl.Width
        ctrl.Left = Frame1.Width - l - 10 - (i * 2)
        minWidth = i * ctrl.Width + (3 * i)
    Next
    If Me.Width < minWidth Then Me.Width = minWidth
End Sub

 

[Achille_1]

Oui sur windows 10 mais j'ai l'excel 2013 😉

Ok merci ! Par contre pour ta modif ça marche bien sur la largeur mais sur la hauteur ils peuvent encore être cacher avec le redimensionnement.
+ Est-t'il possible qu'avec un clic gauche enfoncé sur la barre on puisse bouger la fenêtre ?
Comme toutes les autres fenêtres d'ailleurs...

 

[patricktoulon]

oui c'est possible il faut ajouter les api sendmessage je te fait un exemple bouge pas

 

[patricktoulon]

re
voila une exemple
j'ai ajouter aussi le mousemove
le toulonnais fait mumuse 😉

ps:
pour la hauteur min je te laisse deviner ce qu'il faut faire 😉 😉 il faut bien te laisser un peu de travail quand même
tu peux déplacer le userform en restant appuyé sur la fausse caption

 

[Achille_1]

Très bien merci ! et oui je crois pouvoir de débrouiller pour la hauteur je pense avoir compris 🙂
Une petite dernière chose mais pas sûr que tu saches vu qu'on a pas la même version de windows et d'excel.
j'ai une ligne blanche qui rend le Userform vraiment pas esthétique, saurais-tu comment l'enlever ?

 

[patricktoulon]

il est fort possible que le redraw (DrawMenuBar handle)ne fonctionne pas a vérifier

sinon vérifie bien de ne pas avoir ta frame a + de zero et pas de bordure
met la a zéro de top a l'activate pour être sur
me.frame1.top=0:me.frame1.borderstyle=0
ca mange pas de pain 😉
purée té dur en affaire toi 😉

 

[Achille_1]

Héhé heureusement que tu es là parce que j'aurais cherché pendant des heures et des heures 😀
Concernant mon top et mon borderstyle ils sont biens à 0.
Pour le DrawMenuBar comment puisse-je vérifier qu'il marche ? Je t'avoue que je ne connais la fonction 🙂
Et si il ne fonctionne pas (ce qui possiblement le cas vu que les deux autres paramètres sont à 0) connais-tu un moyen de régler ça ?