taille des lignes des bordures

Salut,

Avec l'enregistreur de macro:

Sub LigneFine()

Range("A1:D5").Select ' A déterminer
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
End Sub

Est-ce que cela peut t'aider?

Starwing

-----Message d'origine-----
bonjour,


Je souhaiterais avoir les lignes intérieures de mon
tableau aussi fine que lorsque j'imprime avec quadrillage
pour l'instant j'utilise

..Weight = xlthin
j'ai essayé aussi

..Weight = xlHairline

mais ça ne change rien

merci
.