Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Usine à gaz

XLDnaute Barbatruc
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 :
VB: 
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,
 

Pièces jointes

  • UserForm.test2.xlsm
    50.9 KB · Affichages: 22
Dernière édition:
Solution
Bonjour Lionel, Phil69970,

Perso j'utiliserais :
VB: 
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+
Trier par date Trier par votes

job75

XLDnaute Barbatruc
Bonjour Lionel, Phil69970,

Perso j'utiliserais :
VB: 
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+
 
Vote positif 0 Vote négatif
Solution

job75

XLDnaute Barbatruc
Ceci est un peu plus confortable :
VB: 
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
 

Pièces jointes

  • UserForm.test(1).xlsm
    53.1 KB · Affichages: 29
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL 2010 Userform plein écran sans barre de titre
Réponses
7
Affichages
305
cathodique
  • Résolu(e)
XL 2021 Modification d'un code VBA
Réponses
5
Affichages
308
kiki29
Y
  • Résolu(e)
Affichage Userform en plein écran quelque soit la taille de l'écran
2
Réponses
22
Affichages
847
youguybass
Y
N
  • Question
Microsoft 365 appel des sous-routine
Réponses
3
Affichages
180
Dranreb
  • Question
Microsoft 365 Macro .XLA découpage de fichiers à passer en X64
Réponses
8
Affichages
649
GADENSEB
  • Résolu(e)
XL 2013 icon avec une image Mso dans la barre de titre du UserForm
Réponses
10
Affichages
1 K
patricktoulon
F
  • Question
Microsoft 365 UserForm maximiser la taille du formulaire par rapport à la taille de l'écran
2
Réponses
22
Affichages
2 K
TooFatBoy
D
  • Question
Valeur ComboBox imbriquée qui ne s'affiche pas du UserForm au tableau
Réponses
10
Affichages
943
DelfD
D
  • Question
XL 2016 Démo pour positionner un UserForm ou ContextMenu sur la grille (Toute version)
10 11 12
Réponses
178
Affichages
7 K
TooFatBoy
  • Résolu(e)
XL 2019 Désactiver la barre de titre d'un userform 64bits
Réponses
13
Affichages
2 K
akni
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…