Discussion :

[hugh33]

bonjour,

depuis que je suis passé sur 2010 je rencontre un souci avec une macro, en fait, j'ai un problème de format, et le plus embétant est quand j'ai un chiffre avec un slash et une lettre, la macro ne fonctionne plus et excel se ferme complètement...
voici ma macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

merci pour vos propositions ou solutions

[parmi]

Bonjour,

Il faudrait que tu expliques un peu plus.
Le code que tu as mis ne fait que mettre des filtres en "presque boucle".
Ce que tu pourrais réduire en utilisant ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Sheets("Entrées").AutoFilterMode = False  'enlève les filtres
    Sheets("Entrées").Rows(1).AutoFilter   'remet les filtres en ligne 1