Enlever des barres dans Userform

Bonjour a toutes et tous, Forum bonjour

Je souhaiterai svp par VBA enlever quelques barres sur des cadres d'userforms

il me semble que c'est possible pour avoir vu ca, au cours de recherche sur le net

évidement je ne retrouve plus ou j'ai vu

Voir svp fichier ci joint

Un bon dimanche a tous et merci pour votre aide

Cdlt Ray

bonjour eliot raymond

dans un classeur que j'ai récupérer il y a l'option cacher bande bleue de l'usf par l'instruction

CACHER_BANDE_BLEUE Me

dans l'initialisation de l'usf et appelle ce code dans un module standard

Sub CACHER_BANDE_BLEUE(USF As UserForm)
Dim hwnd&
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", USF.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And Not &HC00000: DrawMenuBar hwnd
End Sub

mais je laisse a d'autres plus aguerri la suite

Pascal

Bonsoir grisan29

Merci pour ta réponse

j'ai essayer les codes que tu me propose mais hélas ca ne fonctionne pas

erreur incompatibilité de type et la Sub n'ai pas reconnu a son appel

Encore pour ton aide, bonne soirée a toi

Cdlt Ray

bonsoir ray

j'ai télécharger ton fichier pour faire un essai et j'ai mis en commentaire la fin de la 2 ème ligne pour ne pas avoir de bug

SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And Not &HC00000: 'DrawMenuBar hwnd

mais je retrouve la barre du haut en bas sans écriture

après cela je ne peux plus t'aider mes compétences s’arrêtent la

Pascal

Salut Pascal

Merci pour ta réponse et la modification, mais ca ne fonctionne pas mème pas grave

je laisse tomber ca, je vais essayer de faire autrement.

j'ai bien peur de m'embarquer dans un code encore pas possible.

je te remercie pour ton aide, le lien ainsi que ton savoir partagé.

Bonne semaine a toi

Cordialement Raymond