Discussion :

[Vbamateur]

Bonjour à tous,

Je sollicite votre précieuse aide car une fois de plus je suis bloqué en VBA malgré mes recherches.
En effet, l'affichage de mon fichier excel ne se fait pas de la même façon selon les écrans. De fait, pour un affichage permanent et optimal, je souhaite savoir s'il y a une sorte d' "Autofit" qui ajusterait la taille de la fenêtre en fonction de l'écran et de sa résolution de façon automatique?
Si oui, auriez-vous une idée de la commande en VBA?

Merci d'avance pour vos réponses toujours utiles,

Bien amicalement,

Vbamateur.

[parmi]

Bonjour,

Je ne connais aucune option du genre.
Par contre, tu peux regarder la dimension et ajuster selon...

Code :

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

1
2
3
 
MsgBox Application.UsableWidth & " par " & Application.UsableHeight
ActiveWindow.Zoom = 90 'ou le ratio que tu auras déterminé

[Docmarti]

Bonjour.

Voici une utilisation simple de Zoom :

Code :

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

1
2
3
4
5
Application.WindowState = xlMaximized
Sheets(1).Activate
ActiveWindow.WindowState = xlMaximized
Sheets(1).Range("a1:N17").Select
ActiveWindow.Zoom = True

[Vbamateur]

Le fait que "displayfullscreen" soit sur "true" ne fera pas rencontrer de problème en théorie?

En tout cas, il semble que cette manipulation soit fort utile, j'espère qu'elle permet de s'adapter à toutes les tailles d'écran, l'expérience le dira.

Merci beaucoup en tout cas,

Cordialement,

Vbamateur.

[Docmarti]

Personnellement, je n'aime pas xlMaximized pour l'application.

Je préfère xlNormal :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Zoom_Feuilles_WindowState_xlNormal()
 
  Application.WindowState = xlMaximized
 
  HauteurApplication = Application.Height
  LargeurApplication = Application.Width
 
  'Annuler Application.WindowState = xlMaximized
  Application.WindowState = xlNormal
 
 'Taille personnalisee
  Application.Height = HauteurApplication
  Application.Width = LargeurApplication
 
Sheets(1).Activate
ActiveWindow.WindowState = xlMaximized
Sheets(1).Range("a1:P22").Select
ActiveWindow.Zoom = True
End Sub

[Vbamateur]

Merci pour cette réponse, cependant, lorsque je change le fichier d'un écran à un autre (j'en ai 2), la mise au point ne se fait pas même si je lance la macro...
Ma plage à ajuster à la taille de l'écran est le plage "A1:W54".
Par ailleurs, question peut être un peu niaise mais DocMarti, pourquoi tu n'aimes pas le xlMaximised?

Bien cordialement,

Vbamateur.

[parmi]

Ce que je t'ai écrit tient compte de l'écran où est située l'appli.
J'ai testé sur mes 2 écrans

Code :

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

MsgBox Application.UsableWidth & " par " & Application.UsableHeight

Tu pourrais mixer ceci au code de docmarti ...

[Docmarti]

Vbamateur : Je n'ai qu'un seul écran. Je ne peux donc pas t'aider pour la question des 2 écrans.

Pour le xlMaximised, je n'ai rien contre. C'est mème une commande qui peut être très utile.