Discussion :

[Mistouv]

Bonjour à tous,

Je suis en cours de développement d'un formulaire, et j'ai prévu d'afficher mon formulaire à droite de l'écran, et la feuille de commande Excel à gauche.
En utilisant l'enregistrement automatique d'une macro, j'ai obtenu la position de ma fenêtre dans la partie médiane gauche de mon écran :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Cadrer_Fenetre()
'
' Cadrer_Fenetre Macro
'
Application.Left = 1
Application.Top = 1
Application.Width = 630
Application.Height = 686.25
End Sub

Bien sûr, les valeurs "Width et Height" dépendent de mon type d'écran (18"1/4).
Ma question est donc : "Comment puis-je récupérer les valeurs "Width et Height" liées à l'écran du futur utilisateur de l'application ?"
Je vous remercie d'avance de votre réponse si vous avez la solution, ce dont je ne doute pas...

Mistouv

[BlueMonkey]

Bonsoir,

"Comment puis-je récupérer les valeurs "Width et Height" liées à l'écran du futur utilisateur de l'application ?"

Une solution est de maximiser la fenêtre de l'application Excel, puis de récupérer la taille de la fenêtre ainsi maximisée.

Code :

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

1
2
3
4
5
6
 
With Application
        .WindowState = xlMaximized
        largeur = .Width 
        hauteur = .Height
End With

Puis d'ajuster la taille du classeur dans les proportions souhaitées.

Code :

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

1
2
3
4
5
6
 
With Application.Windows("Classeur1")
        .WindowState = xlNormal
        .Width = largeur * 0.5
        .Height = hauteur
End With

Pour les positionnements d'un UserForm, voir Définir la position d'USF à l'écran de SilkyRoad

[Invité]

Bonjour,

Egalement, il faudrai voir si le ppp (point par pouce) de Windows de l'utilisateur impact la taille de la fenêtre ou non. Pour ma part, je suis en 144 ppp contre 96 ppp par défaut sur tout les Windows d'origine. Un nbre de ppp plus grand que 96 abaisse virtuellement la définition de l'écran. Les texte sont affiché plus gros et ça prends plus de place.

[Mistouv]

Bonsoir, et merci pour vos réponses.

Je ne peux malheureusement pas tester en reel avant lundi sur une autre machine, mais ta réponse, BlueMonkey, me semble effectivement fonctionner, j'ai essayé "à blanc", sur ma machine.
Je tiendrai bien évidemment compte de la remarque de Nouveau2, et je reviendrai vers vous si je constate quelque chose de particulier.
De ce fait, je clôture ce sujet.

Merci encore,
Mistouv