Discussion :

[Pierre67]

Bonjour, à l'instar de navigateurs, je souhaite pouvoir reduire un userform non modal pour pouvoir accéder à une feuille de calcul
et que l'utilisateur puisse le rétablir
cordialement

[Patrice740]

Bonjour,

Dans un module standard :

Code :

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

1
2
3
4
5
6
7
8
Option Explicit
Public Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Const WS_CAPTION = &HC00000      'Titre
Public Const WS_MAXIMIZEBOX = &H10000   'Maximisable
Public Const WS_MINIMIZEBOX = &H20000   'Minimisable
Public Const WS_SIZEBOX = &H40000       'Redimensionnable

Dans le module du formulaire, ajouter le bouton "Minimize" :

Code :

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

1
2
3
4
5
6
Option Explicit
Private Sub UserForm_Initialize()
Dim hnd As Long
  hnd = FindWindow("ThunderDFrame", Me.Caption)
  SetWindowLong hnd, -16, GetWindowLong(hnd, -16) Or (WS_CAPTION + WS_MINIMIZEBOX)                                          '*
End Sub

[Pierre67]

Désolé Patrice
mais dans le module standard, les 3 premières ligne sont en rouge je dois les marquer ?? avec psftr ??

le bouton, c'est un bouton standard ?
@+

[Patrice740]

Re,

Pour 32 et 64 bits, dans le module standard :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
#If Win64 Then
  Public Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
  Public Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As LongPtr, ByVal dwNewLong As LongPtr) As LongPtr
  Public Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As LongPtr) As LongPtr
#Else
  Public Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  Public Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  Public Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
#End If
Public Const WS_CAPTION = &HC00000      'Titre
Public Const WS_MAXIMIZEBOX = &H10000   'Maximisable
Public Const WS_MINIMIZEBOX = &H20000   'Minimisable
Public Const WS_SIZEBOX = &H40000       'Redimensionnable

Le bouton minimize est celui qui existe dans toute fenêtre standard en haut à droite (le — à gauche de la croix de fermeture)

[patricktoulon]

re
une version abrégée
module standard

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
#If Win64 Then
   Declare PtrSafe Function FWA Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
   Declare PtrSafe Function SWL Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As LongPtr, ByVal dwNewLong As LongPtr) As LongPtr
  #Else
   Declare Function FWA Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   Declare Function SWL Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  #End If
'
Sub treebuttons(usf)
SWL FWA(vbNullString, usf.Caption), -16, &H94CF0080
End Sub

module userform

Code :

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

1
2
3
4
Option Explicit
Private Sub UserForm_Initialize()
treebuttons Me
End Sub

le reparametrage de la caption n'est pas dans le userform de facon a ce que ca puisse servir a tes eventuels autres userform de ton classeur