Simplification de codes

bonjour à tous,

je viens vers vous afin d'obtenir votre aide.

grâce à l'enregistreur de macro j'ai réussi a faire un code .

mon but est de créer une "fausse fusion " de cellule dans un tableau ( car l'option fusion de cellule n'est pas disponible en tableau )

je passe de :

cap1

à cela après le code:

capt2

voici le code :

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

Selection.Borders(xlEdgeLeft).LineStyle = xlNone

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlMedium

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlMedium

End With

Selection.Borders(xlEdgeRight).LineStyle = xlNone

Selection.Borders(xlInsideVertical).LineStyle = xlNone

Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

'enleve les barres latterales

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlMedium

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlMedium

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlMedium

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlMedium

End With

pouvez vous aider à le simplifier?

merci d'avance à tous

Salut .

Un essai à tester :

Range("B2:H2").Merge

Range("B2:H2").Borders.LineStyle = xlContinuous

bonjour,

merci pour cette réponse je vais regarder

jb

Rechercher des sujets similaires à "simplification codes"