Discussion :

[maxkun]

Bonjour à tous,

Je voulais savoir s'il existait un moyen de figer la taille d'un UserForm, que l'utilisateur ne puisse pas l'agrandir (soit en cliquant sur le petit carré "Agrandir" à coté de la croix pour fermer la fenêtre, soit en sélectionnant un coin de la fenêtre et en l'agrandissant).

Je n'ai pas trouvé de solution en fouillant sur le net :/

Avez vous une solution ?

Cordialement.

[unparia]

Bonjour
Si ton userform a été créé normalement (sans autre intervention que celle de VBE) il n'est pas doté de tout ce que tu dis là et n'est donc pas redimensionnable !

[maxkun]

En théorie je n'ai pas les éléments "Réduire" et "Agrandir" a coté de la croix, cependant pour des soucis pratique, je devais avoir le "Réduire" (je ne voulais le "Agrandir" mais je n'ai pas réussi à le retirer.

Voici le bout de code que j'avais trouvé sur le net :

Code :

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

1
2
3
4
5
6
Public Sub toto(F As Object)
hwnd = FindWindow(vbNullString, F.Caption)
IStyle = GetWindowLong(hwnd, GWL_STYLE) Or &H70000
SetWindowLong hwnd, GWL_STYLE, IStyle
 
End Sub

Ce code me rajoutais donc les 2 boutons cités ci dessus.

Cordialement.

[Invité]

Bonjour

Et cela : https://excel.developpez.com/faq/?pa...uctionUserForm

Trouvé dans la FAQ Excel de DVP.

Philippe

[pijaku]

Bonjour,

En complément des réponses obtenues, intéresse toi aux constantes disponibles : https://docs.microsoft.com/en-us/win.../window-styles

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
Option Explicit
 
Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex 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 SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
 
Const GWL_STYLE = -16
Const WS_MAXIMIZEBOX = 65536
Const WS_MINIMIZEBOX = &H20000
 
Private Sub UserForm_Activate()
Dim hwnd As Long, IStyle As Long
 
   hwnd = FindWindow(vbNullString, Me.Caption)
   IStyle = GetWindowLong(hwnd, GWL_STYLE) Or WS_MINIMIZEBOX
   SetWindowLong hwnd, GWL_STYLE, IStyle
End Sub

[maxkun]

La réponse de Philippe fonctionne.

Merci à vous pour votre réactivité