Bonjour

Voilà, je reviens sur ma question de l'autre jour, afin que mon userform s'adapte à l'écran, et j'ai bien trouvé la réponse dans la FAQ, mais moi ce que j'aimerais c'est que tout s'adapte (les combobox, les textbox tout ce qui se trouve a l'intérieur de l'USF afin de pouvoir tout visualiser sur un écran 15" ou 19")
Là le code effectivement fonctionne et redimensionne bien mon USF, mais, pas le contenu. Est ce que cela est possible ??????

ce que j'ai en ce moment

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
'afin que l'userform s'adapte au écran
    With Me
        .StartUpPosition = 3
        .Width = Application.Width
        .Height = Application.Height
        .Left = 0
        .Top = 0
    End With
Ce que j'avais avant

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
cordialement

Didier