Icone réduire et agrandir sur un formulaire Excel via VBA

Version imprimable

21/09/2015, 12h09
vanes34

Icone réduire et agrandir sur un formulaire Excel via VBA

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
21/09/2015, 14h07
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..
21/09/2015, 15h35
vanes34

1 pièce(s) jointe(s)

rebonjour,

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

Bonjour,

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

Code:

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

21/09/2015, 15h51
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 :kiss:
21/09/2015, 17h55
Invité

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

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

Code:

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

21/09/2015, 21h16
vanes34

1 pièce(s) jointe(s)

Citation:

Envoyé par rdurupt

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.
21/09/2015, 21h18
SfJ5Rpw8

c'est quoi cette pièce jointe docX... s'il s'agit d'une image avec un message d'erreur , tu peu lire le message et le retranscrire ici en texte !!

s'il s'agit de code tu le place ici en texte entre des balises [code] [/code]

Code:

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
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_Resize()
 
    EnableWindow FindWindow(vbNullString, Application.Caption), 1
 
End Sub
 
Private Sub UserForm_Initialize()
 
    Dim ID As Long
 
    ID = FindWindow(vbNullString, UserForm1.Caption)
 
    '131072 Réduire
    '65536 Agrandir
    '196608 Réduire + Agrandir
    SetWindowLong ID, -16, GetWindowLong(ID, -16) Or 196608
 
End Sub

en fait mon formulaire se réinitialise à chaque fois que je réouvre, donc les icônes n'apparaissent plus. Ca fonctionne mais que une fois après il faut que je retourne dans le module et que je refasse "entrez" après le dernier End Sub pour que ca fonctionne. merci pour ton aide

re
c'est pourtant simple
soit tu met le code du post #7 dans le module de l'userform lui meme
ou alors tu reprends le meme code et tu le place dans un module standard
comme ceci
Code:

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 Sub mesboutons() SWL GAW, -16, &H94CB0080 End Sub
et dans le module du userform dans l'evenement activate tu met
Code:

1 2 3 Private Sub UserForm_Activate() mesboutons End Sub
a chaque fois que tu affichera le userform il y aura les 3 boutons

il est difficile de te l'expliquer plus simplement

21/09/2015, 23h25
vanes34

citation inutile

je te remercie cela fonctionne parfaitement. Merci pour vos conseils et votre patience. :kiss: