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

Usine à gaz
Comme je l'ai dit, il ne s'agissait pas d'un jeu de piste.
Mais la prochaine fois, je n'oublierais pas de mettre plus d'infos dans mes copies d'écran.
Et le code VBA et la copie d'écran dans le même message.
Et normalement, le code VBA sera prêt à l'emploi pour test
Tu n'auras plus qu'à mouiller le maillot pour faire des adaptations et poser des questions complémentaires sur mes propositions.
(Ce qui ne fut pas le cas ici)
C'est sympa de remercier ou de me liker
Mais tu peux poser aussi des questions sur ma syntaxe VBA, j'y répondrai.

Merci JM : je ne sais quoi te dire .... Merci

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

sylvanu

Usine à gaz

XLDnaute Barbatruc

Discussions similaires