Figer la taille d'un UserForm

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.

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 !

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:

---

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.

Bonjour

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

Trouvé dans la FAQ Excel de DVP.

Philippe

Bonjour,

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

Code:

---

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

---

La réponse de Philippe fonctionne.

Merci à vous pour votre réactivité :D