[RESOLU] Dé-filtrer (macro)

Le double cheese · 17 Juin 2013

Bonjour à tous,

J'ai enregistré une macro qui me permet de dé-filtrer toutes mes colonnes (en gros, d'afficher les colonnes entièrement). J'ai affecté cette macro a un bouton. Cependant lorsque je clique sur le bouton, la macro fonctionne bien mais mieux vaut ne pas être épileptique (tout clignote).

En fait, ce que je souhaiterais faire, c'est que au lieu de dé-filtrer toutes les colonnes, la macro ne dé-filtre que les colonne qui ont été filtré (par exemple la colonne 3 et 4 on été filtré et la macro n'agit que sur ces 2 colonnes)

Bref, voici ma macro:
Sub RAZ()
'
' RAZ Macro
'
ActiveSheet.Range("$A$3:$S$1003").AutoFilter Field:=3
ActiveSheet.Range("$A$3:$S$1003").AutoFilter Field:=5
ActiveSheet.Range("$A$3:$S$1003").AutoFilter Field:=6
... (et ça continu jusqu'a 16) ...

End Sub

Merci

Dugenou · 17 Juin 2013

Re : Dé-filtrer (macro)

Bonjour,
Un contournement possible : en début de macro : application.screenupdating = false et en fin de macro application.screenupdating = true
Cordialement

Le double cheese · 17 Juin 2013

Re : Dé-filtrer (macro)

Et si jamais quelqun sait comment faire pour simplement réaficher tout ce qui se trouve sur la feuille, je suis preneur.

Le double cheese · 17 Juin 2013

Re : Dé-filtrer (macro)

Dugenou à dit:
Bonjour,
Un contournement possible : en début de macro : application.screenupdating = false et en fin de macro application.screenupdating = true
Cordialement

Merci, c'est ce qu'il me fallait !

(super rapide)

Dugenou · 17 Juin 2013

Re : Dé-filtrer (macro)

Re,
Sub Macro1()
'
'
ActiveSheet.ShowAllData
End Sub

Misange · 17 Juin 2013

Re : Dé-filtrer (macro)

Bonjour
Lance l'enregistreur de macro, il fait ça très bien
Selection.AutoFilter suffit

Attention, tu ne peux pas enlever le filtre seulement sur deux colonnes si celles-ci font partie d'un tableau (colonnes contigues).

Pierrot93 · 17 Juin 2013

Re : Dé-filtrer (macro)

Bonjour,

regardepeut être ceci :

Code:

With Sheets("NomFeuille")
    If .FilterMode Then .ShowAllData
End With

bonne journée
@+

Le double cheese · 17 Juin 2013

Re : Dé-filtrer (macro)

Re,

Misange, je n'ai pas trop compris ou je devait mettre "Selection.AutoFilter" (seul dans une macro ?)

Pierrot, une erreur me dit "Sub ou Function non défini" en surlignant Sheet, en gros la macro pense que Sheet est une fonction (ou un truc du genre)

Pierrot93 · 17 Juin 2013

Re : Dé-filtrer (macro)

Re,

Pierrot, une erreur me dit "Sub ou Function non défini" en surlignant Sheet, en gros la macro pense que Sheet est une fonction (ou un truc du genre)

"sheet" avec un s "sheets"...

Le double cheese · 17 Juin 2013

Re : Dé-filtrer (macro)

Re,
Oui avec un S biensure:

Je procède de la manière suivante?

Sub RAZ()
'
' RAZ Macro
'
With Sheets("Regroupement")
If .FilterMode Then .ShowAllData
End With
End Sub

Pierrot93 · 17 Juin 2013

Re : Dé-filtrer (macro)

Re,

Je procède de la manière suivante?

oui, placé dans un module standard.

Le double cheese · 17 Juin 2013

Re : Dé-filtrer (macro)

Re,

Super merci Pierrot !
Et merci Dugenou pour l'astuce.

[RESOLU] Dé-filtrer (macro)

Le double cheese

XLDnaute Occasionnel

Dugenou

XLDnaute Barbatruc

Le double cheese

XLDnaute Occasionnel

Le double cheese

XLDnaute Occasionnel

Dugenou

XLDnaute Barbatruc

Misange

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Le double cheese

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Le double cheese

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Le double cheese

XLDnaute Occasionnel

Discussions similaires