Augmenter l'épaisseur d'encadrement

[Boby71C]

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

 

[Lord Nelson]

Salut Robert,

Tu peux remplacer
.Weight = xlMedium
par
.Weight = xlThick

NB : N'hésites pas à utiliser l'enregistreur de macros pour obtenir ce genre de code.

A+
Horatio

 

[Boby71C]

Bonjour Lors Nelson et le Forum

Merci pour ta réponse, je suis toujours étonné de la rapidité à laquelle elles arrivent.

J'utilise trés fréquement l'enregistreur de macros car je ne suis pas assez fort pour les créer seul. J'ai peut être mal exprimé ma question comme à l'habitude!

Je désir coserver le type de trait discontinu que j'ai choisi mais j'aimrais le rendre plus épais.

Est-ce possible ?

Merci à tous et bon Week End

Robert

 

[Lord Nelson]

Salut Boby,

Désolé, je ne connais pas de solution pour tracer un Dash plus gras...
A+
Horatio

 

[Robert]

Bonjour à tous

Merci quand même pour le temps passé

A bientôt
Robert

 

[Pascal76]

Bonjour

Robert je te propose quelque chose mais c'est un peu tiré par les cheveux, car pas par bordures.

Sub BordGras()
Range("G10").Select
Set MaSelection = Selection
h = MaSelection.Height
w = MaSelection.Width
t = MaSelection.Top
l = MaSelection.Left
ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
l, t, w, h).Select
Selection.ShapeRange.Line.Weight = 3#
Selection.ShapeRange.Line.DashStyle = msoLineSquareDot
Selection.ShapeRange.Fill.Visible = msoFalse
MaSelection.Select
End Sub

Bon courage

Pascal