XL 2010 complement sur code

[tinet]

Bonjour le forum

J'utilise ce code pour masquer un maximum d'élément à l'écran.
Je cherche un moyen de laisser quand même apparaître le zoom moins plus en bas de l'écran

Sub Cache()
With Application
.ScreenUpdating = False
.DisplayStatusBar = False
.DisplayFormulaBar = False
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
.ScreenUpdating = True
End With

With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayHeadings = False

End With

End Sub

 

[Lone-wolf]

Bonjour tinet 🙂, le Forum 🙂

Il faut enlever .DisplayStatusBar = False et ce sera bon 😉

En Option, avec un seul bouton tu pourra masquer ou afficher les éléments.

Public flag As Boolean

Sub Affiche_Cache()
If flag Then
flag = False
Cache
Else
flag = True
Affiche
End If
End Sub

Sub Cache()

With Application
.ScreenUpdating = False
.DisplayFormulaBar = False
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End With

With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With

End Sub

Sub Affiche()

With Application
.ScreenUpdating = True
.DisplayFormulaBar = True
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End With

With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With

End Sub

 

[tinet]

Bonjour Lone-Wolf

Merci. La réponse était sous mes yeux
ok J'ai mis en cache
.DisplayStatusBar = True

Par contre pourquoi avoir mis

.ScreenUpdating = True
deux fois en affiche

 

[Lone-wolf]

Re

Ouuuuuupppsss!! Désolé pour le quack. 😳