Microsoft 365 Ne pas afficher l'entête de l'UserForm

S

soan

XLDnaute Barbatruc

Inactif

• 29 Août 2020

• #2

Bonjour lionel,

Voilà, il suffisait d'effacer le champ Caption.

J'ai mis en commentaire ce qui bloque la compilation sur mon PC :
c'est à dire ce qui concerne le 64 bits avec PtrSafe.

soan

 

Pièces jointes

• UserForm_testUF.xlsm

  106.8 KB · Affichages: 9

Dernière édition: 30 Août 2020

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 29 Août 2020

• #3

Bonjour,
Soit effectivement effacer le Caption, ou alors virer la barre de titre ce qui est beaucoup plus lourd.
Une description de la chose ici: https://www.teachexcel.com/excel-tutorial/2026/removing-the-title-bar-from-a-userform

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 29 Août 2020

• #4

Je ne vois pas trop l'utilité de dézinguer la barre de titre du UserForm mais parfois ça fait plaisir de le faire quand même et ça vaut mieux que de manger trop de chocolats.
Ce fichier illustre la mise en œuvre du lien cité ci-dessus.

 

Pièces jointes

• VBA Supprimer la barre de titre UserForm API.xlsm

  50.9 KB · Affichages: 20

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 29 Août 2020

• #5

Bonjour soan,
Merci pour ta réponse mais ça ne fonctionne pas :

Le titre a disparu mais le cadre est toujours là lol,
lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 29 Août 2020

• #6

Re-Dudu2
Merci encore une fois d'être là
ça semble fonctionner mais bcp trop lourd pour intégrer dans mon "usine à gaz"
Mais je le garde
lionel,

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 29 Août 2020

• #7

Ah, je pensais que tu voulais seulement éviter que le texte du Caption apparaisse.
Dans ce cas, prends la solution de Dudu2, qui supprime la barre de titre du UF.

soan

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 29 Août 2020

• #8

OUI c'est ça
lionel,

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 29 Août 2020

• #9

Si c'est le même programme que le Google Agenda, le mieux serait de rassembler les déclarations API dans le module dédié. Si c'est le cas, dis-le et je te le renvoie.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 29 Août 2020

• #10

Re-Dudu2,
encore merci
Si ce n'est pas un gros boulot pour toi, je veux bien
lionel,

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 29 Août 2020

• #11

Reprends le fichier du Post #4 que je viens de modifier en reportant toutes les déclarations API dans un module dédié Module_APIWindows que j'utilise maintenant pour éviter d'avoir à me prendre la tête sur les déclarations de l'API pour les fonctions les plus couramment utilisées et qui évolue au fil du temps lorsqu'il faut ajouter 1 ou 2 fonctions ce qui est le cas ici.

Donc remplace le Module_APIWindows du fichier de l'Agenda Google par celui fichier du Post #4.
Et pour le code du UserForm incluant la fonction de suppression de la barre de titre, plus besoin des déclarations. Ce seul code suffit (comme dans le fichier du Post #4).

VB:

'https://www.teachexcel.com/excel-tutorial/2026/removing-the-title-bar-from-a-userform

Sub HideBar(frm As Object)
    Dim Style As Long, Menu As Long, hWndForm As Long
  
    '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 UserForm_Initialize()
    HideBar Me
End Sub

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 29 Août 2020

• #12

Merci pour ce boulot,
J'ai repris le classeur du Post #4
En le testant, ça "coince "ici :

@+

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 29 Août 2020

• #13

Bonjour le fil

C'est un problème de déclaration des API entre version 32 et 64 bits d'Office

Pas assez callé pour ça

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 29 Août 2020

• #14

Bjr BrunoM45,
Merci d'être là aussi
lionel,

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 29 Août 2020

• #15

C'est un problème de déclaration des API entre version 32 et 64 bits d'Office

Cliquez pour agrandir...

Oui car Long et LongPtr qui ne s'aiment pas en 64 bits.
Reprends le fichier et dis si ça marche cette fois.

MS dit: https://docs.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/longptr-data-type

LongPtr n’est pas un véritable type de données, car il est converti en Long dans les environnements 32 bits, ou en LongLong dans les environnements 64 bits. L’utilisation de LongPtr permet d’écrire du code portable exécutable à la fois dans les environnements 32 bits et 64 bits. Utilisez LongPtr pour les pointeurs et les handles.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif