Excel vous permet de spécifier des en-têtes et des pieds de page pour vos feuilles de calcul. Vous souhaiterez peut-être copier ces en-têtes et pieds de page d’une feuille de calcul à une autre. Faire cela dans un classeur est relativement facile, mais le faire d’un classeur à un autre peut être plus intimidant.

Si l’en-tête et le pied de page sont ceux que vous utilisez beaucoup dans les nouveaux classeurs et que votre principale préoccupation est d’avoir l’en-tête et le pied de page disponibles dans ces nouveaux classeurs (pas dans les classeurs existants), la meilleure approche serait de créer un classeur modèle . Configurez simplement un classeur comme vous le souhaitez, y compris la spécification des en-têtes et des pieds de page. Ensuite, enregistrez le classeur en tant que modèle Excel (format XLT). Vous pouvez ensuite créer vos classeurs basés sur ce modèle et il aura les en-têtes et pieds de page que vous désirez.

Une façon de copier des en-têtes et des pieds de page d’une feuille de calcul dans un classeur vers une feuille de calcul dans un autre consiste à utiliser les méthodes d’édition traditionnelles de copier-coller. En d’autres termes, vous pouvez sélectionner le matériau d’en-tête que vous souhaitez copier, appuyer sur Ctrl + C, afficher l’en-tête dans la feuille de calcul cible, puis appuyer sur Ctrl + V. L’inconvénient de cette approche est qu’elle peut impliquer plusieurs étapes. Après tout, il y a trois sections (gauche, centre et droite) pour chaque en-tête et trois pour chaque pied de page. Cela signifie que vous devez effectuer six opérations de copier-coller pour copier l’en-tête et le pied de page complets.

Une autre façon de copier des en-têtes et des pieds de page d’un classeur à un autre implique l’utilisation de commandes Excel natives pour faire des copies de feuilles de calcul.

Suivez ces étapes:

  1. Ouvrez le classeur cible; celui sur lequel vous souhaitez copier les en-têtes et les pieds de page.

  2. Ouvrez le classeur qui est la source de votre en-tête et pied de page et assurez-vous que la feuille de calcul souhaitée est affichée.

  3. Choisissez Déplacer ou Copier la feuille dans le menu Edition. Excel affiche la boîte de dialogue Déplacer ou copier. (Voir la figure 1.)

  4. À l’aide de la liste déroulante To Book, sélectionnez le classeur cible que vous avez ouvert à l’étape 1.

  5. À l’aide de la zone Avant la feuille, indiquez où vous souhaitez copier la feuille.

  6. Assurez-vous que la case à cocher Créer une copie est activée.

  7. Cliquez sur OK. La feuille de calcul est copiée dans le classeur cible.

  8. Fermez le classeur source à partir de l’étape 2.

  9. Dans le classeur cible, affichez la feuille de calcul que vous venez de copier.

  10. Dans la zone d’onglets en bas de la fenêtre, cliquez avec le bouton droit de la souris et choisissez Sélectionner toutes les feuilles. Toutes les feuilles de calcul sont maintenant sélectionnées.

  11. Affichez la boîte de dialogue Mise en page. (Choisissez Mise en page dans le menu Fichier.)

  12. Assurez-vous que l’onglet En-tête / pied de page est sélectionné. (Voir la figure 2.)

  13. À l’aide des listes déroulantes En-tête et pied de page, sélectionnez l’en-tête et le pied de page utilisés dans la feuille de calcul que vous venez de copier.

  14. Cliquez sur OK.

  15. Supprimez la feuille de calcul que vous avez copiée aux étapes 1 à 7.

Ce que vous avez essentiellement fait est de copier la feuille de calcul contenant l’en-tête et le pied de page souhaités, puis vous avez copié cet en-tête et ce pied de page dans d’autres feuilles de calcul du classeur, puis vous avez supprimé la feuille de calcul d’origine.

Bien que ces étapes fonctionnent correctement, elles peuvent être fastidieuses si vous devez copier des en-têtes et des pieds de page dans un certain nombre de classeurs différents. Dans ce cas, l’utilisation d’une macro pour effectuer la copie est l’approche la plus saine. Les deux macros suivantes peuvent être utilisées pour copier des en-têtes et des pieds de page en une seule étape. Tout ce que vous avez à faire est d’afficher la feuille de calcul source et d’utiliser la macro GetHeaders. Cette macro copie les informations d’en-tête et de pied de page dans des variables de chaîne. Vous pouvez ensuite afficher, à son tour, chaque feuille de calcul que vous souhaitez avoir le même en-tête et pied de page et exécuter la macro DoHeaders.

Option Explicit

Dim strHeadLeft As String Dim strHeadCenter As String Dim strHeadRight As String Dim strFootLeft As String Dim strFootCenter As String Dim strFootRight As String Dim bGotHeaders As Boolean

Sub GetHeaders()

With ActiveSheet.PageSetup         strHeadLeft = .LeftHeader         strHeadCenter = .CenterHeader         strHeadRight = .RightHeader         strFootLeft = .LeftFooter         strFootCenter = .CenterFooter         strFootRight = .RightFooter         bGotHeaders = True     End With End Sub
Sub DoHeaders()

If bGotHeaders Then         With ActiveSheet.PageSetup             .LeftHeader = strHeadLeft             .CenterHeader = strHeadCenter             .RightHeader = strHeadRight             .LeftFooter = strFootLeft             .CenterFooter = strFootCenter             .RightFooter = strFootRight         End With     Else         MsgBox "Select the sheet with the " _             & "headers you want to copy," _             & vbCrLf & "then run 'GetHeaders'", _             vbExclamation, "No Headers In Memory"

End If End Sub

Vous pouvez même affecter les macros aux boutons de la barre d’outils, si vous le souhaitez, ce qui peut les rendre encore plus pratiques pour la copie d’en-têtes et de pieds de page.

Si vous disposez d’un certain nombre de feuilles de calcul et de classeurs dans lesquels vous souhaitez copier les en-têtes et les pieds de page, vous pouvez utiliser une approche macro différente. La macro suivante copiera les en-têtes et les pieds de page de la feuille de calcul active vers toutes les autres feuilles de calcul de tous les autres classeurs ouverts.

Sub CopyHeaderFooter()

Dim PS As PageSetup     Dim WB As Workbook     Dim WS As Worksheet

Set PS = ActiveSheet.PageSetup     For Each WB In Workbooks         For Each WS In WB.Worksheets             With WS.PageSetup                 .LeftHeader = PS.LeftHeader                 .CenterHeader = PS.CenterHeader                 .RightHeader = PS.RightHeader                 .LeftFooter = PS.LeftFooter                 .CenterFooter = PS.CenterFooter                 .RightFooter = PS.RightFooter             End With         Next     Next End Sub

En d’autres termes, si vous souhaitez copier les en-têtes et les pieds de page de la feuille de calcul actuelle vers 150 autres feuilles de calcul réparties sur 15 classeurs différents, tout ce que vous avez à faire est d’ouvrir les 15 classeurs en même temps, d’afficher la feuille de calcul source et d’exécuter la macro .

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (2696) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Copying_Headers_and_Footers [Copie des en-têtes et pieds de page].