XL 2010 Adapter la taille des onglets en fonction de la taille de l'écran

cajuba · 2 Octobre 2020

Bonjour,
J'ai un fichier avec beaucoup d'onglets (218 ! je précise que je ne suis pas à l'origine de sa création)
Il sera utilisé par plusieurs utilisateurs qui n'auront pas forcément la même taille d'écran (que des liens pas de saisie)
Je voudrais que chaque onglet soit adapté à la taille d'écran (Chaque onglet utilise les colonnes de A à W)
J'adapte le 1er onglet à l'ouverture du fichier mais pas les autres
Merci d'avance à qui voudra bien m'aider

job75 · 2 Octobre 2020

Bonjour cajuba,

Je comprends que vous voulez appliquer le zoom de la feuille sur la sélection A1:W1.

Donc placez ces 2 macros dans ThisWorkbook (Alt+F11) :

VB:

Private Sub Workbook_Open()
Workbook_SheetActivate ActiveSheet 'lance la macro
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If TypeName(Sh) <> "Worksheet" Then Exit Sub
Dim ac As Range
Application.ScreenUpdating = False
Set ac = ActiveCell
Sh.[A1:W1].Select
ActiveWindow.WindowState = xlMaximized 'taille maximum de la fenêtre
ActiveWindow.Zoom = True 'applique le zoom sur la sélection
ac.Select
End Sub

A+

XL 2010 Adapter la taille des onglets en fonction de la taille de l'écran

cajuba

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Discussions similaires