Excel VBA filtre automatique ne fonctionne pas avec la colonne de la Date

J'ai eu un problème à l'aide de filtre automatique avec VBA dans Excel.

Il fonctionne bien régulier des filtres, mais le filtrage de la colonne de date ne fonctionne pas comme prévu.
La colonne est au format date, je ne peux filtrer manuellement et par l'absurde, si je lance mon code, il filtre rien, mais quand je vérifie le filtre, puis cliquez sur ok (pas de changement appliquée au filtre des critères), il commence filtrage correctement.

Voici mon code:

ws.ListObjects(SheetName).Range.AutoFilter Field:=3, Criteria1 _
        :=">" & CDate([datecell]), Operator:=xlAnd, Criteria2:= _
        "<=" & CDate(WorksheetFunction.EoMonth([datecell], 3))

Quelqu'un a une idée? Il semble être un problème commun, mais je n'ai pas trouvé une solution.

Merci d'avance.

Edit: Juste pour ajouter, quand j'ai une macro enregistrer et exécuter la macro enregistrée, elle ne fonctionne pas non plus.

Si vous modifiez votre date de cellules format général fait-il un nombre?
Oui, comme je l'ai dit, tout fonctionne comme il se doit. Il y a un problème lorsque le filtre est appliqué. Parce que la macro enregistrée ne fonctionne pas non plus.
Essayez de convertir le texte au lieu. comme CDate([datecell]) changement de Format([datecell], "dd-MMM-yy")
Ne fonctionne pas non plus, voir la réponse et mon commentaire ci-dessous. C'est vraiment absurde.
Cela semble un peu bizarre oui.... quelle est la valeur [datecell] et WorksheetFunction.EoMonth([datecell], 3) si vous Debug.Print ou msgbox?

OriginalL'auteur Spurious | 2013-11-04

15

Les Dates peuvent être délicate avec Excel VBA filtre automatique. Certains trouvent qu'il est plus facile de parcourir le tableau pour être filtré.

Parfois j'ai trouvé que l'on peut utiliser la valeur numérique de la date, surtout lorsqu'il s'agit de "dates entre"
```
Criteria1:= ">" & CDbl([datecell])
Criteria2:= "<=" & CDbl(WorksheetFunction.EoMonth([datecell], 3))
```
Noter que la ci-dessus doivent être "dates réelles" et non pas des chaînes de caractères qui ressemblent à des dates. Même un seul "chaîne de date" va gâcher les choses.

Ouais, essayé comme bien plus tôt, et il n'a pas fonctionné non plus. C'est un mystère pour moi. Surtout compte tenu du fait que la macro enregistrée ne fonctionne pas non plus.
Une autre option, lorsque vous traitez avec des "dates entre", c'est d'utiliser le fichier Excel stockés nombre. Voir mon montage dans la réponse
Autre chose à vérifier est que l'ensemble de vos dates sont vraiment les dates, et pas des liens qui ressemblent à des dates. Même un seul "chaîne de date" dans la liste de gâcher les choses.
La Double Méthode a fonctionné, il me semble.
Modifier votre réponse à ne montrer que le CDbl Version et je marque comme correct et de voter.

OriginalL'auteur Ron Rosenfeld
9

Autofilter() travaille avec "universel" format yyyy-mm-dd, c'est à dire:
```
Criteria1:= ">" & Format([MY_DATE],"yyyy-mm-dd")
Criteria2:= "<=" & Format([MY_DATE],"yyyy-mm-dd")
```
C'est mieux car Excel ne peut pas "comprendre" ce mal . Si vous utilisez mm/dd/yyyy ou dd/mm/yyyy Excel peut s'adapter 02-janv 01-févr.

voir:
http://www.oaltd.co.uk/ExcelProgRef/Ch22/ProgRefCh22.htm
Les Règles pour Travailler avec Excel (Question Internationale)
1. Lorsque vous devez convertir les nombres et les dates de cordes pour passer à Excel (comme dans les critères de filtre automatique ou .Formule de chaînes de caractères), toujours explicitement convertir les données dans un format AMÉRICAIN chaîne, à l'aide Trim(Str(MyNumber)), ou la sNumToUS() la fonction montré précédemment, pour tous les numéro et date de types. Excel puis de l'utiliser correctement et de le convertir au numéro local/formats de date.
Edit:

Nous pouvons créer une Fonction universelle à l'aide de Application.International comme:
```
Sub MySub()
    Select Case application.International(xlDateOrder)
        Case Is = 0
            dtFormat = "mm/dd/yyyy"
        Case Is = 1
            dtFormat = "dd/mm/yyyy"
        Case Is = 2
            dtFormat = "yyyy/mm/dd"
        Case Else
            dtFormat = "Error"
    End Select

    Debug.Print (dtFormat)

    ...
    Criteria1:= ">" & Format([MY_DATE],dtFormat)
    Criteria2:= "<=" & Format([MY_DATE],dtFormat)
    ...

End Sub
```
OriginalL'auteur Makah
2

vous avez besoin de convertir le format vers le format américain, comme:
">" & Format([datecell], "mm/dd/yyyy")
VBA ne pas comprendre un autre format.

OriginalL'auteur Karlos Henrique
1

Cette syntaxe fonctionne pour moi:
```
.AutoFilter Field:=2, Operator:=xlFilterValues, Criteria2:=Array(2, Format(Now, "yyyy-mm-dd"))
```
Indice obtenu grâce à une macro enregistrement

OriginalL'auteur Mago Fabian

Karlos Henrique,
Merci pour suggérer Format([datecell], "mm/dd/yyyy").
Il fonctionne dans mon fichier.
Mon code précédent est :

Range("A1:D" & Trim(Str(LstRec))).AutoFilter Field:=2, _
  Criteria1:=">=" & StrtDt, _
  Operator:=xlAnd, _
  Criteria2:="<=" & EndDt

Mon code modifié est :

Range("A1:D" & Trim(Str(LstRec))).AutoFilter Field:=2, _
  Criteria1:=">=" & Format(StrtDt, "mm/dd/yyyy"), _
  Operator:=xlAnd, _
  Criteria2:="<=" & Format(EndDt, "mm/dd/yyyy")

Grâce.

OriginalL'auteur pmyk

0

Correspondent à votre "jj-mm-aaaa" pour le format de la colonne, donc si vous avez des "16-Aug-16" en tant que votre source de données mise en forme puis faire le filtre sous la forme "jj-mmm-yy"

Cela a fonctionné pour moi... ma colonne a été formaté comme jj mmmm aaaa-et qui a tout. Changer les critères de correction de l'émission.

OriginalL'auteur Graham P
0

La seule solution est de configurer correctement le format de la colonne cible. Si sa forme "custom", même si elle ressemble à une date, ça ne marchera pas.

Vous demandez VBA pour filtrer en fonction d'une date, donc le format des colonnes a une date trop.

OriginalL'auteur Andrés Roldán

Vous devez vous connecter pour publier un commentaire.