Bonjour

Voilà, j'aimerais savoir, si il est possible qu'un userform, s'adapte a la taille de l'écran ?
Car je travaille avec un écran de 19", et quand j'ouvre sur un autre ordi qui as un écran de 15", je ne vois que les 3/4 de mon userform.Au moment de sont ouverture il doit prendre tout l'écran, voilà ce que j'ai mis comme code, si quelqu'un a une solution ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
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)
    Me.Width = Application.Width
    Me.Height = Application.Height
 
End Sub
Merci d'avance

Didier