Discussion :

[David-91]

Bonjour,

Je recherche depuis quelques heures une solution à mon problème.

Je souhaite faire un filtre prenant les valeurs inférieures à une date et les valeurs null.
J'ai écris cela mais cela ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Range("$A$5:$AR$967").AutoFilter Field:=28, Operator:= xlFilterValues, Criteria1:="<" & Début_année_traitement, Operator:=xlOr, Criteria1:=" = "

Le résultat calcul uniquement le premier critère.
Si j'inverse l'ordre des critères, j'ai un autre résultat

J'ai essayé avec un Criteria2 à la place du second Criteria1, le résultat est 0 (Faux)

Je vous remercie d'avance du temps que vous prendrez pour me répondre.

et prime, lorsque cela marchera, je voudrais ajouter une 3e conditionm et j'ai l'impression que ce n'est pas facile
La troisième condition est les valeurs soient supérieurs à une autre date (un second paramètre)

Merci
David

[Jean-Philippe André]

Salut,

deux choses :
-premièrement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Criteria1:=" = "

pourquoi des espaces avant et après ton signe = ?
-deuxièmement
as-tu essayé de passer par un enregistreur de macro pour récupérer un code de base correct ?

[David-91]

J'ai codé Criteria1:=" = "
comme tu me le recommandes et comme j'ai cru le lire dans la documentation (syntaxe pour avoir des champs vides)

Oui, je suis passé par l'enregistreur de macros mais il prend les valeurs que j'ai dans mon fichier de test et je veux le rendre plus générique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    ActiveSheet.Range("$A$5:$AR$967").AutoFilter Field:=28, Criteria1:=Array( _
        "="), Operator:=xlFilterValues, Criteria2:=Array(0, "12/20/2017", 0, _
        "12/22/2016", 0, "11/30/2015", 0, "12/16/2014", 0, "8/21/2013", 0, "10/30/2012")

[David-91]

J'ai supprimé les espaces avant et après le = mais pas de changement

[David-91]

En partant de la remarque de Jean Philippe sur le générateur de macro par Excel, j'ai modifié le code pour obtenir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    ActiveSheet.Range("$A$5:$AR$967").AutoFilter Field:=28, Criteria1:=Array( _
        "="), Operator:=xlOr, Criteria2:="<" & Début_année_traitement

Et cela fonctionne, mais je ne comprends pas pourquoi.

Est ce que quelqu'un peut m'expliquer ou me renvoyer vers de la doc de AutoFilter car je suis un peu perdu.

Maintenant je dois ajouter un troisième critère...