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
| Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Entrées").Select
Range("A1").Select
Application.ScreenUpdating = False
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=8
Selection.AutoFilter Field:=9
Selection.AutoFilter Field:=10
Selection.AutoFilter Field:=11
Selection.AutoFilter Field:=12
Selection.AutoFilter Field:=13
Selection.AutoFilter Field:=14
Selection.AutoFilter Field:=15
Application.ScreenUpdating = True
'Do While ActiveCell.Value <> Empty
' ActiveCell.Offset(1, 0).Select
'Loop
Application.ScreenUpdating = True
End Sub |
Partager