bordures dans excel

[Stéphane]

suite à un classeur excel de JMG, je vous mets des exemples de code qui vous aideront à simplifier la tartine de code généré par excel lors de l'encadrement de cellules.


A travers l'onglet "Bordures" de la boîte "format de Cellules"), vous pouvez spécifier d'une bordure si elle est en pointillé ou non (etc), s'il elle double, épaisse ....

Des astuces pour remplacer les lignes de code générées par vba lors de l'encadrement de cellules :

1ière méthode : worksheets("Feuil1").range("A14").BorderAround ColorIndex:=3, Weight:=xlThick
2ième méthode : for i = 1 to 4: selection.Borders(i).LineStyle = xlContinuous: next i

3ième méthode : vous voulez juste un trait à gauche et en bas, spécifier le dans la variable tableau arBorder => arBorder = Array(xlRight, xlbotttom)

Sub ChangeBorders()
dim arBorder As Variant
dim x As Integer

arBorder = Array(xlRight, xlbotttom)
For x = LBound(arBorder) To ubound(arBorder)
with Application.Selection.Borders(arBorder(x))
.Weight = xlThin
.ColorIndex = xlAutomatic
end with
Next x
end Sub

Bordures arrondies (par S. G. le mercredi 06 juin 2001 sur microsoft.public.fr.excel)

Sub CelluleArrondie()
Set depart = Selection
r1 = depart.Height
r2 = depart.Width
r3 = depart.Top
r4 = depart.Left
ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, _
r4, r3, r2, r1).Select
Selection.ShapeRange.Fill.Visible = msoFalse
depart.Select
End Sub


bye
stephane