Discussion :

[vanes34]

Bonjour à tous,

Je suis novice sur le sujet et je cherche désespérément comment mettre l’icône réduction et agrandir sur ma page de formulaire dans excel que je crée par VBA.

Je suis en train de reprendre le travail de quelqu'un et cela est très compliqué.

De plus, l’icône de fermeture (x) ne fonctionne pas si je clique dessus.

Donc, j'ai bien trouvé dans le FAQ excel Comment ajouter un bouton de réduction dans les UserForms ? mais je n'y arrive pas. On explique :
Placez cette première macro dans un module standard. Vous utiliserez cette macro pour lancer l'UserForm. Mais où faut-il le mentionné dans l'UserForm directement ou j’inscris les macros du formulaire ou ailleurs en créant un nouveau module ?

et après Ensuite, placez ce code dans le module objet du UserForm. Mais c'est quoi un module objet ?

Je suis désolée pour ces questions qui sont pour vous surement très novice, mais j'ai vraiment besoin de vos lumières. J'ai essayé plusieurs manipulations, mais rien ne fonctionne, il me met des messages d'erreur de compilation (seuls des commentaires peuvent apparaitre après end Sub, end Function ou end property.

Il me faudrait des explications pour une très débutante.
je vous remercie déjà pour le temps accordé pour m'aider.

Je vous souhaite une excellente journée.

Vanessa

[SfJ5Rpw8]

Bonjour,

pour le 1° code tu rajoute un module standard à ton projet ...


Pour le 2° code tu le place dans la page de code associé as ton UserForm ... , tu te trouve dans cette page de code dés que tu double-clic sur ton userform dans l'éditeur VBA..

[vanes34]

rebonjour,

je te remercie mais il met encore la même erreur voir piece jointe.

[Theze]

Bonjour,

Colle tout le code ci-dessous dans le module de ton formulaire et teste si c'est ce que tu souhaites :

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
Private Declare Function GetSystemMenu _
                Lib "user32" ( _
                ByVal hwnd As Long, _
                ByVal bRevert As Long) As Long
 
Private Declare Function DeleteMenu _
                Lib "user32" ( _
                ByVal hMenu As Long, _
                ByVal nPosition As Long, _
                ByVal wFlags As Long) As Long
 
Private Declare Function FindWindow _
                Lib "user32" Alias "FindWindowA" ( _
                ByVal lpClassName As String, _
                ByVal lpWindowName As String) As Long
 
Private Declare Function EnableWindow _
                Lib "user32" ( _
                ByVal hwnd As Long, _
                ByVal bEnable As Long) 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 Sub UserForm_Activate()
 
    EnableWindow FindWindow(vbNullString, Application.Caption), 1
 
End Sub
 
Private Sub UserForm_Initialize()
 
    Dim ID As Long
 
    ID = FindWindow(vbNullString, Me.Caption)
 
    '131072 Réduire
    '65536 Agrandir
    '196608 Réduire + Agrandir
    SetWindowLong ID, -16, GetWindowLong(ID, -16) Or 196608
 
End Sub

[vanes34]

Merci merci et encore merci, j'ai juste remplacer FindWindow(vbNullString, Me.Caption) par FindWindow(vbNullString, userform1.Caption) et j'ai enfin l’icône réduction et agrandir, par contre il faut que je le revalide car les icônes disparaissent à chaque renouvellement de formulaire. Et merci encore

[Invité]

Il ne faut pas place ton code dans Activate mais dans Resize!

[patricktoulon]

bonjour
un code utra simple a mettre dans le module du userform

Code :

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

1
2
3
4
5
6
7
8
9
10
#If win64 Then
Private Declare ptrsafe Function GAW Lib "User32" Alias "GetActiveWindow" () As Long
Private Declare ptrsafe Function SWL Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
#Else
Private Declare Function GAW Lib "User32" Alias "GetActiveWindow" () As Long
Private Declare Function SWL Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
#End If
Private Sub UserForm_Activate()
SWL GAW, -16, &H94CB0080
End Sub

résultat
Pièce jointe 188482


et au cas ou tu voudrais l'élasticité en plus
&H94CF0080 a la place de &H94CB0080

[vanes34]

Il ne faut pas place ton code dans Activate mais dans Resize!

Je te remercie, mais quand tu dis de mettre dans Resize, il faut que je fasse la modification à ce niveau Private Sub UserForm_Activate() car j'ai essayé et cela ne change rien.
Il faut que je retourne systématiquement dans mon module et que je retape "entrez" après le dernier End Sub pour que cela réapparaisse sur mon formulaire.
Je suis désolée encore une fois pour mon niveau et merci encore pour votre patience.