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

[Usine à gaz]

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

 

[Usine à gaz]

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]

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

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]

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]

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]

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

 

[Usine à gaz]

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]

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

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

    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]

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]

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]

Merci Gérard, je regarde

 

[Staple1600]

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]

Merci Gérard, je regarde

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]

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]

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]

Re

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