Simplification code bordure

[Citaro]

Bonjour au forum,
Avez vous une idée pour simplifier ce code qui à la validation d'un userform fait une bodure sur la nouvelle ligne de donnée

Merci
Citaro

Range([A65536].End(xlUp), [A65536].End(xlUp).Offset(0, 11)).Select
With Selection.Borders(xlDiagonalDown).LineStyle = xlNone
End With
With Selection.Borders(xlDiagonalUp).LineStyle = xlNone
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.Weight = xlThin
End With

 

[Pierrot93]

Re : Simplification code bordure

Bonjour,

essaye peut être ceci :

With Range([A65536].End(xlUp), [A65536].End(xlUp).Offset(0, 11))
    With .Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    .Borders(xlDiagonalDown).LineStyle = xlNone
    .Borders(xlDiagonalUp).LineStyle = xlNone
End With

ou peut être cela :

With Range([A65536].End(xlUp), [A65536].End(xlUp).Offset(0, 11)).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
End With

bonne journée
@+

 

[Citaro]

Re : Simplification code bordure

Merci pour ta rapidité et ton 2ème code Pierrot, il réponds à mon attente

Citaro

 

[Pierrot93]

Re : Simplification code bordure

Re,

un peu plus court avec un "resize"

With [A65536].End(xlUp).Resize(, 12).Borders
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With

 

[Citaro]

Re : Simplification code bordure

Merci pierrot

 

[DoubleZero]

Re : Simplification code bordure

Bonjour, Citaro, Pierrot , le Forum,

Encore un peu plus court avec :

[a65536].End(xlUp).Resize(, 12).Borders.Value = 1

A bientôt

 

[Pierrot93]

Re : Simplification code bordure

Bonjour Citaro
Bonjour 00 et bien vu...