Gestion des filtres

Résolu

mchotard Messages postés 457 Date d'inscription Statut Membre Dernière intervention -
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention - 28 oct. 2014 à 11:21

Bonjour,

Ja' un tableau avec des macros qui parfois utilise les filtres et d'autres fois non, alors de tmps en temps j'ai un problème de compatibilité
Qui pourrais me donner une macro vba pour
vérifier si les filtres sont mis ou enlevés et donc
si les filtres sont mis, il les enlèves et
s'ils sont enlevés, il les met

Merci, grâce au forum, j'avance dans mes recherches.
MC

A voir également:

Gestion des filtres
Logiciel gestion locative gratuit excel - Télécharger - Comptabilité & Facturation
Logiciel gestion photo gratuit - Guide
Gestion des fichiers - Télécharger - Gestion de fichiers
Gestion autorisation application android - Guide
Filtres whatsapp - Accueil - Messagerie instantanée

1 réponse

Réponse 1 / 1

ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention 160

Bonjour MChotard, bonjour le forum,

Regarde le code ci-dessous :

Public Sub Macro1()
If Sheets("Feuil1").FilterMode = True Then 'condition : si l'onglet est en mode filtre
    Sheets("Feuil1").ShowAllData 'affiche toutes les lignes filtrées
    Sheets("Feuil1").AutoFilterMode = False 'supprime les flèches du filtre
    'si tu conais l'emplacement du filtre tu peux le supprimer avec :
    'Sheets("Feuil1").range("A1").Autofilter '(voir macro2)
End If 'fin de la condition
End Sub

Public Sub Macro2()
If Sheets("Feuil1").FilterMode = False Then 'condition : si l'onglet n'est pas en mode filtre
    'filtre à partir de la cellule Ta_cellule, la colonne Ta_colonne de l'onglet "Feuil1" avec Ton_critère comme critère
    Sheets("Feuil1").Range(ta_cellule).AutoFilter Field:=Ta_colonne, Criteria1:=Ton_critère
End If 'fin de la condition
End Sub

Discussions similaires

application de gestion des contacts

Votre réponse

Discussions similaires