Minimiser userform par bouton

Version imprimable

21/11/2008, 18h05
Jeanvaljean44

Minimiser userform par bouton

Salut le forum !!! ;)

Je viens de découvrir sur le forum comment il était possible d'ajouter les boutons maximiser et minimiser sur une userform.

Maintenant, ce que je souhaiterai programmer c'est le fait de pouvoir minimizer une userform non modal après un click sur un bouton de commande de cette même userform.

Est ce possible???:yaisse3:

Bonjour,

Je n'ai pas Excel sous la main en ce moment....

Si personne n'a du plus simple à te proposer, je te propose donc ceci :

Tout en haut de ta page de code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Private Type POINTAPI
  x As Long
  y As Long
End Type
Private Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
Private Type WINDOWPLACEMENT
  Length As Long
  flags As Long
  showCmd As Long
  ptMinPosition As POINTAPI
  ptMaxPosition As POINTAPI
  rcNormalPosition As RECT
End Type
Private Declare Function SetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Et dans l'évènement click de ton bouton de commande :

Code:

1
2
3
4
5
6
7
8
Dim WP As WINDOWPLACEMENT, pp As POINTAPI, monhwnd As Long
  monhwnd = FindWindow(vbNullString, Me.Caption)
  pp.x = 0: pp.y = 0
  With WP
    .Length = Len(WP): .showCmd = 6
    .ptMinPosition = pp: .ptMaxPosition = pp
  End With
  SetWindowPlacement monhwnd, WP

Voilà ...;)

21/11/2008, 20h44
cafeine

Hello,

plus simple, il y a la FAQ :

http://excel.developpez.com/faq/?pag...uctionUserForm

Salut cafeine !

J'ai parcouru la FAQ, et malheureusement je n'arrive pas à trouver ce que je cherche.Voici le code que j'utilise et qui me permet de créer l'icône réduire en haut à droite de ma Userform.
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 Private Declare Function FindWindowA& Lib "User32" (ByVal lpClassName$, ByVal lpWindowName$) Private Declare Function EnableWindow& Lib "User32" (ByVal Hwnd&, ByVal bEnable&) Private Declare Function GetWindowLongA& Lib "User32" (ByVal Hwnd&, ByVal nIndex&) Private Declare Function SetWindowLongA& Lib "User32" (ByVal Hwnd&, ByVal nIndex&, ByVal dwNewLong&) Dim Hwnd As Long Private Sub UserForm_Initialize() Hwnd = FindWindowA(vbNullString, Me.Caption) SetWindowLongA Hwnd, -16, GetWindowLongA(Hwnd, -16) Or &H20000 end sub Private Sub UserForm_Activate() Hwnd = FindWindowA("XLMAIN", Application.Caption) EnableWindow Hwnd, 1 End Sub Private Sub CmdProjets_Click() 'Ici placer le code réduisant ma userform !! Workbooks.Open Filename:="R:\Projets.xlsx" Workbooks("Projets.xlsx").Activate End Sub
Ce que je ne sais pas faire c'est interagir sur ce code pour que lorsque que je click sur CmdProjets_Click de cette même userform celle-ci se réduise en bas de mon écran, pour que l'utilisateur est l'écran totalement disponible...

:help:

28/11/2008, 11h37
Jeanvaljean44

:salut: ucfoutu!

Je viens d'essayer le code que tu m'as proposé, et ma userform ce réduit bien en bas à droite de mon écran dès que je click sur mon bouton.

Seul problème, quand je désire la réagrandir elle disparaît de mon écran???

Ouais....

Tu as raison.
Il va nous falloir alors "faire un inventaire des leiux", dès l'ouverture... et y revenir au besoin.

Ainsi :

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
 
Private Type POINTAPI
        x As Long
        y As Long
End Type
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Type WINDOWPLACEMENT
        Length As Long
        flags As Long
        showCmd As Long
        ptMinPosition As POINTAPI
        ptMaxPosition As POINTAPI
        rcNormalPosition As RECT
End Type
Private Declare Function GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Private Declare Function SetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim commeorig As RECT, monhwnd As Long
 
Private Sub UserForm_Initialize()
    Dim WP As WINDOWPLACEMENT
    Dim R As Long
    WP.Length = Len(WP)
    monhwnd = FindWindow(vbNullString, Me.Caption)
    GetWindowPlacement monhwnd, WP
    commeorig = WP.rcNormalPosition
End Sub
 
Private Sub Command1_Click()
    Dim WP As WINDOWPLACEMENT
    Dim p As POINTAPI
    p.x = 100
    p.y = 100
    WP.Length = Len(WP)
    WP.showCmd = 6
    WP.ptMinPosition = p
    WP.ptMaxPosition = p
    WP.rcNormalPosition = commeorig
    SetWindowPlacement monhwnd, WP
End Sub

Attention :
1) ne "complète" pas mais écrase tout (plusieurs modifs ...)
2) je n'ai pas pu essayer avec Excel (pas sous la main)...

Dis-moi....

28/11/2008, 13h35
Jeanvaljean44

Pas mal, la fenêtre réapparait maintenant, et se positionne en haut à gauche de l'écran! :yaisse2:

Y a t-il possibilité que ma userform soit centrée à l'écran, lors du réaffichage?

Mais dans tous les cas j'ai eu réponse à ma question,

Merci beaucoup

JeanValjean

Je ne sais pas si tu as coimpris.
La fenêtre retrouve la position de départ, tout simplement.
Si tu veux donc qu'elle soit centrée au "retour", il suffit que tu la centres "à l'aller" (c'est-à dire juste avant) et que tu relèves à nouveau ses positions (comme en Form_initialize );)

Edit :
ou, tout bêtement :
1) tu supprimes carrément ce que j'ai mis en UserForm_iNITIALIZE
et tu transformes ici :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub Command1_Click() Dim WP As WINDOWPLACEMENT Dim R As Long WP.Length = Len(WP) monhwnd = FindWindow(vbNullString, Me.Caption) GetWindowPlacement monhwnd, WP commeorig = WP.rcNormalPosition Dim p As POINTAPI p.x = 100 p.y = 100 WP.Length = Len(WP) WP.showCmd = 6 WP.ptMinPosition = p WP.ptMaxPosition = p WP.rcNormalPosition = commeorig SetWindowPlacement monhwnd, WP End Sub
*et ta fenêtre retrouvera la potion exacte dans laquelle tu l'avais "laissée" avant le click ...:lol:

EDIT : maintenant, si tu veux en plus parvenir à centrer dynamiquement ton UserForm (au réaggrandissement ou à tout autre moment de ton choix), c'est également possible . Plusieurs procédés peuvent être mis en oeuvre à cette fin, toujours avec des fonctions de l'Api de Windows. Le plus "sûr" d'entre eux est de ne pas s'emberlificoter avec des calculs d'apothicaire de conversion (VBA/Excel travaillant en échelle de points) Si tu centres avant de minimiser, le réagrandissement le restituera centré, comme dit plus haut).
Mais c'est là une toute autre question, totalement à part entière

28/11/2008, 18h02
Jeanvaljean44

Merci pour tout UCFOUTU :mouarf1:

Tout fonctionne!!!

Bon WE

Jeanvaljean