INFINITY100
XLDnaute Occasionnel
Bonjour à tous
Voila ma question est très simple j'ai sous la main une macro que j'ai créée via l'enregistreur de macro Excel et elle exécute certaines manœuvres que je voudrai avoir sauf que à la fin j'ai pas aimé le code de la macro du coup je cherche à le résumer à un code plu commode et professionnel.
Donc quelqu'un peut-il me résumer le code ci-dessous
Merci à vous tous
Cordialement
Voila ma question est très simple j'ai sous la main une macro que j'ai créée via l'enregistreur de macro Excel et elle exécute certaines manœuvres que je voudrai avoir sauf que à la fin j'ai pas aimé le code de la macro du coup je cherche à le résumer à un code plu commode et professionnel.
Donc quelqu'un peut-il me résumer le code ci-dessous
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Range("F24").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 1
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Color = -16777024
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Color = -16777024
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Color = -16777024
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Color = -16777024
.TintAndShade = 0
.Weight = xlMedium
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
With Selection.Font
.Name = "Tahoma"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
End Sub
Merci à vous tous
Cordialement