L'objet "Screen" n'est pas définit

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:

---

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?

Bonjour,

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

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

Citation:

---

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:

---

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

---

Merci sa devrait le faire.

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

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