KutoolsforOffice — Une solution unique, cinq outils puissants.Faire plus avec moins d'efforts.Soldes de mars : 20 % de réduction

Comment imprimer des bordures autour de chaque page dans Excel ?

AuteurXiaoyang Date de modification

Lorsque vous travaillez avec de grandes feuilles de calcul s’étendant sur des centaines de pages, il devient essentiel d’imprimer vos données dans un format clair et professionnel. Une solution efficace consiste à ajouter une bordure autour de chaque page imprimée, ce qui segmente visuellement le document et en facilite grandement la lecture. Bien qu’il soit possible de sélectionner manuellement le contenu de chaque page et d’y appliquer des bordures dans Excel, cette méthode s’avère extrêmement chronophage et peu pratique à grande échelle. Heureusement, des solutions bien plus efficaces permettent d’imprimer automatiquement des bordures autour de chaque page. Dans cet article, nous vous présentons plusieurs méthodes pratiques pour y parvenir, combinant à la fois des options intégrées et des approches alternatives.


Imprimer des bordures autour de chaque page en activant les lignes de quadrillage

Même si Excel ne propose pas d’option dédiée pour ajouter une bordure autour de chaque page imprimée, vous pouvez utiliser la fonctionnalité Imprimer les lignes de quadrillage afin de simuler des bordures de page. Cette méthode est rapide et ne nécessite aucun complément. Attention toutefois : elle ne crée pas de contour de page épais, car Excel imprime toutes les lignes de quadrillage, et le bord de la page est défini visuellement par les dernières lignes imprimées.

Remarques :

  • Cette méthode offre les meilleurs résultats lorsque votre feuille de calcul adopte une disposition en grille régulière et que vous évitez les bordures personnalisées importantes.
  • Si votre feuille utilise déjà des bordures distinctives pour les tableaux, les lignes de quadrillage imprimées risquent de créer un conflit visuel avec celles-ci.

1. Si des bordures personnalisées sont présentes, supprimez-les d’abord pour éviter tout chevauchement ou toute incohérence à l’impression. Sélectionnez la feuille, puis accédez à Accueil > Bordure (icône) > Aucune bordure pour effacer les bordures de toutes les cellules sélectionnées :

cliquez sur Accueil > icône Bordure > Aucune bordure

2. Accédez à Mise en page > cliquez sur le lanceur de la boîte de dialogue Mise en page (la petite flèche dans le coin du groupe) pour ouvrir la boîte de dialogue Mise en page :

cliquez sur Mise en page > flèche Mise en page

3. Dans Mise en page, accédez à l’onglet Feuille et cochez la case Lignes de quadrillage située dans la section Impression afin que toutes les lignes de quadrillage (y compris celles situées aux bords de la page) soient imprimées :

cochez Quadrillage dans la section Imprimer

4. Cliquez sur Aperçu avant impression pour confirmer le résultat. Lors de l’impression, chaque page affichera une limite rectangulaire claire formée par les lignes de quadrillage les plus externes, simulant ainsi une bordure de page. Voir exemple :

 une bordure en gras autour de chaque page sera imprimée

Conseils :

  • Si vous avez besoin de bordures plus épaisses et plus marquées, envisagez d’ajouter manuellement des bordures extérieures à la Zone d'impression ou d’utiliser une macro pour tracer les contours des pages.
  • Évitez les plages de cellules fusionnées ou irrégulières, car elles peuvent interrompre la continuité visuelle des lignes de quadrillage à l’impression.
  • Affichez systématiquement un aperçu avant impression pour vous assurer que le rendu correspond exactement à vos attentes.
une capture d’écran de kutools for excel ia

Libérez la magie d’Excel avec Kutools IA

  • Exécution intelligente : effectuez des opérations sur les cellules, analysez des données et créez des graphiques, le tout à partir de commandes simples.
  • formules personnalisées : créez des formules sur mesure pour rationaliser vos flux de travail.
  • Programmation VBA : Écrivez et implémentez du code VBA en toute simplicité.
  • Interprétation de formules : Décryptez facilement les formules complexes.
  • Traduction de texte : Franchissez les barrières linguistiques directement depuis vos feuilles de calcul.
Améliorez vos capacités Excel grâce à des outils alimentés par l’intelligence artificielle.Téléchargez dès maintenantet découvrez une efficacité inégalée !

Imprimer des bordures autour de chaque page en un clic avec Kutools pour Excel

Pour les utilisateurs souhaitant une bordure de page plus professionnelle — notamment dans les feuilles comportant une mise en forme complexe ou lorsque les lignes de quadrillage ne suffisent pas —, Kutools pour Excel propose une solution pratique : la fonctionnalité Ajouter des bordures aux sauts de page. Cet outil vous permet d’ajouter une bordure nette et soignée à chaque page imprimable de la feuille active en un seul clic, vous faisant gagner du temps tout en garantissant un rendu homogène sur l’ensemble des pages.

Kutools pour Excelpropose plus de 300 fonctionnalités avancées pour simplifier les tâches complexes, stimulant ainsi créativité et efficacité.Intégré aux capacités de l’IA, Kutools automatise les tâches avec précision, rendant la gestion des données parfaitement fluide.Informations détaillées sur Kutools pour Excel...         Essai gratuit...

Après avoir installé Kutools pour Excel, suivez ces étapes pour Ajouter des bordures aux sauts de page :

1. Activez la feuille sur laquelle vous souhaitez ajouter des bordures, puis accédez à Entreprise > Impression > Ajouter des bordures aux sauts de page. Voir la capture d’écran :
Cliquez sur la fonction Ajouter une bordure à chaque page dans Kutools for Excel

2. Si une boîte de dialogue apparaît vous avertissant que toutes les bordures existantes seront supprimées si vous poursuivez, assurez-vous d’avoir enregistré votre travail ou d’avoir confirmé que leur remplacement est acceptable. Cliquez sur Oui pour continuer :
Une boîte de dialogue apparaît, avertissant que toutes les bordures existantes seront supprimées

Une fois appliquée, chaque page de votre feuille de calcul sera délimitée par une bordure nette et épaisse, pour un document imprimé clairement structuré et facile à identifier. Rapide et efficace, cette méthode réduit considérablement les manipulations manuelles.
Une bordure a été ajoutée autour de chaque page de la feuille

Conseils et remarques :

  • Les bordures existantes seront supprimées de la feuille de calcul actuelle lorsque vous utiliserez cette option.
  • Si vous souhaitez conserver certaines bordures spécifiques, pensez à sauvegarder votre fichier ou votre feuille de calcul au préalable.
  • Cette option est particulièrement adaptée aux grandes feuilles de calcul s’étendant sur plusieurs pages imprimées, où des bordures cohérentes et visuellement claires sont essentielles.

Imprimer des bordures autour de chaque page à l’aide d’une macro VBA

Si vous souhaitez automatiser l’ajout d’une bordure autour de chaque page imprimable — notamment pour des tâches récurrentes ou des mises en page personnalisées — vous pouvez utiliser une macro VBA qui lit les sauts de page d’Excel et trace un contour de page. Cela vous offre un contrôle total sur le style et l’épaisseur de la bordure, sans dépendre de compléments.

Remarques :

  • La macro trace un contour autour de chaque page imprimable, mais uniquement sur ses bords extérieurs (haut, gauche, bas, droite). Elle ne remplace pas les bordures internes déjà présentes dans les cellules.
  • Fonctionne mieux sur des feuilles bien structurées ; les fusions complexes ou les zones d’impression inhabituelles peuvent nécessiter de légers ajustements.

Étapes à suivre :

1. Appuyez sur Alt + F11 pour ouvrir l’éditeur Visual Basic pour Applications. Cliquez sur Insertion > Module pour ajouter un nouveau module.

2. Copiez-collez le code suivant dans le module :

Sub AddBorderToEachPrintablePage()
    Dim ws As Worksheet
    Dim LastRow As Long, LastCol As Long
    Dim StartRow As Long, EndRow As Long
    Dim StartCol As Long, EndCol As Long
    Dim vRowBreaks As Variant, vColBreaks As Variant
    Dim i As Long, j As Long
    Dim oldDisp As Boolean
    Dim f As Range

    Set ws = ActiveSheet

    Application.ScreenUpdating = False
    Application.EnableEvents = False

    ' Check if sheet is empty
    Set f = ws.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _
                          SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
    If f Is Nothing Then GoTo CleanUp

    LastRow = ws.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _
                            SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    LastCol = ws.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _
                            SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

    ' Force refresh of page breaks
    oldDisp = ws.DisplayPageBreaks
    ws.DisplayPageBreaks = True

    ' Collect horizontal page breaks (add top and bottom bounds)
    vRowBreaks = Array(0)
    For i = 1 To ws.HPageBreaks.Count
        vRowBreaks = ArrayJoin(vRowBreaks, Array(ws.HPageBreaks(i).Location.Row - 1))
    Next i
    vRowBreaks = ArrayJoin(vRowBreaks, Array(LastRow))

    ' Collect vertical page breaks (add left and right bounds)
    vColBreaks = Array(0)
    For j = 1 To ws.VPageBreaks.Count
        vColBreaks = ArrayJoin(vColBreaks, Array(ws.VPageBreaks(j).Location.Column - 1))
    Next j
    vColBreaks = ArrayJoin(vColBreaks, Array(LastCol))

    ' Draw only outer borders for each printable page
    For i = 0 To UBound(vRowBreaks) - 1
        StartRow = vRowBreaks(i) + 1
        EndRow = vRowBreaks(i + 1)
        For j = 0 To UBound(vColBreaks) - 1
            StartCol = vColBreaks(j) + 1
            EndCol = vColBreaks(j + 1)

            With ws.Range(ws.Cells(StartRow, StartCol), ws.Cells(EndRow, EndCol))
                With .Borders(xlEdgeTop)
                    .LineStyle = xlContinuous: .Weight = xlThick
                End With
                With .Borders(xlEdgeLeft)
                    .LineStyle = xlContinuous: .Weight = xlThick
                End With
                With .Borders(xlEdgeBottom)
                    .LineStyle = xlContinuous: .Weight = xlThick
                End With
                With .Borders(xlEdgeRight)
                    .LineStyle = xlContinuous: .Weight = xlThick
                End With
            End With
        Next j
    Next i

CleanUp:
    ws.DisplayPageBreaks = oldDisp
    Application.EnableEvents = True
    Application.ScreenUpdating = True

    If Not f Is Nothing Then
        MsgBox "Borders have been added to each printable page!", vbInformation, "AddBorderToEachPrintablePage"
    End If
End Sub

Function ArrayJoin(a As Variant, b As Variant) As Variant
    Dim temp() As Variant
    Dim alen As Long, blen As Long, k As Long

    alen = UBound(a) - LBound(a) + 1
    blen = UBound(b) - LBound(b) + 1
    ReDim temp(0 To alen + blen - 1)

    For k = 0 To alen - 1
        temp(k) = a(k)
    Next k
    For k = 0 To blen - 1
        temp(alen + k) = b(k)
    Next k

    ArrayJoin = temp
End Function

3. Revenez à Excel, assurez-vous que la feuille cible est active, puis exécutez la macro en appuyant sur la touche F5(ou via le bouton)Exécuter). La macro détectera les sauts de page et tracera une bordure épaisse autour de chaque bloc de page imprimable.

Conseils :

  • Ajustez le style et l’épaisseur de la bordure en modifiant les quatre sections xlEdge*(par exemple,).Weight = xlMedium), ainsi que la couleur via .Color.
  • Si une Zone d'impression personnalisée est définie, Excel appliquera ce réglage ; vérifiez les résultats dans l’Aperçu avant impression.
  • Enregistrez votre classeur avant d’exécuter des macros. Pour une utilisation répétée, enregistrez-le au format prenant en charge les macros ().xlsm).
  • Si aucun contenu n’est détecté, la macro se termine sans erreur et affiche un message (évitant ainsi les erreurs sur les feuilles vides).

Si la macro ne fonctionne pas comme prévu, vérifiez la présence de cellules fusionnées, de lignes ou colonnes masquées, ou de paramètres d’échelle inhabituels (par exemple : « Ajuster à 1 page de large sur N pages de haut »). Affinez vos blocs de pages en ajustant les paramètres de zone d’impression ou de mise en page, puis relancez la macro.


Ajouter une bordure autour de chaque page

 

Meilleurs outils de productivité Office

🤖Kutools IA Aide: Révolutionnez Analyse des données grâce à :Exécution intelligente   |  Générez du code|  Créez formules personnalisées  |  Analysez des données et générez des graphiques|  Appelez Fonctions améliorées
Fonctionnalités populaires:Rechercher, mettre en surbrillance ou Marquer les doublons   |  Supprimer les lignes vides   |  Combinez les colonnes ou cellules sans perdre de données   |   Arrondi sans utiliser de formule...
Super RECHERCHEV:RechercheValeurs avec critères multiples  |  RechercheValeurs avec valeurs multiples  |   RechercheValeurs dans plusieurs feuilles   |   Correspondance floue....
Liste déroulante avancée:Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple....
Gestionnaire de colonnes:Ajouter un nombre précis de colonnes|Déplacer des colonnes|Basculer la visibilité des colonnes masquées|Comparer des plages et des colonnes...
Fonctionnalités vedettes:Mise au point de la grille   |  Vue de conception   |Barre de formule améliorée   | Gestionnaire de classeurs et de feuilles   |  Bibliothèque de ressources(Texte automatique)|  Sélecteur de date   |  Consolider les feuilles de calcul  |  Chiffrer/Déchiffrer les cellules   | Envoyer des e-mails par liste   |  Super Filtre   |   Filtre spécial(Filtrer les cellules avec une police en gras/italique/barré...) ...
… et bien plus encore… et plus encore:(,)Supprimer des caractères spécifiques, ...)|   50+Typesde graphiques(, ...)|   40+ Formules pratiques(Calculer l'âge en fonction de la date de naissance, ...)|   19 Outils d’insertion(,Insérer une image depuis un chemin , ...)|   de conversion (Convertir en mots,Conversion de devises, ...)|Fusionner et scinder   (Fusion avancée des lignes,Diviser les cellules , ...)|, ...)   |
Utilisez Kutools dans la langue de votre choix – disponible en anglais, espagnol, allemand, français, chinois et 40+ autres langues !

Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...


Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile

  • Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !

Tous les compléments Kutools. Un seul installateur

Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.

ExcelWordOutlookTabsPowerPoint
  • Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
  • Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
  • Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
  • Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
  • Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels