Bonjour,
Comment simplifier ces deux codes ?
Le premier code me permet de supprimer sur la plage AF58:BK62 la couleur de fond, et la ligne horizontale du haut :
Le deuxième code me permet de supprimer l’intituler Equipe de la plage AH17:BL18,
puis de sélectionner la plage phase finale AF11:AT22, et de créer l’intitulé PHASES FINALES (FINALES doit être sous PHASES, et la plage AH17:BL18 avec une bordure sur les 4 cotés).
Merci pour votre aide.
Salutations
Comment simplifier ces deux codes ?
Le premier code me permet de supprimer sur la plage AF58:BK62 la couleur de fond, et la ligne horizontale du haut :
Code:
'--- Retouche le cadre du bas
Range("[COLOR="red"]AF58:BK62[/COLOR]").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
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
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
With Selection.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
puis de sélectionner la plage phase finale AF11:AT22, et de créer l’intitulé PHASES FINALES (FINALES doit être sous PHASES, et la plage AH17:BL18 avec une bordure sur les 4 cotés).
Code:
'--- Supprime l'intitulé [COLOR="red"]Equipe[/COLOR]
Range("[COLOR="Red"]AH17:BL18[/COLOR]").Select
Selection.ClearContents
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
'--- Sélection de la plage [COLOR="red"]phase finale[/COLOR]
Range("[COLOR="Blue"]AF11:AT22[/COLOR]").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
'--- Création de l'intitulé Phases finales
ActiveCell.FormulaR1C1 = "[COLOR="red"]PHASES FINALES[/COLOR]"
With ActiveCell.Characters(Start:=1, Length:=19).Font
.Name = "Colonna MT"
.FontStyle = "Normal"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Merci pour votre aide.
Salutations