Microsoft 365 UserForm : Supprimer la barre de titre d'un formulaire

[Usine à gaz]

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

Il y a quelques temps, j'avais récupéré sur le site :

Remove the Title Bar from a UserForm - TeachExcel.com

Remove the Title Bar and border from a form including the red X or close button This creates a clean UserForm interface and is great for things like splash pages or just giving your forms a cleaner an ...

www.teachexcel.com

Un code permettant de Supprimer la barre de titre d'un formulaire.
Souhaitant maintenant le mettre dans mon fichier, j'ai copié le code.
dans l'UserForm :

Sub HideBar(frm As Object)
#If VBA7 Then
  Dim Style As LongPtr, Menu As Long, hWndForm As LongPtr
#Else
  Dim Style As Long, Menu As Long, hWndForm As Long
#End If
  'une classe de UserForm est de type ThunderXFrame ou ThunderDFrame (selon version)
  hWndForm = FindWindow("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", Me.Caption)
  Style = GetWindowLong(hWndForm, GWL_STYLE)
  Style = Style And Not WS_CAPTION
  SetWindowLong hWndForm, GWL_STYLE, Style
  DrawMenuBar hWndForm
End Sub

Private Sub Label1_Click()
End Sub

Private Sub UserForm_Activate()
HideBar Me
' Récupération de l'heure d'affichage de la BdD
TimeDebut = Timer
' Donne la main à excel pour facilité l'affichage de la BdD
DoEvents
' Boucle tant que 2 secondes ne se sont pas écoulé
While Timer < TimeDebut + 1
Wend
' Fermeture de la BdD
Unload Me
End Sub

et un code dans un module : Module_APIWindows

Ce code fonctionne bien et supprime bien la barre de titre d'un formulaire.
Cependant, l'affichage de l'UserForm n'est pas bon :

Et je n'arrive pas à trouver ce qu'il faut modifier pour avoir cette affichage :

Auriez-vous la solution ?

En cas, je joins le fichier test.
Je vous remercie vivement,
Amicalement,
Lionel,

 

[Phil69970]

Bonjour Lionel, le forum

Une piste ....
Tout simplement mettre height à 0 de USF et VBA remettra la hauteur minimal qu'il a besoin voir image

@Phil69970

 

[Phil69970]

Re

Et avec le fichier ça donne ça...

@Phil69970

 

[Usine à gaz]

Bonjour Phil69970,
Merci d'être là, je vais tester

 

[Usine à gaz]

Re-Bonjour Phil69970,

C'est déjà bien mieux, je te remercie
On y est presque... à ce moment précis, n'écris pas ce que tu penses lol
lionel,

 

[job75]

Bonjour Lionel, Phil69970,

Perso j'utiliserais :

Private Sub UserForm_Activate()
Me.Height = Label1.Height 'ajuste la hauteur
HideBar Me
' Récupération de l'heure d'affichage de la BdD
TimeDebut = Timer
' Donne la main à excel pour facilité l'affichage de la BdD
DoEvents
' Boucle tant que 2 secondes ne se sont pas écoulé
While Timer < TimeDebut + 5
Wend
' Fermeture de la BdD
Unload Me
End Sub

A+

 

[Usine à gaz]

Bonjour Gérard
Merci pour le code,
Je vais tester,
lionel

 

[Usine à gaz]

Re-Gérard,
Un grand merci, ça fonctionne Nickel ... comme toujours !
Bon WE,
lionel

 

[Usine à gaz]

Re

Et avec le fichier ça donne ça...

@Phil69970

Re-Bonjour Phil69970,
J'ai un peu réduit dans l'UserForm et voilà en pièce jointe ce que ça donne.
C'est plutôt bien aussi

 

[Usine à gaz]

Re- au Forum,

En pièce jointe le fichier de Gérard qui va m'arracher les yeux lol

 

[soan]

En pièce jointe le fichier de Gérard qui va m'arracher les yeux lol

??? pourquoi ? il t'avait fait un fichier simple et t'as réussi à en faire une usine à gaz ? ​

(bonjour quand même ! )

soan

 

[Usine à gaz]

Bonjour Soan

C'est certainement ce qui va en ressortir lol

 

[soan]

quelque part, tu as reçu le don du Roi Midas, sauf que... enfin, bref !

(du coup, même sans le faire exprès, tous tes fichiers Excel ressemblent à des usines ! )​

 

[job75]

Ceci est un peu plus confortable :

Private Sub UserForm_Activate()
With Label1
    .TextAlign = fmTextAlignCenter
    .Caption = vbLf & "Commentaire Modifié !"
    .Left = 0
    .Top = 0
    .Height = 54
    .Width = Me.Width
    Me.Height = .Height
End With
HideBar Me
DoEvents
' Récupération de l'heure d'affichage de la BdD
TimeDebut = Timer
' Donne la main à excel pour facilité l'affichage de la BdD
' Boucle tant que 5 secondes ne se sont pas écoulé
While Timer < TimeDebut + 5
Wend
' Fermeture de la BdD
Unload Me
End Sub

 

[Usine à gaz]

Re-Bonjour Gérard
C'est PARFAIT,
Merci à toi
lionel