VBA, appliquer un même format à plusieurs plages

Bonsoir, avec l'enregistreur j'ai obtenu cette macro qui donne un format
donné à une plage nommée "toto".
Je doit applique ce même format à d'autre plages nommées "riri", "fifi" et
"loulou", Comment l'appliquer à toutes les plages en une seule fois ?
De plus et accessoirement, est-il possible de simplifier ces nombreuses
lignes. (Le but c'est simplement d'encadrer la plage avec un trait noir
épais)
Merci
Domi

Sub TraitsGras()
Application.Goto Reference:="toto"
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.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 = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End sub

bonjour Domi,

Sub TraitsGras()
With Application.Union(Range("riri"), Range("fifi"), Range("loulou"))
.Borders(5).LineStyle = xlNone
.Borders(6).LineStyle = xlNone
For i = 7 To 12
With .Borders(i)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Next
End With
End Sub

isabelle

Bonsoir, avec l'enregistreur j'ai obtenu cette macro qui donne un
format

donné à une plage nommée "toto".
Je doit applique ce même format à d'autre plages nommées "riri", "fifi"
et

"loulou", Comment l'appliquer à toutes les plages en une seule fois ?
De plus et accessoirement, est-il possible de simplifier ces nombreuses
lignes. (Le but c'est simplement d'encadrer la plage avec un trait noir
épais)
Merci
Domi

Sub TraitsGras()
Application.Goto Reference:="toto"
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.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 = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End sub

Impeccable pour le "tir groupé" mais je voudrais juste le tour en gras,
alors que là j'ai tout...
Que faut-il modifier ?
Merci
Domi

(Oups pur l'envoi direct...)

"isabelle" <hoHoho@hohoHo> a écrit dans le message de
news:O23PO8VPGHA.720@TK2MSFTNGP14.phx.gbl...

bonjour Domi,

Sub TraitsGras()
With Application.Union(Range("riri"), Range("fifi"), Range("loulou"))
.Borders(5).LineStyle = xlNone
.Borders(6).LineStyle = xlNone
For i = 7 To 12
With .Borders(i)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Next
End With
End Sub

isabelle

Bonsoir, avec l'enregistreur j'ai obtenu cette macro qui donne un
format

donné à une plage nommée "toto".
Je doit applique ce même format à d'autre plages nommées "riri", "fifi"
et

"loulou", Comment l'appliquer à toutes les plages en une seule fois ?
De plus et accessoirement, est-il possible de simplifier ces nombreuses
lignes. (Le but c'est simplement d'encadrer la plage avec un trait noir
épais)
Merci
Domi

Sub TraitsGras()
Application.Goto Reference:="toto"
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.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 = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End sub

Bonsoir
'---
For i = 7 To 10
'---
'---
Salutations
JJ

"Domi" <scrat83@free.fr> a écrit dans le message de news:
uY0$KSWPGHA.3016@tk2msftngp13.phx.gbl...

Impeccable pour le "tir groupé" mais je voudrais juste le tour en gras,
alors que là j'ai tout...
Que faut-il modifier ?
Merci
Domi

(Oups pur l'envoi direct...)

"isabelle" <hoHoho@hohoHo> a écrit dans le message de
news:O23PO8VPGHA.720@TK2MSFTNGP14.phx.gbl...

bonjour Domi,

Sub TraitsGras()
With Application.Union(Range("riri"), Range("fifi"), Range("loulou"))
.Borders(5).LineStyle = xlNone
.Borders(6).LineStyle = xlNone
For i = 7 To 12
With .Borders(i)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Next
End With
End Sub

isabelle

Bonsoir, avec l'enregistreur j'ai obtenu cette macro qui donne un
format

donné à une plage nommée "toto".
Je doit applique ce même format à d'autre plages nommées "riri",
"fifi"

et

"loulou", Comment l'appliquer à toutes les plages en une seule fois ?
De plus et accessoirement, est-il possible de simplifier ces
nombreuses

lignes. (Le but c'est simplement d'encadrer la plage avec un trait
noir

épais)
Merci
Domi

Sub TraitsGras()
Application.Goto Reference:="toto"
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.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 = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End sub