Zoom automatique Modification de code

[fenec]

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.

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]

Bonsoir fenec

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

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]

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.