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

Par défaut, lors de l'insertion d'un en-tête ou d'un pied de page dans une feuille de calcul, le contenu de l'en-tête ou du pied de page sera appliqué à toutes les pages. Pour beaucoup de personnes, différentes pages 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 avoir imprimé la feuille de calcul. Comment appliquer différents en-têtes ou pieds de page sur chaque page d'une feuille de calcul ? La méthode décrite dans cet article peut vous aider.

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

Appliquer différents en-têtes ou pieds de page sur chaque page avec un 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. Veuillez procéder comme suit.

1. Appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Dans la fenêtre Microsoft Visual Basic for Applications, cliquez sur Insertion > Module. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre Code. Voir 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 :

3. Appuyez sur la touche F5 pour exécuter le code. Ensuite, la fenêtre Aperçu s'affiche, veuillez cliquer sur le bouton Imprimer pour commencer à imprimer les pages avec différents en-têtes ou pieds de page.

Remarque : S'il y a 4 pages spécifiées à imprimer dans la feuille de calcul, vous devez cliquer sur le bouton Imprimer quatre fois pour terminer toute l'impression.

Découvrez la magie d'Excel avec Kutools AI

• Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
• Codage VBA : Écrivez et implémentez du code VBA sans effort.
• Interprétation des formules : Comprenez facilement des formules complexes.
• Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !