Zoom automatique Modification de code

fenec · 20 Novembre 2016

Bonsoir le forum,

Dans le fichier joint, j’utilise cette macro qui me fait un zoom par rapport à une plage dans les feuilles Accueil et Etat de Congés.

Code:

Private Sub Worksheet_Activate()
Range("A1:I18").Select
ActiveWindow.ScrollColumn = Selection.Column
ActiveWindow.ScrollRow = Selection.Row
  ActiveWindow.Zoom = True
Range("D5").Select
End Sub

Le problème est que mes tableaux peuvent avoir plus de lignes mais pas moins et je n’arrive pas à modifier mon code pour cette évolution. J’ai essayé en recherchant la dernière ligne mais n’y suis pas parvenu.

Merci d’avance pour votre aide.
Cordialement,
Philippe.

PS : Je précise que j’utilise ce fichier en mode plein écran mais que j'ai désactivé cette fonction pour le forum.

Lone-wolf · 20 Novembre 2016

Bonsoir fenec

Un essai avec ceci, mais avant il faut mettre en commentaire tous les zoom des feuilles

VB:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Dim col As Long, lig As Long, plage As Range
  ActiveWindow.DisplayHeadings = False

  For lig = 4 To Sh.UsedRange.Rows.Count
  For col = 2 To Sh.UsedRange.Columns.Count
  Set plage = Sh.Cells(lig, col)
  ActiveWindow.Zoom = 90
  Next col
  Next lig
End Sub

fenec · 21 Novembre 2016

Bonsoir le forum, Lone-wolf
Déjà merci pour votre aide mais je vous avoue ne pas avoir essayer votre code ne comprenant pas votre commetaire.
Que voulez dire par:

mais avant il faut mettre en commentaire tous les zoom des feuilles

Je testerais demain vu leur tardive, rentrant du travail vais me consacrer à un bon repas plutôt qu'à excel.
Merci pour vos précisions.
Cordialement,
Philippe.

Zoom automatique Modification de code

fenec

XLDnaute Impliqué

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

fenec

XLDnaute Impliqué

Discussions similaires