Plein écran

Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Pourquoi, quand je fait plein écran, il n'a que la barre de titre du
fichier qui est masquer et pas les autres ?

Deux procs indispensables à mettre dans ton perso.xls
en y associant un raccourci clavier

'===========Pour cacher
Sub incognito()
Dim rep As Variant
Dim cmdB As CommandBar
Application.ScreenUpdating = False
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
' si tu veux masquer en plus la barre d'état
' la barre de formule
' les onglets...
With Application
.DisplayFullScreen = True
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
.DisplayVerticalScrollBar = False
.DisplayHorizontalScrollBar = False
End With
'
Application.ScreenUpdating = True
rep = MsgBox("pour retrouver les menus " _
& Chr(10) & "Ctrl+Maj+G" _
& Chr(10) & "pour cacher les menus" _
& Chr(10) & "Ctrl+Maj+H" _
, vbInformation _
, "GD_Plein Ecran")
End Sub
'===========pour révéler
Sub Sesame()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB

With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
.DisplayVerticalScrollBar = True
.DisplayHorizontalScrollBar = True
End With
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
DoEvents
End Sub


--
@+
;o)))