Application.WindowState

Bonjour,

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   If Sh.CodeName = "WsD" Then
       ActiveWindow.WindowState = xlMaximized
   Else
      With ActiveWindow
       .WindowState = xlNormal
       .Top = 1
       .Left = 1
       .Height = Application.UsableHeight
       .Width = Application.UsableWidth
      End With
   End If
   ActiveWindow.DisplayVerticalScrollBar = Sh.CodeName <> "WsD"
End Sub

Un remède ? (Sans passer par le Custom UI Editor)

Nota : j'ai essayé aussi avec "Application.ExecuteExcel4Macro "SHOW.TOOLBAR..." mais ça déchaine les foudres de mon antivirus (BD)

Bonjour Galopin,

Cette macro ne fonctionne pas comme attendu :

Quel est le comportement attendu?

La fenêtre se rétrécit bien et se remet à l'état maximized selon l'onglet sur lequel tu cliques.

Bonjour,

Le ruban ne se masque pas sur la feuille Doss : il faut absolument passer par le bouton pour effacer le ruban...

J'ai bien l'impression que je suis mûr pour le "Custom UI Editor"

A+

Le ruban ne se masque pas sur la feuille Doss :

Normal, tu ne masques que l'ascenseur vertical avec ce code :

ActiveWindow.DisplayVerticalScrollBar = Sh.CodeName <> "WsD"

Essaie avec ceci : à noter que ce code masque le ruban pour toutes les feuilles et l'affiche pour la feuille "Doss"]

Application.DisplayFullScreen = Sh.CodeName <> "WsD"

Cest effectivement le displayFullScreen qui masque le ruban.

Décidement l'enregistreur de macro n'arrive plus à suivre. Et la documentation de Microsoft non plus d'ailleurs !

Merci.

A+