Impossible d’effacer un filtre avançé
Fermé
ptéranodon
Messages postés
465
Date d'inscription
dimanche 2 septembre 2007
Statut
Membre
Dernière intervention
5 juillet 2024
-
11 déc. 2019 à 19:45
ptéranodon Messages postés 465 Date d'inscription dimanche 2 septembre 2007 Statut Membre Dernière intervention 5 juillet 2024 - 14 déc. 2019 à 17:52
ptéranodon Messages postés 465 Date d'inscription dimanche 2 septembre 2007 Statut Membre Dernière intervention 5 juillet 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
- Liste déroulante excel - Guide
- Impossible de supprimer une page word - Guide
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Supprimer compte instagram - Guide
- Impossible de supprimer un fichier - 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
338
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