B
Boby71C
Guest
Bonjour les amis
Avez vous la phrase magique pour rendre mon encadrement plus épais SVP.
Cela rendrai plus lisible mon planning
Sub Macro1()
'
Range("G10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlDash
.Weight = xlMedium
.ColorIndex = 3
End With
End Sub
Merci à vous et trés bon Week End
Robert
Avez vous la phrase magique pour rendre mon encadrement plus épais SVP.
Cela rendrai plus lisible mon planning
Sub Macro1()
'
Range("G10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlDash
.Weight = xlMedium
.ColorIndex = 3
End With
End Sub
Merci à vous et trés bon Week End
Robert