Adapter le format de chaque feuilles d'un classeur a différents écrans

Bonjour,

j'ai un USF avec une bdd et a l'avenir quelques feuilles

quel serait le code pour adapter l'ensemble du classeur a la taille de chaque écran des différents utilisateurs ?

D'avance merci pour vos propositions

Bonjour,

Selectionnez la range que vous souhaitez voir apparaitre, puis utilisez la fonction zoom.

Range(zoomRng).Select
ActiveWindow.Zoom = True

CF. aide VBA online:

Propriété Window.Zoom (Excel)

Bonjour

Merci de vous intéresser à ce problème.

Avec votre proposition,le classeur sera en plein écran quelques soit la taille de l'ecran de l'utilisateur ?

Merci

J'avais mal compris votre problème. La solution que je vous donne permet de zoomer sur la feuille, comme vous le feriez avec CTRL+Roulette.

Si vous voulez définir la taille de la fenetre de l'application Excel il vous faut utiliser, pour le plein ecran xlMaximized:

Application.WindowState = xlMaximized

Ou pour une taille personnalisée:

With ActiveWindow 
 .WindowState = xlNormal 
 .Top = 1 
 .Left = 1 
 .Height = Application.UsableHeight ' = etendu comme plein ecran, ou entrer ici la hauteur voulue, en pixels
 .Width = Application.UsableWidth ' = etendu comme plein ecran, ou entrer ici la largeur voulue, en pixels
End With

Je vous renvoie vers l'aide en ligne :

Window.WindowState, propriété (Excel)