Sub Plein Ecran pour amateurs...

[Roland_M]

J'ai vu mainte fois la question posée pour<plein écran> voir ce petit Sub efficace.
Rappels aussi concernant les appels des fonctions Application... et ActiveWindow... en même temps,
Application doit être en premier et ActiveWindow en second, sinon certaines fonctions ne s'executent pas toujours correctement.

'Le Sub plein écran------------------------------------------

'Appel pour plein écran > BarresOutilsVisible False
'Appel pour remettre l'écran> BarresOutilsVisible True

Public Sub BarresOutilsVisible(BarVisible As Boolean)
' tout dans cet ordre !
Dim CmdB As CommandBar, EtatScreen As Boolean
EtatScreen = Application.ScreenUpdating 'Save Etat en cours
Application.ScreenUpdating = False
For Each CmdB In Application.CommandBars
CmdB.Enabled = BarVisible
'referme"Task Pane"(Aide.Excel) "Drawing"(Bar.Dessins en bas) "Full Screen"(La Boite(plein écran))
If CmdB.Type = msoBarTypeNormal And CmdB.Visible = True Then
If CmdB.Name = "Task Pane" Or CmdB.Name = "Drawing" Or CmdB.Name = "Full Screen" Then CmdB.Visible = False
End If
Next
Application.DisplayFullScreen = Not BarVisible
Application.DisplayFormulaBar = BarVisible
Application.DisplayStatusBar = BarVisible
Application.ScreenUpdating = EtatScreen 'remet Etat en cours
End Sub