Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Mise en page

Mise en page

2 réponses
Avatar
Michel (pen ar bed)
Bonjour,

Est il possible de faire répéter en bas de chaque page lors de
l'impression une bordure épaisse et en gras de manière automatique ?

Merci de l'aide

M.
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Philippe.R
Bonjour,
Un truc dans le genre de :

Sub sligne()
'MPFE le 20/12/2008
dim i as integer, laLigNe as long
For i = 1 To ActiveSheet.HPageBreaks.Count
laligne = ActiveSheet.HPageBreaks(i).Location.Row
Range(Cells(laligne - 1, 1), Cells(laligne - 1, 7)).Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Next i
End Sub

appelé dans l'évènement beforeprint devrait pouvoir convenir
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Michel (pen ar bed)" a écrit dans le message de
news:
Bonjour,

Est il possible de faire répéter en bas de chaque page lors de
l'impression une bordure épaisse et en gras de manière automatique ?

Merci de l'aide

M.




Avatar
Michel (pen ar bed)
Philippe.R avait prétendu :
Bonjour,
Un truc dans le genre de :

Sub sligne()
'MPFE le 20/12/2008
dim i as integer, laLigNe as long
For i = 1 To ActiveSheet.HPageBreaks.Count
laligne = ActiveSheet.HPageBreaks(i).Location.Row
Range(Cells(laligne - 1, 1), Cells(laligne - 1, 7)).Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Next i
End Sub

appelé dans l'évènement beforeprint devrait pouvoir convenir
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Michel (pen ar bed)" a écrit dans le message de
news:
Bonjour,

Est il possible de faire répéter en bas de chaque page lors de l'impression
une bordure épaisse et en gras de manière automatique ?

Merci de l'aide

M.







Merci, je regarde et j'essaie

GS