XL 2019 Filtrer plusieurs colonnes

[KTM]

Bonsoir chers tous
je voudrais élaborer une macro pour filtrer les colonnes A et M de ma plage comme suit:
1- si le filtre est seulement sur la colonne A alors on applique un deuxième filtre sur la colonne M.
2-si le filtre est sur les deux colonnes alors on supprime filtre sur la colonne M.

Sur les deux colonnes je filtre les données différentes de zéro.
Merci

 

[mapomme]

Bonjour @KTM ,

Un code à tester. On ne s'intéresse qu'aux colonnes A et M. Les autres peuvent être filtrées ou non, on n'en a cure.

Sub FiltrerAM()
Dim plage As Range
   Set plage = Worksheets("feuil1").AutoFilter.Range
   plage.AutoFilter Field:=1, Criteria1:="<>0"
   With Worksheets("feuil1").AutoFilter
      If .Filters(13).On Then plage.AutoFilter Field:=13 Else plage.AutoFilter Field:=13, Criteria1:="<>0"
   End With
End Sub

 

[KTM]

Bonjour @KTM ,

Un code à tester. On ne s'intéresse qu'aux colonnes A et M. Les autres peuvent être filtrées ou non, on n'en a cure.

Sub FiltrerAM()
Dim plage As Range
   Set plage = Worksheets("feuil1").AutoFilter.Range
   plage.AutoFilter Field:=1, Criteria1:="<>0"
   With Worksheets("feuil1").AutoFilter
      If .Filters(13).On Then plage.AutoFilter Field:=13 Else plage.AutoFilter Field:=13, Criteria1:="<>0"
   End With
End Sub

Merci
C'est super!