basculer en mode plein écran

  • Initiateur de la discussion STéphane
  • Date de début
S

STéphane

Guest
'Basculer du mode normal au mode plein écran avec désactivation barre d'outils standards (il y a peut être une ou deux lignes inutiles)

'attention, ceci permet de basculer à visible les objets s'ils ne le sont pas, et de basculer à caché s'ils le sont

Sub HideShowMenus()
With application
.msgbox = Not .msgbox
.displayfullscreen = Not .displayfullscreen
.activewindow.displayWorkbookTabs = Not .activewindow.displayWorkbookTabs
.activewindow.displayHeadings = Not .activewindow.displayHeadings
.activewindow.displayHorizontalScrollBar = Not .activewindow.displayHorizontalScrollBar
.activewindow.displayVerticalScrollBar = Not .activewindow.displayVerticalScrollBar
.CommandBars("Worksheet Menu Bar").Enabled = Not .CommandBars("Worksheet Menu Bar").Enabled
.msgbox = Not .msgbox
End With
HideMenus = true
End Sub

voilà
 

Statistiques des forums

Discussions
311 720
Messages
2 081 926
Membres
101 842
dernier inscrit
seb0390