1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Sub retirer_le_surplut()
'
' retirer_le_surplut Macro
'
' Touche de raccourci du clavier: Ctrl+k
'
Range("F1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$K$983294").AutoFilter Field:=6, Criteria1:=Array( _
"Archive WinRAR", "Chrome HTML Document", "Data Base File", "Fichier IDX", _
"Fichier JPG", "Fichier PNG", "Fichier SUB", "Paramètres de configuration"), _
Operator:=xlFilterValues
Range("A151").Select
ActiveWindow.SmallScroll Down:=-144
Rows("2:252").Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$A$1:$K$983130").AutoFilter Field:=6, Criteria1:=Array( _
"VLC media file (.avi)", "VLC media file (.mkv)", "VLC media file (.mp4)"), _
Operator:=xlFilterValues
ActiveWindow.SmallScroll Down:=-132
End Sub |
Partager