Microsoft 365 InputBox est-il possible de masquer la barre de titre ?

Usine à gaz · 3 Juillet 2021

Bonjour à toutes et à tous,
Je vous souhaite une très beau WE

J'aimerais pouvoir "masquer la barre de titre" de mon InputBox.

J'ai fait des recherches mais je n'ai rien trouvé à l'instant et ce n'est peut-être pas possible !

Mais avec nos Supers Ténors, tout ou presque est possible, alors je pose la question.

Je joins un fichier test et je continue mes recherches.
Merci à toutes et à tous,
Amicalement,
lionel,

Bernard_XLD · 3 Juillet 2021

re,

je l'ai intégré en lieu et place de l'inputbox, trois lignes de code, je te laisse modifier l'userform à ton goût !

[édition : code modifié pour remise à zéro de la valeur de recherche en recherches successives ]

Bien cordialement, @+

Usine à gaz · 3 Juillet 2021

Bonjour Yeahou,
Merci d'être là
Mais ce que je voudrais est :

Je sais : le beurre, l'argent du beurre et la fermière qui est très jolie
lionel,

Bernard_XLD · 3 Juillet 2021

re,

je ne pense pas que ce soit possible avec l'inputbox qui est une boite de dialogue prédéfinie, il faut utiliser un formulaire
je t'ai fait un exemple vide mais fonctionnel, bouton test

Bien cordialement, @+

Usine à gaz · 3 Juillet 2021

re-Bonjour Yeahou,

Merci pour ton travail et le fichier,
J'ai testé mais trop compliqué pour moi de mettre la recherche dans l'UserForm,
Je laisse tomber le sujet.
Ce que j'ai est déjà bien avec une super recherche
lionel,

Bernard_XLD · 3 Juillet 2021

re,

je l'ai intégré en lieu et place de l'inputbox, trois lignes de code, je te laisse modifier l'userform à ton goût !

[édition : code modifié pour remise à zéro de la valeur de recherche en recherches successives ]

Bien cordialement, @+

Usine à gaz · 3 Juillet 2021

re-Bonjour Yeahou,
ça fonctionne nickel, je te remercie
Bon WE,
lionel

Dudu2 · 3 Juillet 2021

Bonjour mes InputBoys préférés,
J'en profite pour partager un InputBoxPerso sur UserForm développé il y a quelques années qui permet de faire ça parmi beaucoup (trop ?) d'autres choses.

Fichier modifié le 05/07/2021 à 07h17 pour petites corrections diverses

Usine à gaz · 3 Juillet 2021

Bonjour Dudu,

Merci pour ta perspicacité et ta gentillesse
J'ai ouvert ton fichier ajouté dans les codes "ptrsafe" (je suis sous office 365) et l'affichage semble effectivement super sympa.

Mais ça beug là :

VB:

Sub RemoveUserFormCaption()
    Dim BitMask As Long
#If VBA7 Then
    Dim Hwnd As LongPtr
    Dim WindowStyle As LongPtr
#Else
    Dim Hwnd As Long
    Dim WindowStyle As Long
#End If

    Hwnd = GetForegroundWindow
    WindowStyle = GetWindowLong(Hwnd, GWL_STYLE)

    BitMask = WindowStyle And (Not WS_CAPTION) <ICI

    Call SetWindowLong(Hwnd, GWL_STYLE, BitMask)
    Call DrawMenuBar(Hwnd)
End Sub

BitMask = WindowStyle And (Not WS_CAPTION)

lionel

Bernard_XLD · 3 Juillet 2021

Bonjour Dudu2, le fil

Il manque les ptrsafe pour les systèmes 64 bits
et après même erreur qu'usine à gaz

Cordialement, @+

Bernard_XLD · 3 Juillet 2021

re,

ça marche beaucoup mieux comme ça, un type longptr intégré à un type long, ça le fait pas !
Dim BitMask As LongPtr

Bernard_XLD · 3 Juillet 2021

re,

Dudu2 à dit:
J'en profite pour partager un InputBoxPerso sur UserForm

C'est pas mal ! Je garde, merci

Bien cordialement, @+

Usine à gaz · 3 Juillet 2021

Effectivement Yeahou
ça va bien mieux avec Dim BitMask As LongPtr
Merci encore une fois,
lionel,

Bernard_XLD · 3 Juillet 2021

@Usine à gaz ,la modification à faire est celle là, il faut déclarer BitMask pour les deux systèmes

Bien cordialement, @+

VB:

Sub RemoveUserFormCaption()
#If VBA7 Then
    Dim BitMask As LongPtr
    Dim Hwnd As LongPtr
    Dim WindowStyle As LongPtr
#Else
    Dim BitMask As Long
    Dim Hwnd As Long
    Dim WindowStyle As Long
#End If

    Hwnd = GetForegroundWindow
    WindowStyle = GetWindowLong(Hwnd, GWL_STYLE)

    BitMask = WindowStyle And (Not WS_CAPTION)

    Call SetWindowLong(Hwnd, GWL_STYLE, BitMask)
    Call DrawMenuBar(Hwnd)
End Sub

Usine à gaz · 3 Juillet 2021

Re-Bonjour Yeahou,
Encore merci pour ta perspicacité et ta gentillesse.
J'ai la modif,
lionel

soan · 3 Juillet 2021

Bonsoir Yeahou, Lionel,

as-tu remarqué que depuis quelques temps, tu as un nouveau collègue ?

Etoto (salut) est passé Accro ; il a maint'nant 1 062 posts ! il est plutôt drôlement rapide, le p'tit suisse ! j'ai vu que toi tu as 1 961 posts ➯ dans 39 posts, tu vas passer Barbatruc ; mais ne traîne pas trop en cours de route, sinon, le p'tit suisse pourrait bien passer Barbatruc avant toi !

comme dans la fable de La Fontaine "Le lièvre et la tortue" : « Rien ne sert de courir ; il faut partir à point ! » ; quoique dans le cas présent, il s'agirait plutôt d'un p'tit suisse galopant à toute allure !

allez, un encouragement pour Etoto : hue !

alors au tiercé, je parie Etoto gagnant ! va-t-il franchir la ligne d'arrivée des Barbatrucs avant Yeahou ? le reporter Tintin s'approche de Yeahou pour l'interroger avec son micro ; réponse de Yeahou : « miaou ! » ... ??? mais que fait donc un chat sur le champ d'courses de notre bel hippodrome de Longchamp ? remboursez les paris !

soan

Bernard_XLD · 3 Juillet 2021

soan à dit:
il est plutôt drôlement rapide, le p'tit suisse !

Est t'il vraiment Suisse pour aller aussi vite ?

Microsoft 365 InputBox est-il possible de masquer la barre de titre ?

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Bernard_XLD

Usine à gaz

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Discussions similaires