Bordures en VBA

[Sébastien KRECKE]

Bonjour à tous,

Dans mon programme, je fais appel à une procédure qui me définie les 4
bordures.
Je voudrais savoir s'il n'existe pas plus rapide que la procédure ci-après

Sub bordure()
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With
End Sub

Sur 13000 lignes environ, ca fait beaucoup

Merci

Séb

[AV]

Selection.Borders.LineStyle = xlContinuous

AV

Sébastien KRECKE <mmc.se...@worldnet.fr> a écrit dans le message :
8v2s90$l97$1...@news4.isdnet.net...

[MSA]

Bonjour Sebastien
Que penserais-tu de
Sub bordure()
With Selection.Borders

.LineStyle = xlContinuous
.Weight = xlThin
End With
End Sub

-----Message d'origine-----
Bonjour à tous,

Merci

Séb

.

[Sébastien KRECKE]

Rebonjour, ce n'est pas tout à fait ça que j'ai besoin

Supposons une plage '"A1:C38" ; ce que je veux c'est le contour uniquement.
Avec vos exemples on a le contour et l'intérieur.

Merci de votre gentillesse.

[Catherine]

Tu as la méthode BorderAround
Selection.BorderAround Weight:=xlMedium
--
Gros bisous, Kenavo (et Miaou).
Catherine (et Sainte Zaza)

Sébastien KRECKE <mmc.se...@worldnet.fr> a écrit dans le message :

8v2u5m$160m$1...@news5.isdnet.net...

[Sébastien KRECKE]

Merci Catherine (20 Kg de croquettes pour zaza)

Catherine <catherin...@wanadoo.fr> a écrit dans le message :
Os2SC3IUAHA.262@cppssbbsa03...

[Daniel.J]

et avec un feutre ?
Daniel

Sébastien KRECKE <mmc.se...@worldnet.fr> a écrit dans le message :

8v3ban$pn5$1...@news2.isdnet.net...

[STéphane]

Bonjour

d'autres exemples extraits de mes pages :

1ière méthode : worksheets("Feuil1").range("A1:D4").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

bye

--
STéphane
- en plein sport en chambre avec Pentium III -

Site Web : http://touareg.citeweb.net/
Pages Excel : http://touareg.citeweb.net/aideinformatique/mainexcel.html