Code VB pour masquer les filtres sur Excel

Résolu
Joss062 -  
Bonjour,
J'ai créé un tableau sur Excel.
Je voudrai effectuer certains tris sur bonton de commande, jusque là pas de souci. par contre, je veux faire disparaître les flècles des filtres... pour affiner ma présentation.
Mon crètère de recherche se fait à la 11ème colonne sur "TOTO" par exemple....
donc voici mon code :

ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=11, Criteria1:="mon critère de filtre"
VisibleDropDown = False

donc le filtre fonctionne, mais les flèches du filtre ne disparait pas....

Quelqu'un a-til une idée
MERCI
Joss

7 réponses

  1. Joss062 Auteur
    Salut eric,
    Les filtres ne disparaissent toujours pas..
    Je dois merder quelque part...
    Ce code est-il correct ? (sachant que mon tableau commence en A3)
    [ActiveSheet.ListObjects("Tableau1").Range.AutoFilter field:=11, Criteria1:="ATTENTE - Gestion de Cas"
    Dim i As Long
    For i = 1 To [A3].End(xlToRight).Column
    Range("A3").AutoFilter field:=i, VisibleDropDown:=False
    Next
    End Sub]
    Merci à toi
    0
    1. Joss062 Auteur
      Désolé, ça fonctionne, me suis rendu compte de mon erreur
      Merci à toi, t'es un bon !!!!
      Joss
      0
    2. Joss062 Auteur
      En mettant ça dans le bon ordre, c'est Mieux !!!!!!
      loll
      0
    3. eriiic Contributeur
      Ok, la prochaine fois n'hésite pas à mettre un fichier de travail si tu veux des réponses adaptées dès le début.
      N'oublie pas de mettre en résolu.
      eric
      0
    4. Joss062 Auteur
      Ok, Merci encore ;)
      0
  2. Joss062 Auteur
    Maurice, merci de ton retour, la macro test ne fonctionne pas, ça fait rien...
    0
    1. Maurice
      Bonjour

      Mocro test pour enlever les filtres 

      Sub Test()
   If ActiveSheet.AutoFilterMode Then
      ActiveSheet.AutoFilterMode = False
   End If
End Sub


      A+
      Maurice
      0
      1. Joss062 Auteur
        Obligé de le faire sur chaque colonne ?
        C'est un filtre automatique appliqué sur un tableau avec mise en forme automatique, il y a à peut près 40 colonnes...

        si je fais comme tu me dit, le jour ou je rajoute des colonnes ça va merdé alors...
        qu'est-ce que tu en penses...
        1
        1. Joss062 Auteur
          En fait je veux les enlever partout, peut importe le nombre de colonnes...
          0
        2. eriiic Contributeur
          et bien met 
          For i = 1 To [A1].End(xlToRight).Column

          eric
          0
        3. Joss062 Auteur
          Salut eric,
          Les filtres ne disparaissent toujours pas..
          Je dois merder quelque part...
          Ce code est-il correct ?
          [ActiveSheet.ListObjects("Tableau1").Range.AutoFilter field:=11, Criteria1:="ATTENTE - Gestion de Cas"
          Dim i As Long
          For i = 1 To [A3].End(xlToRight).Column
          Range("A3").AutoFilter field:=i, VisibleDropDown:=False
          Next
          End Sub]
          Merci à toi
          0
      3. eriiic Contributeur
        Bonjour,

        il faut le faire sur chaque titre où tu veux l'enlever :
        Dim i As Long
        For i = 1 To 15
        Range("A1").AutoFilter field:=i, VisibleDropDown:=False
        Next

        1
        1. Joss062 Auteur
          Merci pour ta réponse

          Voilà mon code avec la ligne rajoutée :

          Selection.AutoFilter
          ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=11, Criteria1:="ATTENTE - Gestion de Cas"
          VisibleDropDown = False
          Selection.AutoFilter

          ... ça marche pas
          j'ai un débogage
          0
          1. via55
            Bonjour

            Rajoute la ligne :
            Selection.AutoFilter
            en fin de macro

            et si elle n'existe pas en début de macro tu la met aussi
            c'est une commande "bascule" elle actionne le filtre s'il n'est pas activé ou le désactionne dans le cas contraire

            Cdlmnt
            Via
            1