Discussion :

[ouskel'n'or]

Dans Workbook_Open, j'ai ça

Code :

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

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 :

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

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.
Un erreur d'interprétation ?

Une explication serait la bienvenue.

Merci

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

[jmfmarques]

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" ?


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é

[SilkyRoad]

bonjour Ouskel'n'or , bonojur jmfmarques

pour afficher ton UserForm e plein ecran tu peux tester

Code :

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

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

[ouskel'n'or]

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

Merci à tous deux

A+

[Fred&J]

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...

[jmfmarques]

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)

[ouskel'n'or]

Hello Fred&J,

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

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

A+