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,

 

[danielco]

Bonjour,

Je ne sais pas pour l'inputbox, mais c'est possible pour un userform. Est-ce que cela t'intéresse ?

Daniel

 

[Usine à gaz]

Bonjour danielco,

Merci d'être là.
Pour un UserForm, j'ai déjà les bons codes pour cela ... mais tu peux envoyer ton code et je t'enverrai ce que j'utilise.
lionel

 

[danielco]

Je n'ai rien inventé. Le code provient de cette page :
https://worksheetsvba.com/en/remove-title-bar-from-userform
Dans un module standard :

Private Const GWL_STYLE = -16
Private Const WS_CAPTION = &HC00000

#If VBA7 Then
    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    #If Win64 Then
        Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
        Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
    #Else
        Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
        Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
    #End If
    Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As LongPtr) As Long
#Else
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
#End If

Public Sub HideFormTitleBar(frm As Object)
    #If VBA7 Then
        Dim lStyle As LongPtr, lFrmHandle As LongPtr
    #Else
        Dim lStyle As Long, lFrmHandle As Long
    #End If
    lFrmHandle = FindWindow("ThunderDFrame", frm.Caption)
    lStyle = GetWindowLong(lFrmHandle, GWL_STYLE)
    lStyle = lStyle And Not WS_CAPTION
    SetWindowLong lFrmHandle, GWL_STYLE, lStyle
    DrawMenuBar lFrmHandle
End Sub

Dans le userform :

Private Sub UserForm_Initialize()
    HideFormTitleBar Me
End Sub

Daniel

 

[Usine à gaz]

Merci Daniel,

lol j'ai le même
lionel,

 

[danielco]

Pourquoi alors ne pas remplacer l'inputbox par un userform ?

Daniel

 

[Usine à gaz]

Re-danielco,
Merci pour ta suggestion

C'est ce que je suis en train de faire mais je n'y arrive pas
Voilà dans le fichier joint où j'en suis,
Si tu a la solution, ça va bien m'arranger
lionel,

 

[Usine à gaz]

Il faudrait qu'à la place de l'UserForm, ce soit la recherche qui s'ouvre, titre masqué,
ou que l'userform contienne la recherche

 

[danielco]

Pour moi, ça fonctionne avec mon code (j'ai une erreur avec le tien.

 

[Usine à gaz]

Re-Bonjour danielco,
Tu voudrais m'envoyer le fichier pour que je vois ce qui ne vas pas chez moi ?
Merci à toi

 

[danielco]

Teste. En fait une fois entrée une chaine à rechercher, je saute ton code pour éviter d'être rejeté.
Daniel

 

[Usine à gaz]

Merci danielco

Effectivement ça marche comme le mien mais pas comme je le souhaite :

"Il faudrait qu'à la place de l'UserForm, ce soit la recherche qui s'ouvre, titre masqué,
ou que l'userform contienne la recherche"

Et ça, je n'y arrive pas

lionel

 

[danielco]

Je n'arrive pas à voir comment ça fonctionne parce que je ne sais pas quoi rechercher. Est-ce que tu peux donner une exemple ?

Daniel

 

[Usine à gaz]

J'sais pas trop expliquer, mais l'image sera peut-être parlante ? :

lionel,

 

[Bernard_XLD]

Bonjour @Usine à gaz , @danielco , le forum

en utilisant la fonction inputbox au lieu de la méthode inputbox, on a quelque chose d'approchant.

Bien cordialement, @+

nom = InputBox("Saisir texte/chiffre(s) à trouver :", "")