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

[sc66]

Bonjour le Forum!

J'ai posté il y a peu pour savoir comment créer des onglets automatiquement, ces onglets étant pré-remplis (afin d'éditer des factures selon mon tableau global des montants et règlements).
Grâce à l'aide de certains experts de ce Forum, je peux maintenant le faire!

Le dernier problème qu'il se pose à moi est que sur ces onglets(=factures) créés, je ne parviens pas à "répéter" la mise en page (en-tête et pieds de page).

Connaîtriez-vous une solution? A moins que cela soit impossible?

Merci beaucoup 🙂

 

[Compte Supprimé 979]

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+

 

[sc66]

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!

 

[Compte Supprimé 979]

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

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+

 

[sc66]

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! 🙂

 

[job75]

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

Bonjour sc66, salut Bruno,

Voila, j'attends vos idées!

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

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

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

A+

 

[sc66]

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).

 

[job75]

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 :

Sheets(Sheets.Count).Visible = True

A+

 

[sc66]

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