Discussion :

[nicht]

Bonjour,
J' utilise VISUAL BASIC dans EXCEL (débutant) et je viens de créer un userform dont je ne parviens pas à supprimer la barre de titres.
J' ai tout essayé, enfin ce que je connais...:
Borderstyle = ...none
caption = ""
codes divers d' internet (l' embêtant c' est qu' on ne sait jamais où il faut écrire toutes ces lignes)
Comment faire?
merci

[edelweisseric]

Bonjour à tous
Bonjour nicht et bienvenu parmi nous

Regarde par là :

http://excel.developpez.com/faq/inde...Form#UFnoTitle

si j'ai bien compris ce que tu cherches

Eric

[nicht]

Merci mais rien a faire, ça ne marche pas...

[edelweisseric]

Bonjour à tous
Bonjour nicht

Essaie ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
 
Private Sub UserForm_Initialize()
Dim hWnd As Long, Style As Long
 
hWnd = FindWindow(vbNullString, Me.Caption)
Style = GetWindowLong(hWnd, -16) And Not &HC00000
SetWindowLong hWnd, -16, Style
DrawMenuBar hWnd
End Sub

N'oublie pas de mettre un bouton sur l'USF pour fermer

Eric

[nicht]

rebonjour edelweisseric,
Mon ordi me renvoie erreur de compilation:
sub ou fonction non définie.
Il me surligne Private Sub UserForm_Initialize() en jaune et findwindow en bleu

[SilkyRoad]

bonsoir

La solution d'Edelweisseric fonctionne parfaitement.
Tu as peut être fait une erreur lors du copier/coller, ou pas placé le code au bon endroit.

Nota :
Il ne faudra pas oublier d'ajouter préalablement un bouton pour refermer l'userform car la croix de fermeture ne sera plus accessible :

Private Sub CommandButton1_Click()
Unload Me
End Sub

bonne soirée
michel

[nicht]

Bonsoir à tous
En effet le code d' edelweisseric fonctionne à merveille et n' pas marché la première fois à cause d' une erreur de ma part.
J' avais séparé les deux parties du code, collé la première dans un module et la seconde dans l' évenement initialize du userform.
j' ai rééssayé en collant tout dans la feuille du userform et ça marche.
J' ignore pourquoi la solution du lien n' a pas marché mais j' ai rééssayé avec mon deuxieme ordi et il a, c' est vrai, parfaitement marché.
Je préfère le code d' edelweisseric car plus court.
Je n' ai pas mélengé les deux codes, je les ai éffectués sur deux projets différents.
Enfin je parlais de caption="" car j' ai, lors de mes recherches sur des forums bien moins complets que celui-ci, lu qu' il suffisait d' affecter cette valeur à la propriété.
Merci donc à tous pour votre aide.