Cacher les entêtes de toutes les feuilles dès l'ouverture de mon classeur

[pat66]

Bonsoir à tous,

Je souhaite une marco pour Cacher les entêtes de toutes les feuilles de mon classeur à l'ouverture

J'ai essayé avec :
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
Application.ActiveWindow.DisplayHeadings = False
Application.DisplayScrollBars = True

et avec
With ActiveWindow
'.DisplayHorizontalScrollBar = False 'on cache barre défilement basse
'.DisplayWorkbookTabs = False '' on cache les onglets
'.DisplayHeadings = False
'End With

Rien à faire

Merci pour votre coopération

Patrick

 

[Jacky67]

Je souhaite une marco pour Cacher les entêtes de toutes les feuilles de mon classeur à l'ouverture

Bonsoir,
A ma connaissance on ne peut masquer les titres que sur la feuille active

Sub SppTitre()
Dim sh As Worksheet
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
sh.Activate
ActiveWindow.DisplayHeadings = False
Next
End Sub