masquer entete de ligne et colonne de toutes les feuilles du classeur

[cathodique]

Bonsoir,

En enregistrant une macro pour masquer l’entête de ligne et colonne, je me suis aperçu dans les options qu'on ne pouvait le faire qu'en sélectionnant une seule feuille à la fois.

Sub Masquer_entete()
ActiveWindow.DisplayHeadings = False 'masquer
End Sub

Comment pourrait-on faire pour qu'à l'ouverture du classeur, on puisse masquer l'entete pour toutes les feuilles du classeurs (feuilles de calcul et feuilles de graphique).

En vous remerciant par avance.

Cordialement,

 

[Staple1600]

Re : masquer entete de ligne et colonne de toutes les feuilles du classeur

Bonsoir à tous_____________________EDITION: Bonsoir Victor21

A mettre dans ThisWorkBook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayHeadings = False 'masquer
End Sub

 

[Victor21]

Re : masquer entete de ligne et colonne de toutes les feuilles du classeur

Bonsoir, cathodique.

En bouclant sur toutes les feuilles, dans le Workbook_Open, non ?
(Pas de fichier pour tester )

Edit : Bonsoir, JM

 

[cathodique]

Re : masquer entete de ligne et colonne de toutes les feuilles du classeur

Bonjour Staple1600, Victor21, Le Forum,

La proposition de Staple1600, fonctionne à l'activation des feuilles. mais je pose la question à tout hasard, y aurait-il un autre moyen sans passer pas l'évènement activate.

J'avais trouvé sur le forum une macro qui activait les bibliothèques dans Thisworkbook_open, c'est dans ce genre que je voudrai le faire. Merci beaucoup Staple.

Merci à toi aussi Victor, en effet une boucle dans Thisworkbook_open sur toutes les feuilles. Je lance une recherche pour apprendre comment désigner toutes les feuilles d'un classeur.

Pour le fichier joint, je n'ai pas jugé utile d'en joindre un, car j'ai demandé pour les feuilles d'un classeur (peu importe le classeur).

Bonne journée à tous.

Cordialement,

 

[Pierrot93]

Re : masquer entete de ligne et colonne de toutes les feuilles du classeur

Bonjour à tous,

essaye peut être ceci :

Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Select ws.Index = 1
Next ws
ActiveWindow.DisplayHeadings = False
End Sub

bonne journée
@+

 

[cathodique]

Re : masquer entete de ligne et colonne de toutes les feuilles du classeur

Bonjour Pierrot93,

Je te remercie beaucoup, le code masque bien les entêtes ligne/colonne de toutes les feuilles sauf que les feuilles sont toutes sélectionnées [groupe de travail]. J'ai rajouté sheets("menu").select et ainsi c'est bon.

Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Select ws.Index = 1
Next ws
ActiveWindow.DisplayHeadings = False
Worksheets("menu").select
End Sub

Je voudrai adapter ce code sur un autre fichier dont toutes les feuilles sont invisibles et dont certaines sont protégées par un mot de pass xy.

En vous remerciant beaucoup.

Cordialement,

 

[Pierrot93]

Re : masquer entete de ligne et colonne de toutes les feuilles du classeur

Re,

bah... il y a lieu de les rendre visibles et sans doute egalement les déprotéger.... tu dois pouvoir placer ceci dans la même boucle....

 

[cathodique]

[RESOLU] : masquer entete de ligne et colonne de toutes les feuilles du classeur

Re Pierrot93,

Je te remercie, je pense avoir trouver. En fait, il n'y a pas lieu de déprotéger les feuilles.

Option Explicit
Sub Masquer_entete_LigCol()
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Visible = xlSheetVisible
    Ws.Select Ws.Index = 1
Next Ws
ActiveWindow.DisplayHeadings = False

For Each Ws In Worksheets
If Ws.Name <> "menu" Then Ws.Visible = xlSheetVeryHidden
Next Ws

End Sub

Encore merci à tous.

Cordialement,