[VBA-E]Dimensions fenêtre

Dans Workbook_Open, j'ai ça

Code:

---

1 2 3 4 5 6 7 8 9

Public HauteurEcran, LargeurEcran Private Sub Workbook_Open() Application.WindowState = xlMaximized With Application HauteurEcran = .UsableHeight LargeurEcran = .UsableWidth End With '.... End sub

---

Dans un form, j'ai ça

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() With GrilleDeSaisie 'Nom de l'userform .Height = HauteurEcran .Width = LargeurEcran End With '... End sub

---

Or, si la largeur de GrilleDeSaisie correspond bien à la largeur de l'écran, la hauteur, elle, ne suit pas. :piou:
Un erreur d'interprétation ?

Une explication serait la bienvenue.

Merci

NB - Je n'avais encore jamais rencontré de pb avec ce code :cry:

Ne vois rien de faux dans ton code (même si n'ai pas VBA) !
A moins que VBA ne gère des "étirements" à proportion forcée !
Et VBA ne sait-il plus faire, comme avant, un simple zoom "pleine page" , ni "plein écran" ?
:cry:

2 petites gênes :
1) pourquoi Public (avec le risque d'une valeur donnée ailleurs) ?
2) à l'Open, tout n'est pas encore chargé

bonjour Ouskel'n'or , bonojur jmfmarques

pour afficher ton UserForm e plein ecran tu peux tester

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub userForm_Activate() With Me .startUpPosition = 3 .Width = Application.Width .Height = Application.Height .Left = 0 .Top = 0 End With End Sub

---

bon week end
michel

Hello Silky,
Marche impeccable.
Curieux, je crois avoir toujours utilisé UsableHeight ou Width et n'ai pourtant jamais eu ce pb... Je vérifierai.
En attendant, merci (une fois de plus)

Pour te répondre, Meussieu jmf, "Public" parce que les lignes de code de lecture des dimensions d'écran étaient à l'origine dans Userform_Initialize() et que, les ayant placés dans workbook_open, je ne voulais pas qu'on puisse penser un seul instant que j'ai eu pu les avoir oubliées :lol:

Merci à tous deux

A+

Bonjour!
Quand Excel calcule la hauteur utilisable, il déduit tout ce qui est barres d'outils, d'état, de formule, de défilement et les onglets de classeur;
et même en masquant tout ça et en te mettant en plein écran, il reste la barre de menus qui te laisse donc toujours une petite bandelette horripilante...

Tiens ?
VBA moderne ne permet plus, comme avant, d'initialiser Excel sans la moindre barre affichée ?
Eh ? Ousk ?... donnes la réponse....(tu la connais) :lol:

Hello Fred&J,

Citation:

---

Envoyé par Tu

Quand Excel calcule la hauteur utilisable, il déduit tout ce qui est barres d'outils, d'état, de formule, de défilement et les onglets de classeur;
et même en masquant tout ça et en te mettant en plein écran, il reste la barre de menus qui te laisse donc toujours une petite bandelette horripilante...

---

C'est vrai si tu utilises UsableHeight et width mais avec la syntaxe donnée par SilkyRoad, tu as bien la hauteur et la largeur de l'écran

Citation:

---

Envoyé par Quant à jmf, il

ou plutôt demandé : VBA moderne ne permet plus, comme avant, d'initialiser Excel sans la moindre barre affichée ?

---

Si mais il restera toujours un truc ou deux qui t'empêcheront d'avoir la bonne hauteur. J'ai vérifié, j'utilisais bien Application.Height... Je ne sais pas ce qu'il m'a pris d'aller chercher UsableHeight :cry:

A+