Supprimer toutes les entêtes

N

NezQuiCoule

XLDnaute Occasionnel

• 24 Février 2015

• #2

Re : Supprimer toutes les entêtes

Bonjour maval,

À insérer dans un module :

Code:

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 🙂

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 24 Février 2015

• #3

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

@+

 

Vote positif 0 Vote négatif

N

NezQuiCoule

XLDnaute Occasionnel

• 24 Février 2015

• #4

Re : Supprimer toutes les entêtes

maval à dit:

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

Cliquez pour agrandir...

maval à dit:

Bonjour NezQuiCoule,

Je te remercie mais tu as fait le contraire

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 24 Février 2015

• #5

Re : Supprimer toutes les entêtes

Re,

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 24 Février 2015

• #6

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 😀

 

Dernière édition: 24 Février 2015

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Février 2015

• #7

Re : Supprimer toutes les entêtes

Bonjour maval, NezQuiCoule,

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

Code:

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+

 

Dernière édition: 24 Février 2015

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 24 Février 2015

• #8

Re : Supprimer toutes les entêtes

Bonjour Double Zero

parce qu'il ne vas pas!

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 24 Février 2015

• #9

Re : Supprimer toutes les entêtes

Bonjour Job

Je ne sais pas rien ne se passe?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Février 2015

• #10

Re : Supprimer toutes les entêtes

maval à dit:

Je ne sais pas rien ne se passe?

Cliquez pour agrandir...

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

Mettez des en-têtes et voyez 🙄

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 24 Février 2015

• #11

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 24 Février 2015

• #12

Re : Supprimer toutes les entêtes

Re,

Voyer peut être que je me suis planter?

 

Pièces jointes

• sup Entetes.xlsm

  27.1 KB · Affichages: 15

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 24 Février 2015

• #13

Re : Supprimer toutes les entêtes

Bonjour à tous,

MaVal : de quoi parles-tu :


ou

A+ à tous

 

Pièces jointes

• Capture 1.png

  2.3 KB · Affichages: 44
• Capture 1.png

  2.3 KB · Affichages: 46
• Capture 2.png

  3.2 KB · Affichages: 46
• Capture 2.png

  3.2 KB · Affichages: 46

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 24 Février 2015

• #14

Re : Supprimer toutes les entêtes

Bonjour JCGL

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 24 Février 2015

• #15

Re : Supprimer toutes les entêtes

Bonjour à tous,

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

A+ à tous

 

Pièces jointes

• NQC sup Entetes.xlsm

  29.1 KB · Affichages: 17

Vote positif 0 Vote négatif