Discussion :

[anyah]

bonjour,

j'aurais voulu avoir de l'aide sur une procédure a intégrer dans thisworkbook. je voudrais juste une procédure qui me permette de désactiver les headers de chaque page.
j'ai codé comme ceci mais cela ne marche que sur une seule feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Disappear()

Dim sheet As Worksheet

    For Each sheet In Worksheets
        With ActiveWindow
            .DisplayHeadings = False
            .DisplayWorkbookTabs = False
        End With
    Next sheet

End Sub

je pense que c'est la ligne en rouge qui pose problème mais bon je ne suis pas très expérimentée en vba.

merci d'avance a ceux qui répondront

[Gorfael]

Salut anyah et le forum
.DisplayHeadings s'applique à une fenêtre (Window), pas à une feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With ActiveWindow
    .DisplayHeadings = False
    .DisplayWorkbookTabs = False
End With
End Sub

Le problème est que quand tu change de page, c'est comme si tu changeais de fenêtre.
Tu peux aussi activer chaque page et lui enlever les affichages
A+

[anyah]

j'aimerai que les "display" se face tous a l'ouverture du classeur et non pas pour chaque activation de feuille comment je peux faire?

[Gorfael]

Salut anyah et le forum
Sur la macro _Open, je ferais dans ce style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim F as Worksheet
for each F in Sheets
   F.activate
   With ActiveWindow
      .DisplayHeadings = False
      .DisplayWorkbookTabs = False
   End With
Next F

Mais je présume qu'il doit y avoir une autre méthode, mais je ne vois pas laquelle.
A+

[anyah]

bonjour et merci Gorfael, j'ai mis mon code dans workbook_open effectivement c'est beaucoup mieux.... merci pour l'info
bonne journée