masquer le X d'un UserForm

Salut,

Tu as oublié de mettre la déclaration de tes API en haut de ton module de l'userform:

Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long


A+++

Merci Zon j,avais aussi ce code mais je pensais pas qu'il fallait le mettre

Merci je réessais le tout

Temjeh