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

Usine à gaz

XLDnaute Barbatruc
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.
1647013510733.png

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 !!! :mad::mad::mad: 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 :)
 

Pièces jointes

  • 01 Filtre_JBB.xlsm
    43.2 KB · Affichages: 10
Solution
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...

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Usine à gaz,
Peut être avec un petit EntireRow.Hidden = True :
VB:
Sub FiltreData()
On Error Resume Next
    Sheets("choix").Range("A5:J10000").AutoFilter Field:=1, Criteria1:="m"
    Sheets("choix").Range("A5:J10000").AutoFilter Field:=2, Criteria1:="ca"
    Sheets("choix").Range("A5:J10000").AutoFilter Field:=8, Criteria1:="3118"
    Sheets("choix").Range("A5:J10000").AutoFilter Field:=10, Criteria1:="el"
    [a1].Select
    Rows("5:5").EntireRow.Hidden = True
End Sub
 

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc
Bonsoir le fil

Marcel32
Merci de te rappeler ce que j'avais évoqué à propos des filtres avancés ;)
Mais pas sur que Lionel s'en serve (bien qu'il avance tester toutes les solutions qu'on lui soumets)
Car j'attends toujours son feedback sur mon petit test avec les Affichages personnalisés
(avec ou sans Combobox1)
;)

Rappel au passage:
Les affichages personnalisés ne sont disponibles si il y a dans le classeur un tableau structuré.
Mais comme il y en a pas et comme on parle du filtre avancé qui effectivement n'affiche pas de "petite flèche", Lionel devrait tester le filtre avancé.
Mais le fera-t-il ? ;)
 

Discussions similaires

Statistiques des forums

Discussions
315 079
Messages
2 115 988
Membres
112 633
dernier inscrit
ramd@