[RESOLU] Dé-filtrer (macro)

[Le double cheese]

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]

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]

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]

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

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

(super rapide)

 

[Dugenou]

Re : Dé-filtrer (macro)

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

 

[Misange]

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]

Re : Dé-filtrer (macro)

Bonjour,

regardepeut être ceci :

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

bonne journée
@+

 

[Le double cheese]

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]

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]

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]

Re : Dé-filtrer (macro)

Re,

Je procède de la manière suivante?

oui, placé dans un module standard.

 

[Le double cheese]

Re : Dé-filtrer (macro)

Re,

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