Microsoft 365 filtre : masquer les indicateurs de filtre sans perdre le filtrage

Usine à gaz · 11 Mars 2022

Bonjour à toutes et à tous

Tien, tien, revoilou "l'usine à gaz" lol
Je reviens pour le casse-neurones du WE lol ...
C'est mapomme et patricktoulon qui vont être contents lol

Comme l'indique le titre du fil : je souhaiterais pouvoir masquer les indicateurs de filtre sans perdre le filtrage.

J'ai beaucoup cherché sans trouver de solution ... enfin si, il y en a une : il suffit de mettre à hauteur 0 la 1ère ligne de filtrage.

Mon souci est que dans dans mon fichier de travail "autrement dit : ma zizine à gaz", il n'y a pas de ligne ligne que je pourrai mettre à hauteur 0.
(j'l'avais pas prévu s'coup-là Grrrr !!!

purée de moi) ... Et insérer une ligne vide m'obligerait à recoder beaucoup mon fichier.

Auriez-vous une solution ? Ce serait super !

Un grand merci par avance, je joins un fichier test et je continue mes recherches.
Amicalement,
lionel

sylvanu · 11 Mars 2022

Re, Bonsoir Marcel, Staple,
Je persévère, je n'ai jamais eu cette idée. Formation continue
Peut être en utilisant la propriété Visibledropdown:=False

VB:

Sub FiltreData()
On Error Resume Next
    Application.ScreenUpdating = False
    T = Array(3, 4, 5, 6, 7, 9)
    With Sheets("choix").Range("A5:J10000")
        .AutoFilter Field:=1, Criteria1:="m", Visibledropdown:=False
        .AutoFilter Field:=2, Criteria1:="ca", Visibledropdown:=False
        .AutoFilter Field:=8, Criteria1:="3118", Visibledropdown:=False
        .AutoFilter Field:=10, Criteria1:="el", Visibledropdown:=False
        For i = 0 To UBound(T)
            .AutoFilter Field:=T(i), Criteria1:="*", Visibledropdown:=False
        Next i
    End With
    [a1].Select
End...

Usine à gaz · 12 Mars 2022

Staple1600 à dit:
Re

Et donc pour redevenir moi-même

VB:

Sub Dans_ma_tête_et_plus_dans_celle_de_Lionel() Sheets("choix").Range(Sheets("choix").Cells(5, "A"), Sheets("choix").Cells(Rows.Count, "J").End(3)).AdvancedFilter Action:=1, CriteriaRange:=Range("L5:L6") End Sub

NB: Usine à gaz
Si tu as bien suivi le déroulé du fil, tu sauras quel doit être le contenu de la cellule L6
avant de tester ce one-liner

Google dit bon mot

Usine à gaz · 12 Mars 2022

Staple1600 à dit:
Re

Et donc pour redevenir moi-même

VB:

Sub Dans_ma_tête_et_plus_dans_celle_de_Lionel() Sheets("choix").Range(Sheets("choix").Cells(5, "A"), Sheets("choix").Cells(Rows.Count, "J").End(3)).AdvancedFilter Action:=1, CriteriaRange:=Range("L5:L6") End Sub

NB: Usine à gaz
Si tu as bien suivi le déroulé du fil, tu sauras quel doit être le contenu de la cellule L6
avant de tester ce one-liner

"Si tu as bien suivi le déroulé du fil, tu sauras quel doit être le contenu de la cellule L6"
Ne perds pas ton temps JM : je ne vois pas du coup et je n'y comprends rien ... désolé

Usine à gaz · 12 Mars 2022

Usine à gaz à dit:
"Si tu as bien suivi le déroulé du fil, tu sauras quel doit être le contenu de la cellule L6"
Ne perds pas ton temps JM : je ne vois pas du coup et je n'y comprends rien ... désolé

Je vais te faire rire ou ... pleurer pour moi ... y'à quelque chose en L6 ?

TooFatBoy · 12 Mars 2022

Usine à gaz à dit:
Je n'aurais jamais pu le faire

Ben on te comprends bien : c'est sûr que si on parle pas anglais, on peut pas deviner que pour passer de 4 critères de filtrage à 1 seul, il faut en enlever 3...

Staple1600 · 12 Mars 2022

Re

C'est vrai que j'ai parfois l'impression de perdre mon temps
Voir ce message (message#35)

Microsoft 365 - filtre : masquer les indicateurs de filtre sans perdre le filtrage

Bonjour à toutes et à tous :) Tien, tien, revoilou "l'usine à gaz" lol ;) Je reviens pour le casse-neurones du WE lol ... C'est mapomme et patricktoulon qui vont être contents lol Comme l'indique le titre du fil : je souhaiterais pouvoir masquer les indicateurs de filtre sans perdre le...

www.excel-downloads.com

Où on voit clairement ce qu'il y en a L6

Ce qui prouve bien que tu n'as pas testé ma proposition (contrairement à ce que tu as écris)

Lionel à dit:
Bjr JM, merci pour tous ces détails et tes efforts pour activer mes neurones fatiguées lol ... je vais essayer

Usine à gaz · 12 Mars 2022

Staple1600 à dit:
Re

C'est vrai que j'ai parfois l'impression de perdre mon temps
Voir ce message

Microsoft 365 - filtre : masquer les indicateurs de filtre sans perdre le filtrage

Bonjour à toutes et à tous :) Tien, tien, revoilou "l'usine à gaz" lol ;) Je reviens pour le casse-neurones du WE lol ... C'est mapomme et patricktoulon qui vont être contents lol Comme l'indique le titre du fil : je souhaiterais pouvoir masquer les indicateurs de filtre sans perdre le...

www.excel-downloads.com

Où on voit clairement ce qu'il y en a L6

Ce qui prouve bien que tu n'as pas testé ma proposition (contrairement à ce que tu as écris)

Mais si, j'ai tout testé et particulièrement tes 2 derniers codes si sont supers mais je ne vois rien en L6

Usine à gaz · 12 Mars 2022

Re-Jm :
Je viens de comprendre et j'ai supprimé :

Car j'ai besoin de toutes ces colonnes dans mon fichier de travail .... et du coup tes 2 derniers codes masquent les lignes 1 à 5 et j'ai besoin que ces lignes restent visibles.
Dommage : Mais je décroche, je laisse tomber, je pense que je te fais perdre ton temps et j'en suis désolé

Staple1600 · 12 Mars 2022

Re

Si tu avais lu la suite, tester la macro du message#42
Tu saurais ce qu'il doit y avoir en L6

Microsoft 365 - filtre : masquer les indicateurs de filtre sans perdre le filtrage

Bonjour à toutes et à tous :) Tien, tien, revoilou "l'usine à gaz" lol ;) Je reviens pour le casse-neurones du WE lol ... C'est mapomme et patricktoulon qui vont être contents lol Comme l'indique le titre du fil : je souhaiterais pouvoir masquer les indicateurs de filtre sans perdre le...

www.excel-downloads.com

Puisque la macro le fait
Et comme la macro a été testée sur ton fichier exemple, avec le filtre avancé, on obtient le même résultat qu'avec le filtre automatique.
A savoir ce qu'on voit sur ma copie écran (message#35)
Car seules les lignes 18 19 respectent les critères indiqués dans ton 1er message.

NB: Je perds assurément du temps dans tes fils.
Mais j'ose croire que c'est compensé par le fait que tu n'es pas le seul à lire tes fils.
Et que d'autres lecteurs seront plus pugnaces et curieux pour tester mes codes (en mouillant le maillot et en lisant attentivement mes messages)

TooFatBoy · 12 Mars 2022

Usine à gaz à dit:
Merci JM les 2 codes fonctionnent super bien. Je n'aurais jamais pu le faire
Encore merci JM

C'est pourtant exactement le même code que celui que tu avais toi-même trouvé en #68, et que tu disais ne pas fonctionner...

Staple1600 · 12 Mars 2022

Re

Marcel32
Lionel et moi n'avons pas le même Array
J'ai réduit T à T=Array(1,"m")

TooFatBoy · 12 Mars 2022

Staple1600 à dit:
Re

Regardes attentivement la copie d'écran du message#35
(ou change de lunettes)

Allez, je vais voir dans un autre fil, si le demandeur est un peu plus attentif et plus respectueux du "travail"(*) fourni.
(*) code VBA+ copie écran + formules + explications

(Précision: j'écris cela sans aucune animosité.
Je suis juste franc et direct et assurément pas woke )

Loin de moi l'idée de prendre la défense de @Usine à gaz

mais perso je ne vois pas non plus le contenu de L6 sur la capture d'écran.

TooFatBoy · 12 Mars 2022

Staple1600 à dit:
J'ai réduit T à T=Array(1,"m")

Et c'est exactement le même Array que celui de @Usine à gaz. Du moins, il me semble.

Usine à gaz à dit:
Mais si je veux filtrer que sur le 1er critère : "T = Array(1, "m"), là ça ne fonctionne plus et je ne sais pas modifier le code Grrr !!!!

Staple1600 · 12 Mars 2022

Re

Je remets donc l'image
Où l'on voit/devine quelle est la formule qui sera utilisée pour filtrer avec le critère M
Voir sur l'image Zone de critères: $L$5:$0$6
NB: je rappelle que L6 est dans la range L5:O6 (quelle que soit la version d'Excel)
et le point 3) qui indiquent: critères formulés
Et comme je disais plus bas dans le message#47, il y a la macro qui inscrit la dite formule
(et des explications supplémentaires sur l'emploi du filtre avancé)

TooFatBoy · 12 Mars 2022

Staple1600 à dit:
Où l'on voit/devine quelle la formule qui sera utilisée pour filtrer avec le critère M

Bah vi, mais moi j'ai pété ma boule de cristal, alors la divination... ça marche plutôt juste pas trop bien en ce moment chez oim...

Usine à gaz · 12 Mars 2022

Staple1600 à dit:
Re

Usine à gaz
Avant de partir (juste pour me rassurer)
Donc après ces dernières échanges: quelle la formule dans la cellule L6?
Si tu ne sais pas, ce que j'écrivais à propos du gaz et du foutage de...
Ce confirmera donc

Toujours pas vu ... mais là c'est bon pour moi. Je sais que tu fais des efforts et que je suis nul ... mais les devinettes, c'est pas mon truc

Microsoft 365 filtre : masquer les indicateurs de filtre sans perdre le filtrage

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

sylvanu

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Microsoft 365 - filtre : masquer les indicateurs de filtre sans perdre le filtrage

Usine à gaz

XLDnaute Barbatruc

Microsoft 365 - filtre : masquer les indicateurs de filtre sans perdre le filtrage

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Microsoft 365 - filtre : masquer les indicateurs de filtre sans perdre le filtrage

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires