bonjour le forum,
Peut qun m'indiquer comment faire pour enlever le filtre d'une page à partir de VBA?
d'avance merci
bonjour le forum,
Peut qun m'indiquer comment faire pour enlever le filtre d'une page à partir de VBA?
d'avance merci
Bonjour,
un exemple pour enlever
Et pour remettre
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 With Workbooks(Thisworkbook).Sheets("LaFeuille") If .AutoFilterMode Then .Cells.AutoFilter End If End With
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 With Workbooks(Thisworkbook).Sheets("LaFeuille") If not .AutoFilterMode Then .Cells.AutoFilter End If End With
bonjour,
un autre exemple, tiré de l'aideCordialement
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
33
34
35
36
37
38
39
40
41
42
43
44
45 Sub SupprimerEtRemettreFiltre() 'Dim TABFILTRE() 'Application.StatusBar = "Stockage des critères de filtrage..." Set W = Worksheets("DONNÉES") With W.AutoFilter ZONEFILTRE = .Range.Address With .Filters ReDim TABFILTRE(1 To .Count, 1 To 3) For F = 1 To .Count With .Item(F) If .On Then TABFILTRE(F, 1) = .Criteria1 If .Operator Then TABFILTRE(F, 2) = .Operator TABFILTRE(F, 3) = .Criteria2 End If End If End With Next End With For I = 1 To .Filters.Count If Not TABFILTRE(I, 1) = "" Then .Range.AutoFilter FIELD:=I Next End With Application.StatusBar = "Critères de filtrage stockés...Filtres enlevés..." '------------------------------- 'Le code '------------------------------- Application.StatusBar = "Rétablissement des filtres..." For Col = 1 To UBound(TABFILTRE(), 1) If Not IsEmpty(TABFILTRE(Col, 1)) Then If TABFILTRE(Col, 2) Then W.Range(CURRENFILTRANGE).AutoFilter FIELD:=Col, _ Criteria1:=TABFILTRE(Col, 1), Operator:=TABFILTRE(Col, 2), _ Criteria2:=TABFILTRE(Col, 3) Else W.Range(ZONEFILTRE).AutoFilter FIELD:=Col, _ Criteria1:=TABFILTRE(Col, 1) End If End If Next Application.StatusBar = "Critères de filtrage rétablis..." End Sub
code trouvé sous la rubrique Autofilter.
L'avantage de ce code est qu'il replace les filtres comme ils étaient avant le déclenchement de la macro.
@+
PS je l'ai utilisé parce qu'un utilisateur râlait lorsque je lui enlevais ses filtres.
Salut Fred & Ousk,
c'est toujours intéressant à connaître, même si la probabilité que j' ai besoin de cette technique n'est pas vraiment énorme.
Bonne journée.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager