Macro décocher une case filtre colonne

Résolu/Fermé

memss Messages postés 108 Date d'inscription dimanche 4 juillet 2010 Statut Membre Dernière intervention 8 mai 2023 - Modifié le 18 déc. 2020 à 15:42
ptitpanda Messages postés 65 Date d'inscription dimanche 5 août 2012 Statut Membre Dernière intervention 8 avril 2023 - 20 déc. 2020 à 19:03

Bonjour. J’ai créé une macro (en utilisant enregistrer macro) pour ne décocher(comme dans un filtre de colonne) que la case que j'ai nommé « terminer «

Quand j’active ma macro , la case « terminer » est belle et bien décoché , mais il y a aussi d’autre case qui sont également décoché..

Je souhaiterais que la case "terminer " de décocher mais je n'y arrive pas

Voici mon code macro

Sub suprimerterminer()
'
' suprimerterminer Macro
'
'
    ActiveSheet.Range("$A$2:$O$3178").AutoFilter Field:=13, Criteria1:=Array( _
        "1 jours", "-1 jours", "10 jours", "12 jours", "13 jours", "14 jours", "15 jours", _
        "16 jours", "-2 jours", "22 jours", "24 jours", "3 jours", "-3 jours", "4 jours", _
        "43 jours", "7 jours", "8 jours", "9 jours", "="), Operator:=xlFilterValues

Merci de votre aide

A voir également:

Macro décocher une case filtre colonne
Déplacer une colonne excel - Guide
Photo filtre gratuit - Télécharger - Retouche d'image
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Colonne word - Guide

2 réponses

Réponse 1 / 2

ptitpanda Messages postés 65 Date d'inscription dimanche 5 août 2012 Statut Membre Dernière intervention 8 avril 2023 8
19 déc. 2020 à 10:48

Bonjour,

Oui ton filtre ne va pas car ton nombre de jours dans la colonne change tous les jours donc utilise plutôt cette ligne de code:

With Activesheet
.Cells(.Range("a:o").Column).AutoFilter Field:=.Range("m:m").Column, Criteria1:="<>Terminé", Operator:=xlFilterValues
End With

Cela devrait être bon

Bonne journée

memss Messages postés 108 Date d'inscription dimanche 4 juillet 2010 Statut Membre Dernière intervention 8 mai 2023 9
20 déc. 2020 à 15:52

Bonjour ptitpanda.
Merci beaucoup , ça fonctionne.
Bonne fête de fin d'année

ptitpanda Messages postés 65 Date d'inscription dimanche 5 août 2012 Statut Membre Dernière intervention 8 avril 2023 8
20 déc. 2020 à 19:03

Bonjour,

Pas de problème

Bonnes fêtes aussi

Réponse 2 / 2

franc38 Messages postés 197 Date d'inscription mercredi 23 avril 2008 Statut Membre Dernière intervention 27 février 2023 38
Modifié le 19 déc. 2020 à 10:40

Bonjour
a essayer
Mettre les critères dans une colonne (que tu pourras masquée)
dans l'exemple ci dessous R3 à R24

    Range("$A$2:$O$3178").AutofilterFilter 'annule filtre precedent
Range("$A$2:$O$3178").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("R3:R24"), Unique:=False

A+ François

Discussions similaires

liste de noms par ordre alphabétique

Discussions similaires

Newsletters