Epaisseur des bordures

[Laura]

Bonjour à tous les participants de ce forum,

J'utilise souvent pour la présentation de mes tableaux une bordure ou quadrillage. même en choissant trait fin, l'impression ne me plait pas, les traits ressortent trop épais.

J'ai fait un test avec une forme automatique avec épaisseur de trait 1/2 et là, l'impression est parfaite.

Question comment en VBA creer une bordure d'épaisseur 1/2?

J'ai essayé comme ça, mais ca ne convient pas inch:

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = 1
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = 1
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = 1
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = 1
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone


Un grand merci à mon sauveur...

 

[PascalXLD]

Bonjour

Le problème c'est que tu n'as pas autant de choix en bordures qu'en forme automatique.

Donc tu vas être coincé

Bon courage