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
| Option Explicit
Sub ShowMe()
frmFilter.Show
End Sub
Sub Filterme()
'
' Filterme Macro
'
'
Sheets("Data").Range("A1:Q9358").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Filtres!Criteria"), CopyToRange:=Range( _
"Filtres!Extract"), Unique:=False
End Sub
Sub Clearme()
'
' Clearme Macro
'
'
ActiveWindow.SmallScroll Down:=-3
Range("B8").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.ClearContents
ActiveWindow.ScrollColumn = 1
Range("B5:F5").Select
Selection.ClearContents
End Sub |
Partager