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 ...