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 · 11 Mars 2022

Bonjour JM,

Je n'ai pas réussi à mon servir.
Si c'est facile pour toi ... peut-être tu pourrais faire un pertit fichier test pour que je comprenne mieux comment ça fonctionne ?

Mais là, je sais ce que tu vas dire LOL

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 Sub

Staple1600 · 11 Mars 2022

Bonsoir Usine à gaz

Dans l'autre fil, j'ai mis suffisamment d'explications et de copie d'écran pour expliquer l'utilisation des Affichages personnalisés.
Pour preuve, Marcel32 a suivi le mode opératoire avec succès dit-il dans ce fil.

NB: Comme tu le sais, je ne joins plus de fichier Excel sur le forum
(Et j'ai déjà expliqué pourquoi)

Staple1600 · 11 Mars 2022

Bonsoir Sylvanu

C'est déjà ce qu'on proposait dans l'autre fil (Visibledropdown:=False)
Mais Lionel a oublié de citer cette autre fil de discussion qui est devenu une pelote
10 pages quand même

Microsoft 365 - filtrages que je ne parviens pas à coder

Bonsoir à toutes et à tous, J'ai des filtrages à mettre en place et voilà une semaine que je tourne en rond sans parvenir à réussir les codes. J'ai tenté en boucle mais je n'y arrive pas :mad: Dans le fichier joint, j'ai créé les onglets pour montrer mes besoins selon les conditions : 1 -...

www.excel-downloads.com

sylvanu · 11 Mars 2022

Story, mais difficile de suivre votre conversation sans lien en référence.

Usine à gaz · 11 Mars 2022

Re sylvanu,

Nickel aux 1ers tests.
Merci à toi,

Je verrai dans mon fichier de travail en fin de journée et je reviendrai vous dire

TooFatBoy · 11 Mars 2022

Staple1600 à dit:
C'est déjà ce qu'on proposait dans l'autre fil (Visibledropdown:=False)

En particulier en #28 du 04/03/2022.

VB:

    Set MaZone = ActiveSheet.Range("A5:M" & Cells(Rows.Count, 1).End(xlUp).Row)

    For MaCol = 1 To 13
        MaZone.AutoFilter Field:=MaCol, Visibledropdown:=False
    Next MaCol

TooFatBoy · 11 Mars 2022

Toi, je t'adore. Ca fait vraiment plaisir d'essayer de t'aider.
On voit tout de suite que tu suis bien ce qu'on te donne comme solution.
Pis on est bien récompensé.

Bye

job75 · 11 Mars 2022

Usine à gaz à dit:
Bonjour Gérard,
Merci d'être là mais mon fichier n'a pas de tableau structuré ... sniff

Qu'est-ce qui t'empêche de le créer ? Regarde le fichier joint.

Salut JM.

Usine à gaz · 11 Mars 2022

Merci Gérard, je regarde

Staple1600 · 11 Mars 2022

Bonsoir job75

=>Marcel32
Tu confirmes que mon tuto était suffisamment explicite pour les Affichages personnalisés ?

=>Sylvanu
J'ai mis le lien de la discussion dans le message#19

On se demande bien pourquoi le "gazier" ne l'a point fait
(sans doute une intoxication au monexcel d'azote )

Usine à gaz · 11 Mars 2022

Usine à gaz à dit:
Merci Gérard, je regarde

job75 à dit:
Qu'est-ce qui t'empêche de le créer ? Regarde le fichier joint.

Salut JM.

Re Gérard, je ne sais pas si ça provient d'office365 mais le fichier ne fonctionne pas du tout chez moi ... aucune macro ne répond lol,
lionel

Staple1600 · 11 Mars 2022

Re

J'ai ouvert le fichier du post#17 puis j'ai pleuré (ou presque)
NB: pas pour ton ouvrage sylvanu, mais par ce qu'on peut voir à droite de la feuille !!!

Une zone de critères formulés à donc utiliser avec un filtre avancé
(donc sans l'affichage des flèches)

J'ai besoin de sucre. Je suis au bord de la syncope.

NB: je suppose que ces critères furent mis là par JB dans son fichier exemple
(pour justement illustrer les possibilités du filtre avancé)

Usine à gaz · 11 Mars 2022

Staple1600 à dit:
Bonsoir job75

=>Marcel32
Tu confirmes que mon tuto était suffisamment explicite pour les Affichages personnalisés ?

=>Sylvanu
J'ai mis le lien de la discussion dans le message#19

On se demande bien pourquoi le "gazier" ne l'a point fait
(sans doute une intoxication au monexcel d'azote )

alors ça "sans doute une intoxication au monexcel d'azote" je vais le retenir lol

Staple1600 · 11 Mars 2022

Re

Usine à gaz
Tu confirmes que tu n'avais pas vu cette zone de critères ?
(ou est-ce un ajout de sylvanu?)

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

sylvanu

Usine à gaz

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Microsoft 365 - filtrages que je ne parviens pas à coder

sylvanu

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires