Dimensionnement de Excel à son ouverture

Question

J'ai ce problème : Je voudrais que lorsque j'ouvre un fichier Excel il s'ouvre avec de visible uniquement la plage "A1:K20" par exemple, avec le zoom automatiquement à 100% et ce sur n'importe quel ordinateur. Si c'est possible, un code VBA est sans doute indispensable avec un module événement. Bien sûr j'ai essayé en cherchant sur internet mais je n'ai rien trouvé de probant. Je vous remercie de vos suggestions...

mafraise · Accepted Answer

En Excel je connais le "Zoom" d'une fenêtre mais pas le zoom de l'application à moins que ce ne soit la propriété Application.WindowState qu'on évoque. Et cette propriété ne peux prendre que 3 valeurs : xlMaximized : fenêtre Maximisée (occupe tout l'écran) xlMinimized : fenêtre Minimisée (n'est plus accessible que dans la barre de tâches Windows) xlNormal : fenêtre de taille quelconque Pour moi, demander "avec le zoom automatiquement à 100%" exige plus d'explications... nota : si c'est maximiser la fenêtre, une simple instruction Application.WindowState = xlMaximized ajoutée en début de code fera le travail...

fcyspm30 · Answer

Un petit essai pour voir...

galopin01 · Answer

Ce n'est pas qu'un problème de définition d'écran : Tous les écrans n'ont pas la même proportion ; Certains ont une proportion de 2/3 d'autre 3/4 d'autres sont pleine page Tu ne peux zoomer qu'horizontalement sinon tu déformerais la hauteur de tes cellules ! A+...

mafraise · Answer

Un autre essai généralisé à plusieurs feuilles si on le désire. Tout le code est dans le module de code de ThisWorkbook. Dans ce module trois constantes définissent les feuilles concernées, la plage concernée pour chacune des feuilles concernées et le zoom désiré pour chacune des plages (100% ou zoom adaptatif) La procédure se trouve dans Sub Workbook_Open(). Elle ne s'exécute donc que pour la feuille active à l'ouverture du classeur (et en plus seulement si elle est concernée). Par la suite, la procédure de limitation de l'affichage n'est plus jamais exécutée. Ce choix a été fait ne pas exécuter une macro évènementielle à tout bout de champ qui annihilerai la possibilité du copier/coller. Mais on pourrait faire en sorte de balayer toutes les feuilles concernées à l'ouverture du classeur pour leur appliquer la procédure de limitation à leur zon e (il suffit de le demander gentiment ) nota : dans le classeur joint, les deux feuilles concernées sont "Démo1"avec zoom à 100% et "Démo4" avec zoom adaptatif. Le code (il est commenté) : Const FeuillesConcernees = "Démo1/Démo2" ' les feuilles concernées séparées par un "/" Const ZonesConcernees = "a1:k20/aa100:az125" ' les plages des feuilles concernées séparées par un "/" Const ZoomAdaptatif = "False/True" ' le Zoom de chaque feuille concernées séparés par un "/" ' si False, zoom à 100% sinon on adapte le zoom à la plage Private Sub Workbook_Open() Dim NomFeuille, tabloFeuilles, tabloPlages, tabloZoom, i& Application.ScreenUpdating = False NomFeuille = LCase(ActiveSheet.Name) ' nom de la feuille activée tabloFeuilles = Split(LCase(FeuillesConcernees), "/") ' tableau des feuilles concernées tabloPlages = Split(ZonesConcernees, "/") ' tableau des plages concernées tabloZoom = Split(ZoomAdaptatif, "/") ' tableau des zooms des feuilles concernées For i = 0 To UBound(tabloFeuilles) ' boucle sur les feuilles concernées If tabloFeuilles(i) = NomFeuille Then ' si la feuille est une feuille concernée LimiterPlage ActiveSheet.Range(tabloPlages(i)), tabloZoom(i) ' on limite sa plage (avec le zoom désiré) Exit Sub ' et on quitte la procédure SheetActivate End If Next i End Sub Sub LimiterPlage(xplage As Range, Optional ByVal AdapterZoom As Boolean = True) Dim HautGauche As Range, BasDroite As Range Application.ScreenUpdating = False Application.Goto xplage, True ' on sélectionne la zone concernée (feuille et plage) LibererPlage ' on libère une éventuelle limitation de plage ' on référence la cellule de début et de fin de la plage "xPlage" à limiter Set HautGauche = xplage(1): Set BasDroite = xplage(xplage.CountLarge) On Error Resume Next ' en cas d'erreur ' on masque les lignes au dessus de la plage "xPlage" Range(Range("a1"), HautGauche.Offset(-1)).EntireRow.Hidden = True ' on masque les lignes en dessous de la plage "xPlage" Range(BasDroite.Offset(1), Cells(Rows.Count, Columns.Count)).EntireRow.Hidden = True ' on masque les colonnes à gauche de la plage "xPlage" Range(Range("a1"), HautGauche.Offset(, -1)).EntireColumn.Hidden = True ' on masque les colonnes à droite de la plage "xPlage" Range(BasDroite.Offset(, 1), Cells(Rows.Count, Columns.Count)).EntireColumn.Hidden = True xplage.Select ' sélection de la plage à zoomer ' on fixe le zoom soit à la plage soit à 100% If AdapterZoom = True Then ActiveWindow.Zoom = True Else ActiveWindow.Zoom = 100 Application.Goto HautGauche, True ' on se place sur la 1° cellule de la plage End Sub Sub LibererPlage() ' procédure pour la feuille et la fenêtre active Application.ScreenUpdating = False ActiveWindow.Zoom = 100 ' on met le zoom à 100% Rows.Hidden = False: Columns.Hidden = False ' on affiche toutes les lignes et colonnes Application.Goto Range("a1"), True ' on se place en A1 End Sub...

mafraise · Answer

Re à tous , A la demande générale ( ), la version très légèrement modifiée qui à l'ouverture du classeur limite les plages de toutes les feuilles concernées . Ainsi après l'ouverture du classeur, si on sélectionne n'importe laquelle des feuilles concernées, alors cette feuille sera limitée à sa plage...

galopin01 · Answer

Bonjur, Faut encore que je ramène mafraise ! Oui mais... Ce n'est pas l'appli Excel qui est dimensionné mais la visibilité des cellules ! A+...