Activer désactiver les filtres

Bonjour,

Sur une série de page je souhaite supprimer et ajouter les filtres (2 fonctions différentes).

Je ne souhaite pas utiliser selection.autofilter car cela éffectue un switch de filtre mais bel et bien les enlever ou les supprimer.

là j'ajoute mais s'il sont déjà présent cela les retire or j'aimerais les ajouter à coups sur

    Sheets("A").Select
    Range("A2:Z2").Select
    Selection.AutoFilter

là je tente (car cela ne fonctionne pas = cela ne fait rien) de les supprimer à coup sur

    Sheets("A").Select
    Range("A2:Z2").Select
    On Error Resume Next
    ActiveSheet.ShowAllData

Merci par avance,

Gloutoni

Bonjour

A vérifier

La sélection de la feuille n'est pas obligatoire, mais ne sachant pas ce qu tu veux y faire je l'ai laissée

Sub AjouteFiltre()
  With Sheets("A")
    .Select
    If .AutoFilterMode = True Then .AutoFilterMode = False
    .Range("A2:Z2").AutoFilter
  End With
End Sub

Sub SupprimeFiltre()
  With Sheets("A")
    .Select
    If .AutoFilterMode = True Then .AutoFilterMode = False
  End With
End Sub

Cela fonctionne c'est parfait merci il ne me reste plus qu'a l'adapter à toutes mes feuilles avec les plages de sélections différentes.

Merci

Bonjour,

Désolé .

Gelinotte, tête de linotte