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

[Usine à gaz]

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,

 

[Usine à gaz]

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]

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]

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]

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]

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

 

[Dudu2]

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]

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

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]

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]

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]

re,

J'en profite pour partager un InputBoxPerso sur UserForm

C'est pas mal ! Je garde, merci

Bien cordialement, @+

 

[Usine à gaz]

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

 

[Bernard_XLD]

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

Bien cordialement, @+

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]

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

 

[soan]

Bonsoir Yeahou, Lionel,

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

Spoiler: cliquer ici

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]

il est plutôt drôlement rapide, le p'tit suisse !

Est t'il vraiment Suisse pour aller aussi vite ?