Discussion :

[DIDIDIDA]

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 :

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
' 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 :

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

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 :

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

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

[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 :

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

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

[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

[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.

[fring]

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

[DIDIDIDA]

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

[DIDIDIDA]

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

[DIDIDIDA]

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

[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

[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 :

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

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 :

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

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

[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