VBA Création de Graphique et mise en forme

Sub Macro_Mise_en_forme()
'
' Macro_Mise_en_forme Macro
'

'
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Cells.Select
Selection.AutoFilter
Columns("A:L").Select
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
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.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
Range("F3").Select
Columns("E:E").ColumnWidth = 15.57
Columns("G:G").ColumnWidth = 15.57
Columns("H:H").ColumnWidth = 14.57
Columns("I:I").ColumnWidth = 13.43
Columns("J:J").ColumnWidth = 12.57
Columns("K:K").ColumnWidth = 14.14
Columns("L:L").ColumnWidth = 13.86
Range("D,G:G,H:H").Select

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source = Range("CF!$D:$D;CF!$G:$G;CF!$H:$H")
ActiveChart.Location Where:=xlLocationAsNewSheet
Sheets("CF").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1:L1").Select
Range("L1").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("A2:L2").Select
Selection.Style = "40*% - Accent2"
Range("A1:L1").Select
Selection.Style = "Accent3"
Range("A1:L1").Select
ActiveCell.FormulaR1C1 = "Report de la journée du : "
Range("A2").Select
End Sub

Cliquez pour agrandir...