Problème de filtre avec plusieurs critères VBA.
Fermé
Fitz_Chev
-
Modifié par jordane45 le 30/03/2016 à 00:16
Frenchie83 Messages postés 2239 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 28 janvier 2023 - 31 mars 2016 à 13:49
Frenchie83 Messages postés 2239 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 28 janvier 2023 - 31 mars 2016 à 13:49
A voir également:
- Problème de filtre avec plusieurs critères VBA.
- Photo filtre gratuit - Télécharger - Retouche d'image
- Erreur 1004 vba ✓ - Forum VB / VBA
- Vba range avec variable ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
2 réponses
Frenchie83
Messages postés
2239
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
28 janvier 2023
335
30 mars 2016 à 13:08
30 mars 2016 à 13:08
Bonjour
Comme ceci peut-être:
Cdlt
Comme ceci peut-être:
Startdate = ">=" & Format(Date_1, "dd/mm/yyyy")
enddate = "<=" & Format(Date_2, "dd/mm/yyyy")
ActiveSheet.Range("$A$3:$AN" & derlig).AutoFilter Field:=1, Criteria1:=Startdate, Operator:=xlAnd, Criteria2:=enddate
Cdlt
Frenchie83
Messages postés
2239
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
28 janvier 2023
335
31 mars 2016 à 13:49
31 mars 2016 à 13:49
Bonjour
Avec cette méthode ça fonctionne.
Avant d'appliquer le filtre, remplacez les cellules vides de la colonne à filtrer par une valeur quelconque (un signe particulier: %; $, etc..).
Attention au format de date (mm/dd/yyyy)
A tester
Cdlt
Avec cette méthode ça fonctionne.
Avant d'appliquer le filtre, remplacez les cellules vides de la colonne à filtrer par une valeur quelconque (un signe particulier: %; $, etc..).
Attention au format de date (mm/dd/yyyy)
Startdate = Format(Date_1, "mm/dd/yyyy")
Enddate = Format(Date_2, "mm/dd/yyyy")
ActiveSheet.Range("$A$3:$AN" & derlig).AutoFilter Field:=14, Criteria1:=Array( _
"$"), Operator:=xlFilterValues, Criteria2:=Array(2, Startdate, 2, Enddate)
A tester
Cdlt
30 mars 2016 à 14:23
ActiveSheet.Range("$A$3:$AN" & derlig).AutoFilter Field:=14, Criteria1:=">=" & startdate2, Operator:=xlAnd, Criteria2:="<=" & enddate2Je voudrais juste ajouter un troisième critère cellule vide