Impossible d’effacer un filtre avançé
ptéranodon
Messages postés
465
Date d'inscription
Statut
Membre
Dernière intervention
-
ptéranodon Messages postés 465 Date d'inscription Statut Membre Dernière intervention -
ptéranodon Messages postés 465 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Bonsoir à tous ;)
Je n’arrive pas à supprimer un filtre avancé sur Excel…
Quand le clique sur l’outil filtre "effacer le filtre" est en grisé, inaccessible !
Quelqu’un peut-il me conseiller ?
Merci
Bonsoir à tous ;)
Je n’arrive pas à supprimer un filtre avancé sur Excel…
Quand le clique sur l’outil filtre "effacer le filtre" est en grisé, inaccessible !
Quelqu’un peut-il me conseiller ?
Merci
Configuration: Macintosh / Safari 13.0.3
A voir également:
- Supprimer filtre avancé excel
- Impossible supprimer filtre excel - Meilleures réponses
- Enlever tri excel - Meilleures réponses
- Supprimer rond bleu whatsapp - Guide
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Liste déroulante excel - Guide
- Supprimer page word - Guide
- Word et excel gratuit - Guide
7 réponses
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