1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
| Sub ExtractionAES()
'
' ExtractionAES Macro
' Macro enregistrée le 17/07/02
'
'
Range("Y5:AA378").Select
Selection.Copy
Sheets("Tableau AES").Select
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 1
Range("F8").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("F7:H381").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("F8"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("G6").Select
ActiveWindow.SmallScroll ToRight:=3
ActiveWindow.SmallScroll Down:=86
ActiveWindow.SmallScroll ToRight:=-1
Range("F105:H383").Select
Selection.ClearContents
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("G109").Select
End Sub |
Partager