Discussion :

[Maze0]

Je cherche à placer et dimensionner un UserForm en fonction de la taille de l'écran. J'essai d'utiliser "Screen" pour placer et dimensionner mon UserForm mais l'application ne compile pas à cause que "Screen" n'est pas définit.

Code :

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

1
2
3
 
Me.Height = Screen.Height * 0.9
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2

Est-ce que "Screen" n'existe pas sous excel 2002?
Me manque t-il une référence?

[Daniel.C]

Bonjour,

En tout cas, il n'existe pas sous Excel 2010. Peut-être "Window" ?

[Maze0]

Window représente une fenêtre d'un classeur excel.

[Daniel.C]

Window représente une fenêtre d'un classeur excel

Oui. Mais "Screen" ne représente, lui, rien. En VBA Excel en tout cas. Si tu veux les dimensions de l'écran (moi, je dirais en pixels plutôt qu'en points comme indiqué dans le commentaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
Declare Function GetSystemMetrics32 Lib "User32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
 
Sub DisplayMonitorInfo()
Dim w As Long, h As Long
    w = GetSystemMetrics32(0) ' width in points
    h = GetSystemMetrics32(1) ' height in points
    MsgBox Format(w, "#,##0") & " x " & Format(h, "#,##0"), _
    vbInformation, "Monitor Size (width x height)"
End Sub

[Maze0]

Merci sa devrait le faire.

Savez-vous comment sa ce comporte lorsqu'on a deux écrans?

[Daniel.C]

Alors là, aucune idée. J'ai assez de mal avec un seul . Tu devrais ouvrir un nouveau fil en le spécifiant dans l'intitulé.