Macro décocher une case filtre colonne [Résolu]

Signaler
Messages postés
102
Date d'inscription
dimanche 4 juillet 2010
Statut
Membre
Dernière intervention
20 décembre 2020
-
Messages postés
54
Date d'inscription
dimanche 5 août 2012
Statut
Membre
Dernière intervention
4 janvier 2021
-
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

2 réponses

Messages postés
54
Date d'inscription
dimanche 5 août 2012
Statut
Membre
Dernière intervention
4 janvier 2021
6
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
Messages postés
102
Date d'inscription
dimanche 4 juillet 2010
Statut
Membre
Dernière intervention
20 décembre 2020
3
Bonjour ptitpanda.
Merci beaucoup , ça fonctionne.
Bonne fête de fin d'année
Messages postés
54
Date d'inscription
dimanche 5 août 2012
Statut
Membre
Dernière intervention
4 janvier 2021
6
Bonjour,

Pas de problème

Bonnes fêtes aussi
Messages postés
161
Date d'inscription
mercredi 23 avril 2008
Statut
Membre
Dernière intervention
12 janvier 2021
30
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