Discussion :

[NEC14]

Bonjour,

Pourriez-vous m'indiquer comment faire disparaître la bande de couleur avec la croix en haut d'un UserForm ?
Je sais rendre la croix inactive, mais si je pouvais faire disparaître l'ensemble cela serait super.
Merci par avance pour votre aide

[Luc859]

Hello,

Ton bonheur se trouve dans la FAQ vraiment complète :

Comment masquer la barre de titre d'une UserForm ?

[NEC14]

Bonjour Luc,

J'ai déjà essayer ce code mais cela ne fonction pas.
Je vais recommencer et je te tiens au courant. Il me semble que j'ai des soucis dans la recherche du Handle.

[laetitia]

bonjour NEC14 Luc859 le forum
peut etre le plus simple si tu veus empecher de fermer par la croix met ce code dans l user

Code :

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

1
2
3
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

attention ne pas oublier de mettre un bouton pour fermer l user

autrement un zip a tester attention a ces bidouilles on faire faire planter excel & ca marche pas forcement sur toutes version excel & les futures

salutations

[aalex_38]

Bonjour,

Je viens d'essayer le code et il fonction parfaitement chez moi (E07) pour supprimer la barre des titres à l'afiichage

[NEC14]

Bonjour à tous,

J'ai ce message d'erreur qui apparaît :

- Erreur 453
Point d'entrée SetWindowLongA d'une DLL introuvable dans User32.

Pouvez-vous éclairer ma lanterne ?

Merci

[aalex_38]

Bonjour,

Pas de faute dans la déclaration ?
J'arrive a reproduire le message d'erreur en mettant un texte erronné dans alias :

Code :

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

1
2
3
Public Declare Function SetWindowLong Lib "user32" Alias _
        "XSetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
        ByVal dwNewLong As Long) As Long

EDIT : ça ne peut pas être ça chez toi puisque tu as bien "SetWindowLongA"
dans ton message d'erreur.

Alors je sais pas, je donne ma langue au chat ...

[NEC14]

J'ai essayé les 2 codes, celui de Laetitia "Sans bandeau bleu" et celui du FAQ et aucun des 2 ne fonctionnent.
Je ne comprends pas.
Manquerait t'il quelque chose dans User32 ?

[aalex_38]

Pour info, les 2 fonctionnent chez moi (Excel 2007)

[NEC14]

J'ai Excel2003, peut-être est-ce là le problème

[laetitia]

re le fil j ai 2003 ca marche

re le fil essai de mettre ce code

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
17
18
Option Explicit
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
Private Sub cmd_quitter_Click()
Unload Me
End Sub

[NEC14]

Bonjour Laetitia,

Ce code je le mets où, dans un module ou bien directement dans le code de l'UserForm ?
Merci

Là je l'ai mis dans l'UserForm mais ça ne marche pas.
J'ai donc essayé à partir d'un module, mais avec le même résultat

[laetitia]

bonjour nec le forum dans l user

salutations

[NEC14]

bonjour nec le forum dans l user

salutations

Comme je l'ai dit plus haut, c'est ce que j'ai fait mais sans résultat.
Je ne comprends pas pourquoi cela ne fonctionne pas

[laetitia]

re, regarde ce fichier en autre il enleve le bandeau ci ca marche essai de l adapter

salutations

[aalex_38]

Bonjour,

Un fichier qui ne fait qu'enlever le bandeau, ça marche ?

[laetitia]

re, bonjour aalex jai teste ce code marche aussi chez moi

salutations

[NEC14]

Je viens de mettre en place les 2 codes fournis, mais sans succès.
La barre de titre est toujours visible.
Je ne comprends pas où ça bloque. Je n'ai aucun message d'erreur.
Si quelqu'un à une idée.

Un module pour le code suivant :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Public Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
 
Const GWL_STYLE = (-16)
Const WS_CAPTION = &HC00000
Const SWP_FRAMECHANGED = &H20
 
Public Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
 
Sub AfficheTitleBarre(stCaption As String, pbVisible As Boolean)
Dim vrWin As RECT
Dim style As Long
Dim lHwnd As Long
'- Recherche du handle de la fenêtre par son Caption
    lHwnd = FindWindowA(vbNullString, stCaption)
    If lHwnd = 0 Then
        MsgBox "Handle de " & stCaption & " Introuvable", vbCritical
        Exit Sub
    End If
 
    GetWindowRect lHwnd, vrWin
    style = GetWindowLong(lHwnd, GWL_STYLE)
    If pbVisible Then
        SetWindowLong lHwnd, GWL_STYLE, style Or WS_CAPTION
    Else
        SetWindowLong lHwnd, GWL_STYLE, style And Not WS_CAPTION
    End If
    SetWindowPos lHwnd, 0, vrWin.Left, vrWin.Top, vrWin.Right - vrWin.Left, vrWin.Bottom - vrWin.Top, SWP_FRAMECHANGED
End Sub

et ce code çi dans l'UserForm (FrmAcc)

Code :

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

1
2
3
4
5
6
7
 
Private Sub UserForm_Initialize()
'On passe en arguments :
'    - le titre de la fenêtre
'    - False pour masquer la barre de titre
    AfficheTitleBarre Me.Caption, False
End Sub

Voici comment j'ouvre mon UserForm

Je clique sur un bouton, un mot de passe est demandé, si celui-ci est bon, alors l'UserForm s'affiche.

[aalex_38]

Bonjour,

Je viens de mettre en place les 2 codes fournis, mais sans succès.

As-tu testé les fichiers excel tels quels pour savoir si le problème vient vraiment de cela ou si c'est ailleurs dans ton code ?

[laetitia]

re, je vois pas que reste t il ?? peut etre lancer une reparation de ton excel ou reinstalller

ou le suicide (lol)

SI aalex a une autre idee
salutations