réduire un userform

Version imprimable

réduire un userform

bonjour à toute l'équipe,
je veux avoir sur mon userforme un petit boutton pour le réduire comme celui de croix pour le fermer. alors en faisant la recherche sur le forme je trouve cette solution

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
' Variables globales au module
Private sheet As Worksheet
 
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

pour moi ça marche pas??? du coup j'ai deux question:
1) comme mon est dans des codes sur les button de mon userforme, c'est à dire j'ai pas utiliser de module(par contre j'ai plusieurs userforme) alors j'ai céer un module j'ai mis cette partie du code

Code:

1
2
3
4
5
6
7
8
9
10
11
Private sheet As Worksheet
 
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

et dans mon userforme la partie qui reste:

'

Code:

1
2
3
4
5
6
7
8
9
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

mais ça marche pas il m'affiche un message: sub ou fonction non définie;
dites moi s'il vous plait où est le probleme??? merci par avance:cry::oops::cry:

19/02/2008, 15h48
fring
Bonjour,

Oula....ça c'est de l'usine à gaz...

clic droit sur le bouton que tu as mis sur ton UserForm --> Code

et là tu écris :
Code:

1 2 3 Private Sub CommandButton1_Click() Unload Me End Sub
et ainsi de suite, le même code pour chaque bouton sur chaque UserForm
19/02/2008, 15h51
DIDIDIDA

non c'est pa ça

merci pour ta réponse mais moi je ne veux pas fermer mon userform, je veux juste le reduire!!pour des raison du travail. mais ce que je comprend pas c'est quoi API Windows,,,???? merci
19/02/2008, 15h52
cafeine

Hello,

tu déclares tes API en type Private, donc elles ne sont connues que dans le module de déclaration. Soit tu les déclares en Public soit tu recopies leur déclaration dans le module où tu utilises ces API.
19/02/2008, 15h54
fring

Citation:

Envoyé par DIDIDIDA

merci pour ta réponse mais moi je ne veux pas fermer mon userform, je veux juste le reduire!!pour des raison du travail. mais ce que je comprend pas c'est quoi API Windows,,,???? merci

aaah ok...réduire la taille mais le laisser visible ?
Désolé j'avais mal compris
19/02/2008, 15h57
DIDIDIDA

merci

merci pour ta reponse, mais je n'ai pas bien compris! est ce que tu peux etre plus claire s'il te plait, je ne sais meme pas c quoi API, c'est code que j'ai trouvé sur le forme donc ce n'est pas moi qu'il a fait. merci
19/02/2008, 16h03
DIDIDIDA

merci j'ai compris

merci bp je pense que j'ai compris tu veux que je rende les function en public, c'est que je viens de faire et normalement ça marche; c'est superb!!!!!merci bp :king::king:
19/02/2008, 16h18
DIDIDIDA

pas tout à fait

mon probleme n'est pas tout à fait résolu, avec mon code il réduit completement l'application excel, mais moi je veus réduire que le user forme et ensuite travailler sur les autre feuille excel!!!!!!!!!!!!!!!!!!!!!!!!!!!!!est ce qu'il ya qlql qui vois le probleme merci:cry:
19/02/2008, 21h08
Qwazerty

SAlut
Je crois bien que tu n'as pas compris ce que faisait ce code.
Il te rajoute le petit bouton reduire en haut de ta UserForm (a coté de la croix de fermeture de la Form).
Ce code ne te reduit rien du tout, il te permet de reduire ton UserForm manulement en rajoutant le bouton reduire qui par defaut n'est pas apparent sur le UserForm.
A++
Qwaz
19/02/2008, 21h28
fring
Bonsoir,

Je continue à croire qu'une usine à gaz n'est pas vraiment nécessaire, je verrais bien un truc du genre :

Un bouton sur le UserForm "Réduire" avec le code
Code:

1 2 3 Private Sub CommandButton1_Click() Me.Hide End Sub
et un petit bout de code pour lequel on affecte une touche de raccourci (par exemple Ctrl+s)
Code:

1 2 3 Sub USF_on() UserForm1.Show End Sub
Et peu importe où l'on se trouve dans le classeur, Ctrl+s et le UserForm réapparaît en ayant garder toutes ces valeurs

Ca le fait pas ?
Une info qui peut parfois servir, si tu souhaites pouvoir travailler sur ta feuille tout en gardant le userForm visible par dessus, il faut mettre sa propriété ShowModal sur False
19/02/2008, 21h43
cb_60

Bonsoir
Ce n'est pas de moi mais de quelqu'un beaucoup plus connue " John Walkenbach" un zoom sur l'userform tu peux peut être tant inspirer