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
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.
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)" <Michel@mail.net> a écrit dans le message de
news:mn.9ac37d8c49ef0678.62698@mail.net...
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 ?
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.
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
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)" <Michel@mail.net> a écrit dans le message de
news:mn.9ac37d8c49ef0678.62698@mail.net...
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 ?
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 ?