Discussion :

[Didpa]

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

[decondelite]

Ce sont les mêmes propriétés pour les objets à l'intérieur du userform sauf que c'est par rapport aux bords du userform pour Left et Top.

Tu peux donc faire des calculs en définissant des séparations fixes par rapport aux 4 bords du userform et entre elles: à partir de ces séparations cela te donnera toutes les propriétés de tes objets de userform pour pouvoir les positionner et redimmensionner de façon impeccable.

Tu programme tout ça dans l'évènement Resize de ton userform et tu auras quelque chose qui s'adaptera à absolument n'importe quelles dimmensions, du moment que tu ne le redimmensionnes pas trop petit.