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 -
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
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
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
- Filtres whatsapp - Accueil - Messagerie instantanée
- Gestion autorisation application android - Guide
1 réponse
Bonjour MChotard, bonjour le forum,
Regarde le code ci-dessous :
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