Bonjour à tous, j'ai trouvé sur ce site un code pour réduire/agrandir ou éliminer la fermeture (Croix rouge) de mon userform.

Tout fonctionne bien, ce que je voudrais vraiment avoir sur mon userform est seulement les boutons réduire/agrandir, je ne veut pas avoir le bouton de fermeture (croix rouge) car il ferme seulement le userform. J'ai déja un bouton de commande dans mon userform qui ferme et le userform et excel.

Voici le 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
19
20
21
22
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
 
Private Declare Function FindWindowA Lib "User32" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
' Composant UserForm
Private Sub UserForm_Initialize()
Dim hWnd As Long
 
    'Récupération window de l'userform et ajoute 'Réduire/Agrandir'
    hWnd = FindWindowA(vbNullString, Me.Caption)
    SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
 
    'Ici pour éliminer la fermeture
    'SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
 
End Sub

Merci