Comment imprimer des bordures autour de chaque page dans Excel ?
Lorsque vous travaillez avec de grandes feuilles de calcul qui s'étendent sur des centaines de pages, imprimer les données dans un format clair et professionnel devient essentiel. Une façon d'y parvenir est d'ajouter une bordure autour de chaque page imprimée, afin que l'impression soit visuellement séparée et plus facile à lire. Bien que vous puissiez sélectionner manuellement et appliquer des bordures au contenu de chaque page dans Excel, cette approche est extrêmement chronophage et peu pratique lorsque vous traitez plusieurs pages. Heureusement, il existe des solutions plus efficaces pour imprimer automatiquement des bordures autour de chaque page dans Excel. Dans cet article, nous explorerons plusieurs méthodes pratiques pour accomplir cette tâche, y compris des options intégrées et des approches alternatives.
➤ Imprimer des bordures autour de chaque page en configurant les quadrillages
➤ Imprimer des bordures autour de chaque page en un clic avec Kutools pour Excel
➤ Imprimer des bordures autour de chaque page en utilisant l'automatisation des macros VBA
Imprimer des bordures autour de chaque page en configurant les quadrillages
Bien qu'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 quadrillages pour simuler des bordures de page. C'est rapide et ne nécessite aucun module complémentaire. Notez que cela ne créera pas de contour de page en gras — Excel imprime tous les quadrillages, et le bord de la page est défini visuellement par les derniers quadrillages imprimés.
Remarques :
- Cette méthode fonctionne mieux lorsque votre feuille de calcul correspond à une disposition de grille régulière et que vous n'utilisez pas de bordures personnalisées importantes.
- Si votre feuille utilise déjà des bordures distinctives pour les tableaux, les quadrillages imprimés peuvent visuellement entrer en conflit avec elles.
1. Si des bordures personnalisées existent, supprimez-les d'abord pour éviter des lignes superposées ou incohérentes lors de 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 :
2. Accédez à Mise en page > cliquez sur le lanceur de boîte de dialogue Mise en page (petite flèche dans le coin du groupe) pour ouvrir la boîte de dialogue Mise en page :
3. Dans Mise en page, passez à l'onglet Feuille et cochez Quadrillages sous la section Imprimer afin que tous les quadrillages (y compris ceux sur les bords des pages) soient imprimés :
4. Cliquez sur Aperçu avant impression pour confirmer le résultat. Lorsque vous imprimez, chaque page montre une limite rectangulaire claire formée par les quadrillages imprimés les plus extérieurs, simulant une bordure de page. Voir exemple :
Conseils :
- Si vous avez besoin de bordures plus épaisses et plus proéminentes, envisagez d'ajouter manuellement des bordures externes pour la zone d'impression ou d'utiliser une macro pour dessiner des contours de page.
- Évitez les cellules fusionnées/régions irrégulières ; elles peuvent rompre la continuité visuelle des quadrillages imprimés.
- Faites toujours un aperçu avant d'imprimer pour vous assurer que l'apparence correspond à vos attentes.
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.
Imprimer des bordures autour de chaque page en un clic avec Kutools pour Excel
Pour les utilisateurs qui souhaitent une bordure de page plus professionnelle — en particulier dans les feuilles de calcul avec une mise en forme complexe ou lorsque les quadrillages sont insuffisants — Kutools pour Excel offre une solution pratique : la fonction Ajouter une bordure à chaque page. Cet outil vous permet d'ajouter une bordure solide à chaque page imprimable de la feuille active en un seul clic, ce qui vous fait gagner du temps et garantit une apparence cohérente sur toutes les pages.
Après avoir installé Kutools pour Excel, suivez ces étapes pour ajouter des bordures à chaque page :
1. Activez la feuille où vous souhaitez ajouter des bordures, puis accédez à Entreprise > Impression > Ajouter une bordure à chaque page. Voir capture d'écran :
2. Si une boîte de dialogue apparaît, avertissant que toutes les bordures existantes seront supprimées si vous continuez, assurez-vous d'avoir sauvegardé votre travail ou confirmé que la suppression des bordures est acceptable. Cliquez sur Oui pour continuer :
Une fois appliqué, chaque page de votre feuille sera entourée d'une bordure épaisse et claire, rendant l'impression organisée et facile à distinguer. Cette méthode est rapide et minimise les efforts manuels.
Conseils et notes :
- Les bordures existantes seront supprimées de la feuille active lors de l'utilisation de cette option.
- Si vous devez conserver des bordures spécifiques, envisagez de sauvegarder votre fichier ou feuille de calcul en premier.
- Cette option fonctionne bien pour les grandes feuilles de calcul avec plusieurs pages d'impression nécessitant des bordures de page cohérentes et visuellement claires.
Imprimer des bordures autour de chaque page en utilisant l'automatisation des macros VBA
Si vous voulez automatiser l'ajout d'une bordure autour de chaque page imprimable — surtout pour les tâches récurrentes ou les mises en page personnalisées — vous pouvez utiliser une macro VBA qui lit les sauts de page d'Excel et dessine un contour de page. Cela vous donne un contrôle total sur le style et l'épaisseur des bordures sans dépendre de modules complémentaires.
Remarques :
- La macro trace un contour autour de chaque page imprimable uniquement sur ses bords extérieurs (haut/gauche/bas/droite). Elle ne remplacera pas les bordures internes des cellules existantes.
- Fonctionne mieux sur des feuilles bien structurées ; les cellules fusionnées complexes ou les zones d'impression inhabituelles peuvent nécessiter des ajustements mineurs.
Étapes de l'opération :
1. Appuyez sur Alt + F11 pour ouvrir l'éditeur Visual Basic pour Applications. Cliquez sur Insertion > Module pour ajouter un nouveau module.
2. Copiez et 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, et exécutez la macro avec F5 (ou le bouton Exécuter). La macro détectera les sauts de page et dessinera une bordure épaisse autour de chaque bloc de page imprimable.
Conseils :
- Ajustez le style/épaisseur de la bordure en modifiant les quatre sections
xlEdge*(par exemple,.Weight = xlMedium, couleur via.Color). - Si une zone d'impression personnalisée est définie, les sauts de page d'Excel la suivront ; vérifiez les résultats dans Aperçu avant impression.
- Enregistrez votre classeur avant d'exécuter des macros. Pour une utilisation répétée, enregistrez-le en tant que fichier prenant en charge les macros (
.xlsm). - Si aucun contenu n'est trouvé, la macro se termine en toute sécurité avec un message (empêche les erreurs sur les feuilles vides).
Si la macro ne fonctionne pas comme prévu, vérifiez les cellules fusionnées, les lignes/colonnes masquées ou les paramètres d'échelle inhabituels (par exemple, « Adapter à 1 page de largeur par N pages de hauteur »). Vous pouvez affiner les blocs de page en modifiant votre Zone d'impression ou les paramètres de Mise en page et relancer la macro.
Ajouter une bordure autour de chaque page
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification 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é de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels