Impossible d’effacer un filtre avançé
Fermé
ptéranodon
Messages postés
464
Date d'inscription
dimanche 2 septembre 2007
Statut
Membre
Dernière intervention
23 janvier 2024
-
11 déc. 2019 à 19:45
ptéranodon Messages postés 464 Date d'inscription dimanche 2 septembre 2007 Statut Membre Dernière intervention 23 janvier 2024 - 14 déc. 2019 à 17:52
ptéranodon Messages postés 464 Date d'inscription dimanche 2 septembre 2007 Statut Membre Dernière intervention 23 janvier 2024 - 14 déc. 2019 à 17:52
A voir également:
- Impossible supprimer filtre excel
- Supprimer filtre avancé excel - Meilleures réponses
- Excel effacer filtre grisé - Meilleures réponses
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Liste déroulante excel - Guide
- Photo filtre gratuit - Télécharger - Retouche d'image
- Formule excel - Guide
7 réponses
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
337
12 déc. 2019 à 09:29
12 déc. 2019 à 09:29
Bonjour,
Si c'est une zone filtrée autre que sur place, il suffit de sélectionner cette zone et appuyer sur "SUPPR".
Maintenant, par rapport à votre précédent post, voici une proposition qui peut vous intéresser.
-Saisissez vos critères de filtre avancé (jusqu'à 6 lignes de critères), ne pas toucher à la colonne "O".
-Cliquez sur le bouton "Appliquer le filtre avancé"
Le code utilisé:
Le fichier en exemple avec 4 choix de critères
https://mon-partage.fr/f/sMl9yTBZ/
Cdlt
Si c'est une zone filtrée autre que sur place, il suffit de sélectionner cette zone et appuyer sur "SUPPR".
Maintenant, par rapport à votre précédent post, voici une proposition qui peut vous intéresser.
-Saisissez vos critères de filtre avancé (jusqu'à 6 lignes de critères), ne pas toucher à la colonne "O".
-Cliquez sur le bouton "Appliquer le filtre avancé"
Le code utilisé:
Sub Filtre_Avance()
Application.ScreenUpdating = False
Range("I12:N100").Clear 'Effacement du filtre précédent
DerLig = Range("A" & Rows.Count).End(xlUp).Row 'Dernière ligne de la base de données
DerLig_Fil = Application.WorksheetFunction.CountIf(Range("O3:O8"), "OUI") + 2 'détecte la dernière ligne de la zone de filtre avancé
Range("A1:F" & DerLig).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("I2:N" & DerLig_Fil), CopyToRange:=Range("I11:N11"), Unique:=True
End Sub
Le fichier en exemple avec 4 choix de critères
https://mon-partage.fr/f/sMl9yTBZ/
Cdlt
