Gestion des filtres
Résolu/Fermé
mchotard
Messages postés
419
Date d'inscription
vendredi 6 mai 2011
Statut
Membre
Dernière intervention
13 mai 2024
-
28 oct. 2014 à 10:52
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 28 oct. 2014 à 11:21
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 28 oct. 2014 à 11:21
A voir également:
- Gestion des filtres
- Logiciel gestion photos - Guide
- Logiciel gestion cave à vin gratuit - Télécharger - Cuisine & Gastronomie
- Logiciel gestion association gratuit excel - Télécharger - Gestion de projets
- Logiciel gestion locative gratuit excel - Télécharger - Comptabilité & Facturation
- Logiciel gestion cdthèque gratuit - Télécharger - Création musicale
1 réponse
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
28 oct. 2014 à 11:21
28 oct. 2014 à 11:21
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