Discussion :

[Novice72]

Bonjour à toutes et à tous,

J' ai crée un programme ( notamment avec votre aide ) avec des userforms qui pour certains prennent la totalité de mon écran et pour d'autres, NON.
Voilà mon problème. Ces Userforms ont été conçus sur un écran 17 pouces. Lorsque je passe ce programme à des collègues qui ont un 15 pouces ( moins n'en parlons même pas ),
une partie des Userforms n'apparaît pas. Il faut Utiliser les curseurs ( en bas et à droite ) si on veut avoir accès à certains boutons qui se trouvent sur l'userform.

Question : Comment programmer la taille d'un Userform en fonction de la taille de l'écran ?


Merci d'avance pour votre aide.

Novice72

[Transitoire]

Bonjour,
Je ne sais pas si c'est possible de dimensionner la taille du UF en fonction de l'écran, mais j'imagine, cela extrêmement compliqué et aléatoire au vu des différences de systèmes d'exploitations.
En ce qui me concerne, je transformerais mes UF énormes en UserForm multipages qui prendraient donc forcément moins de volumes. C'est certes un peu fastidieux(quoique) à faire, mais bon ????

Cordialement

[anasecu]

Bonjour,

En cherchant un tant soit peu sur la FAQ : http://excel.developpez.com/faq/?pag...apterTailleUSF

[patricktoulon]

Bonjour anasecu

et si l'application n'est pas maximisée hein!!???? tu y a pensé???
si utilisation l'exemple de la faq il faut completer sinon il y a d'autre solution (api,registre)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
   Dim etat As Long
   etat = Application.WindowState
    Application.WindowState = xlMaximized
    With Me
        .startupposition = 3
        .Width = Application.Width
        .Height = Application.Height
        .Left = 0
        .Top = 0
    End With
    Application.WindowState = etat
End Sub

et contrairement a l'exemple de la faq il faut utiliser le initialyse et non le activate de l'userform


et sur Windows 7 ca demande encore quelque ajustement
sans les api ca donne ca
debloquer l'apostrophe devant les "+" ou "-"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
   Dim etat As Long
   etat = Application.WindowState
    Application.WindowState = xlMaximized
    With Me
        .startupposition = 3
        .Width = Application.Width '- (Me.Height - Me.InsideHeight)' recalage avec W 7
        .Height = Application.Height '- (Me.Height - Me.InsideHeight) + 6'recalage avec W 7
        .Left = 0 '+3 '3 est l'epaisseur thick-borderwindows dans W7
        .Top = 0
    End With
    Application.WindowState = etat
End Sub

[Novice72]

Bonjour anasecu

et si l'application n'est pas maximisée hein!!???? tu y a pensé???
si utilisation l'exemple de la faq il faut completer sinon il y a d'autre solution (api,registre)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
   Dim etat As Long
   etat = Application.WindowState
    Application.WindowState = xlMaximized
    With Me
        .startupposition = 3
        .Width = Application.Width
        .Height = Application.Height
        .Left = 0
        .Top = 0
    End With
    Application.WindowState = etat
End Sub

et contrairement a l'exemple de la faq il faut utiliser le initialyse et non le activate de l'userform


et sur Windows 7 ca demande encore quelque ajustement
sans les api ca donne ca
debloquer l'apostrophe devant les "+" ou "-"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
   Dim etat As Long
   etat = Application.WindowState
    Application.WindowState = xlMaximized
    With Me
        .startupposition = 3
        .Width = Application.Width '- (Me.Height - Me.InsideHeight)' recalage avec W 7
        .Height = Application.Height '- (Me.Height - Me.InsideHeight) + 6'recalage avec W 7
        .Left = 0 '+3 '3 est l'epaisseur thick-borderwindows dans W7
        .Top = 0
    End With
    Application.WindowState = etat
End Sub

Merci Patrick pour ta réponse que tu as donnée à "anasécu". en effet, avec des personnes comme lui, les forums n'ont plus lieu d'exister puisque tout est dans les FAQ.....

Je vais essayer de regarder ta réponse et je te redis. Pour le moment j'ai plusieurs petits programmes à m'attaquer et celui là n'est plus prioritaire pour le moment. je te redirai quand même.

Encore merci à toi PatrickToulon

Novice72