Horusbk
XLDnaute Junior
Bonjour,
Je souhaite appliquer une mise en forme sur plusieurs cellules afin d'avoir des bordures noires, centrer le texte et l'aligner au milieu de la cellule.
J'ai donc utilisé l'enregistreur de macro pour obtenir un début de codage et je trouve que le résultat est imposant. Y a-t-il un moyen de le rendre plus compact ?
Merci d'avance pour votre aide
Baptiste
Je souhaite appliquer une mise en forme sur plusieurs cellules afin d'avoir des bordures noires, centrer le texte et l'aligner au milieu de la cellule.
J'ai donc utilisé l'enregistreur de macro pour obtenir un début de codage et je trouve que le résultat est imposant. Y a-t-il un moyen de le rendre plus compact ?
VB:
Sub Macro4()
'
' Macro4 Macro
'
'
Range("E5:J5").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End Sub
Merci d'avance pour votre aide
Baptiste