Discussion :

[zeralium]

Bonjour,

J'aimerai savoir si il existe une commande pour supprimer les filtres automatique sur une feuille, car actuellement j'utilise ce code pour chaque feuille de mon classeur:

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
Sheets("U045").Select
        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
 
 
        Sheets("U035").Select
        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

Par avance merci

[Invité]

Bonjour Zeralium,

A priori la commande :

Code :

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

Selection.AutoFilter

est une commande "à bascule".

Si elle est activée, le fait de la relancer la désactive.

[tirex28]

Bonjour,

Code :

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

1
2
 
ActiveSheet.AutoFilterMode = False

Supprime le filtre éventuel de la feuille active.

Cordialement,

Tirex28