Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment appliquer différents en-têtes ou pieds de page sur chaque page d'une feuille de calcul Excel?

Par défaut, lorsque vous insérez un en-tête ou un pied de page dans une feuille de calcul, le contenu de l'en-tête ou du pied de page s'applique à toutes les pages. Pour de nombreuses personnes, des pages différentes peuvent avoir des contenus différents dans leurs feuilles de calcul. Et ils ont tendance à distinguer ces pages avec le contenu de l'en-tête ou du pied de page après l'impression de la feuille de calcul. Comment appliquer différents en-têtes ou pieds de page sur chaque page de la feuille de calcul? La méthode de cet article peut vous aider.

Appliquer différents en-têtes ou pieds de page sur chaque page avec le code VBA


flèche bleue droite bulleAppliquer différents en-têtes ou pieds de page sur chaque page avec le code VBA


Le code VBA suivant peut vous aider à appliquer différents en-têtes ou pieds de page sur chaque page d'une feuille de calcul. S'il vous plaît faire comme suit.

1. appuie sur le autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour l'applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Ensuite, copiez et collez le code VBA ci-dessous dans le Code fenêtre. Voir la capture d'écran:

Code VBA: Appliquer différents en-têtes sur chaque page dans Excel

Sub DifferentHeaderFooter()
    Dim ws As Worksheet
    Dim vLeft As Variant, vRight As Variant, xRg As Variant
    Set ws = ActiveSheet
    On Error Resume Next
    vLeft = Array("First page", "Second page", "Third page", "fourth page")
    xRg = Array("A1:C50", "A51:C100", "A101:C150", "A151:C200")

    Application.ScreenUpdating = False
    For i = 0 To UBound(vLeft)
        With ws.PageSetup
        .PrintArea = xRg(i)
        .LeftHeader = vLeft(i)
        End With
        ws.PrintPreview
    Next i
    Application.ScreenUpdating = True
    ws.PageSetup.PrintArea = ""
End Sub

Remarques:

1. Dans le code VBA, vous devez affecter différents noms d'en-tête ou de pied de page dans le code "vLeft = Array ("Première page", "Deuxième page", "Troisième page", "quatrième page")".

2. Et spécifiez la zone d'impression de chaque page dans la feuille de calcul en cours dans le morceau de code "xRg = Array ("A1: C50", "A51: C100", "A101: C150", "A151: C200")".

3. Pour appliquer différents pieds de page, veuillez remplacer le mot "En-tête"Dans le code avec"Pied de page".

3. appuie sur le F5 clé pour exécuter le code. Puis le Aperçu fenêtre apparaît, s'il vous plaît cliquez sur le Imprimer bouton pour commencer à imprimer les pages avec différents en-têtes ou pieds de page.

Note: S'il existe des pages imprimées spécifiées 4 dans la feuille de calcul, vous devez cliquer sur Imprimer bouton quatre fois pour terminer l'impression entière.



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.