Supprimer toutes les entêtes

[maval]

Bonjour,

Je suis à la recherche d'un code pour supprimer toutes les entêtes de toutes les feuilles du classeurs sauf la première feuille nommer "Accueil" j'ai mis comme code:

Application.ActiveWindow.DisplayHeadings = False

Mais sa me supprimer que la première feuille

Merci d'avance

 

[NezQuiCoule]

Re : Supprimer toutes les entêtes

Bonjour maval,

À insérer dans un module :

Sub En_tete()

Sheets(1).Activate
Application.ActiveWindow.DisplayHeadings = True

For i = 2 To Sheets.Count
    Sheets(i).Activate
    Application.ActiveWindow.DisplayHeadings = False
Next

Sheets(1).Activate

End Sub

Bonne journée

 

[maval]

Re : Supprimer toutes les entêtes

Bonjour NezQuiCoule,

Je te remercie mais tu as fait le contraire

La première feuille à les entêtes les autres ne l'ont pas

@+

 

[NezQuiCoule]

Re : Supprimer toutes les entêtes

Je suis à la recherche d'un code pour supprimer toutes les entêtes de toutes les feuilles du classeurs sauf la première feuille

Bonjour NezQuiCoule,

Je te remercie mais tu as fait le contraire

La première feuille à les entêtes les autres ne l'ont pas

C'est moi ou y'a comme un quiproquo ?

 

[maval]

Re : Supprimer toutes les entêtes

Re,

La première feuille garde les entêtes et les autres perd les entêtes

 

[DoubleZero]

Re : Supprimer toutes les entêtes

Bonjour, maval, NezQuiCoule, le Forum,

Pourquoi ne pas déposer le code sollicité et obtenu ici...

P. S. : Bonjour, job75

 

[job75]

Re : Supprimer toutes les entêtes

Bonjour maval, NezQuiCoule,

On peut aussi effacer les en-têtes si ça doit être durable :

Sub Entete()
Dim s As Object
For Each s In Sheets
  If s.Name <> "Accueil" Then
    With s.PageSetup
      .LeftHeader = ""
      .CenterHeader = ""
      .RightHeader = ""
    End With
  End If
Next
End Sub

Edit : bonjour DoubleZero

A+

 

[maval]

Re : Supprimer toutes les entêtes

Bonjour Double Zero

parce qu'il ne vas pas!

 

[maval]

Re : Supprimer toutes les entêtes

Bonjour Job

Je ne sais pas rien ne se passe?

 

[job75]

Re : Supprimer toutes les entêtes

Je ne sais pas rien ne se passe?

Vous plaisantez j'espère sinon il faut vous réveiller.

Mettez des en-têtes et voyez

 

[JCGL]

Re : Supprimer toutes les entêtes

Bonjour à tous,
Salut 00,
Salut Gérard,

Job75 et MaVal : vous ne parlez pas des même entêtes...

Bises ++ à 00
A+ à tous

 

[maval]

Re : Supprimer toutes les entêtes

Re,

Voyer peut être que je me suis planter?

 

[JCGL]

Re : Supprimer toutes les entêtes

Bonjour à tous,

MaVal : de quoi parles-tu :


ou

A+ à tous

 

[maval]

Re : Supprimer toutes les entêtes

Bonjour JCGL

Je parle des entêtes de la feuille excel.....

 

[JCGL]

Re : Supprimer toutes les entêtes

Bonjour à tous,

La solution proposée par NezQuiCoule devrait te convenir...

A+ à tous