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

cathodique

XLDnaute Barbatruc
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.
Code:
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

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

Bonsoir à tous_____________________EDITION: Bonsoir Victor21 ;)

A mettre dans ThisWorkBook
Code:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayHeadings = False 'masquer
End Sub
 
Dernière édition:

cathodique

XLDnaute Barbatruc
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

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

Bonjour à tous,

essaye peut être ceci :
Code:
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

XLDnaute Barbatruc
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.
Code:
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,
 

Pièces jointes

  • Test masquer entete.xls
    87 KB · Affichages: 59

cathodique

XLDnaute Barbatruc
[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.
Code:
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,
 

Discussions similaires