Répéter les en-tête et pied de page sur plusieurs onglets?

C

Compte Supprimé 979

Guest

• 24 Juin 2010

• #2

Re : Répéter les en-tête et pied de page sur plusieurs onglets?

Bonjour,

Sur l'onglet ou la mise en page est bonne,
Menu -> Fichier -> Mise en Page puis validation par OK

Ensuite sur les autres onglets, utilisation de la touche F4

ATTENTION ! Cela récupère toute la mise en page

A+

 

Vote positif 0 Vote négatif

S

sc66

XLDnaute Nouveau

• 24 Juin 2010

• #3

Re : Répéter les en-tête et pied de page sur plusieurs onglets?

Merci!

Ca a l'air de marcher, sauf si je mets une image en en-tête. Or, c'est le logo de l'entreprise et je dois le faire apparaître!

De plus, je peux avoir jusqu'à 20 ou 30 onglets. Est-ce qu'il y a une possibilité pour appliquer la mise en page sur tous les onglets d'un coup?

Merci pour votre aide!

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 24 Juin 2010

• #4

Re : Répéter les en-tête et pied de page sur plusieurs onglets?

Re,

Je ne pensais pas à ce type de mise en page 😛
Si tu veux copier/coller tes lignes d'entête et de pied de page, voici un code

Code:

Option Explicit

Sub CopieMiseEnPage()
  Dim Sht As Worksheet
  Dim ShtM As Worksheet ' Variable objet pour Feuille modèle
  ' Définition de la feuille modèle
  Set ShtM = Sheets("Feuil1")
  ' Pour chaque feuille du classeur en évitant celle des paramètres par exemple
  For Each Sht In ThisWorkbook.Sheets
    If Sht.Name <> ShtM.Name And InStr(1, "Params NomBidon", Sht.Name) = 0 Then
      ' *** Pour l'exemple ***
      ' Copie des lignes d'entête de la ligne 1 à 3 et de la colonne A à E
      ShtM.Range("A1:E3").Copy Destination:=Sht.Range("A1")
      ' Copie des lignes de pied de page de la ligne 30 à 40 et de la colonne A à E
      ShtM.Range("A30:E40").Copy Destination:=Sht.Range("A30")
    End If
  Next Sht
  Set ShtM = Nothing
End Sub

A+

 

Vote positif 0 Vote négatif

S

sc66

XLDnaute Nouveau

• 24 Juin 2010

• #5

Re : Répéter les en-tête et pied de page sur plusieurs onglets?

Merci Bruno!

Intéressante votre méthode!
Mais (il y a un mais... 😀 ) impossible de recopier les images de cette façon. Et donc mon logo reste toujours absent sur mes onglets créés.

Quelle solution?

Je pensais au début mettre le logo dans les en-tête (avec la fonction en-tête d'excel) et la pagination en pied de page (fonction excel) aussi. Est-ce qu'on peut reproduire ces en-tête et pied de page sur les onglets créés? En plus ça me permettrait de rogner un peu les marges de la page imprimée et de gagner de la place!

Voila, j'attends vos idées! Un grand merci en tout cas! 🙂

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Juin 2010

• #6

Re : Répéter les en-tête et pied de page sur plusieurs onglets?

Bonjour sc66, salut Bruno,

sc66 à dit:

Voila, j'attends vos idées!

Cliquez pour agrandir...

Si pour créer les onglets on part d'une feuille "Modele", ce code recopie tout, y compris la mise en page :

Code:

Sheets("Modele").Copy After:=Sheets(Sheets.Count)

Bien sûr il faudra renommer la feuille créée.

A+

 

Vote positif 0 Vote négatif

S

sc66

XLDnaute Nouveau

• 25 Juin 2010

• #7

Re : Répéter les en-tête et pied de page sur plusieurs onglets?

Job75, ta formule est tout simplement celle qu'il me fallait!! Merci!

Du coup j'ai une toute dernière question: en copiant exactement toute la mise en page, ça me copie aussi la couleur d'onglet. Or si je veux distinguer le modèle des onglets créés, comment faire? Dans l'idéal, je souhaite laisser les onglets créés blancs (couleur automatique).

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Juin 2010

• #8

Re : Répéter les en-tête et pied de page sur plusieurs onglets?

Bonjour sc66,

Pour connaître le code qui colore un onglet, utiliser l'enregistreur de macro.

Mais classiquement on masque la feuille "Modele" car elle ne sert que pour la copie.

Donc mettre un onglet blanc à la feuille "Modele"...

Et pour afficher la feuille créée par la copie :

Code:

Sheets(Sheets.Count).Visible = True

A+

 

Vote positif 0 Vote négatif

S

sc66

XLDnaute Nouveau

• 25 Juin 2010

• #9

Re : Répéter les en-tête et pied de page sur plusieurs onglets?

En effet, l'enregistreur m'a permis de trouver le code et de l'intégrer, je n'ai pas encore ce réflexe!

Merci le Forum, merci à tous ceux qui ont essayé de m'aider 🙂

Sophie

 

Vote positif 0 Vote négatif