Adapter taille user form à tt ordinateur

Bonjour,

Je souhaite que ma userform s'adapte à la taille de n'importe quel ordinateur.

Pour l'instant, quand je passe d'un PC à l'autre, je perds la moitié de ma page.

Existe t-il un code et si oui, ou faut-il l'integrer?

Merci d'avance,

Amicalement,

Vincent

Bonjour

Tu as le même sujet ici :

https://forum.excel-pratique.com/post96034.html?hilit=taille%20userform#p96034

Amicalement

Nad

Ah oui j'avais pas vu, merci.

Mais comme le dis Oncle Barney sur ce post, ton code ne permet pas l'ajustement en hauteur du userform.

Quelqu'un aurait-il la solution?

Merci d'avance !

Vincent

Bonjour,

Essaie ce code à mettre dans Userform :

Private Declare Function FindWindowA Lib "User32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 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 Sub UserForm_Initialize()
Dim hWnd As Long, exLong As Long, zFactor As Integer
 hWnd = FindWindowA(vbNullString, Me.Caption)
 exLong = GetWindowLongA(hWnd, -16)
 If exLong And &H880000 Then SetWindowLongA hWnd, -16, exLong And &HFF77FFFF
 zFactor = 100 * CInt(Application.Width / Me.Width)
 If zFactor > 400 Then zFactor = 400
 Me.Width = Application.Width
 Me.Height = Application.Height
 Me.Zoom = zFactor
 End Sub

Dans ton USF, n'oublie pas de mettre un bouton et code associé pour fermer ton Userform car dans le cas contraire tu ne pourras plus fermer excel ... (sauf manière forte bien sûr..)

Amcialement

Edit Dan :

Tu peux aussi essayer ceci :

Dans l'Userform tu places ce code

Private Sub UserForm_Initialize()
With UserForm1
    .Top = 0
    .Left = 0
    .Width = Application.Width
    .Height = Application.Height
End With
End Sub

Dans THISWORKBOOK, tu mets ce code

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.WindowState = xlMaximized
End Sub

Amicalement

Bonjour,

Ce code a effectivement permis d'adapter la userform à la taille de l'écran, mais les boutons qui la constitue ne suivent pas...

EN effet, sur un autre PC que le mien, le fichier s'ouvre mais je ne vois plus les boutons qui sont situés en bas et à droite de la userform.

Le contenu de cette useform peut il se mettre automatiquement à l'échelle ? Si oui, comment ?

Merci d'avance !!!

Amicalement,

Vincent.

Re,

Edit : Erreur