Filtre sur deux colonnes avec dans une colonne une date et dans une autre colonne antérieur ou égale à cette même date

Question

Bonjour,

je souhaite filtrer avec vba sur deux colonnes différentes. Je souhaite mettre un filtre sur une première colonne sur une date donnée par une inputbox (chose que j'ai deja réussi à faire). Je souhaite ensuite filtrer sur une autre colonne une date inférieur ou égale à cette même date donnée par l'inputbox. Cela ne fonctionne pas.

Quelqu'un pourrait-il m'aider ?

Merci d'avance.

Answer 1

Bonjour,

Essaie:

    With Sheets("Feuil1")
        .AutoFilterMode = False
        Dat = CDate(InputBox("Date ? (JJ/MM/AAAA)"))
        Dat = Format(Dat, "mm/dd/yyyy")
        .[A:C].AutoFilter 1, "<=" & Dat, xlAnd, ">=" & Dat
        .[A:C].AutoFilter 2, "<=" & Dat
    End With

Cordialement.

Daniel

Answer 2

Bonjour,

merci pour votre réponse. 

Cependant, je rencontre un problème de format de date je pense.

Lorsque je saisis le 04/01/2016 cela fonctionne. Lorsque je saisis le 18/04/2016 ce ne fonctionne pas.

J'ai essayé de modifier cette ligne : 

  Dat = Format(Dat, "mm/dd/yyyy")
Je me suis mis au format "français"
  Dat = Format(Dat, "dd/mm/yyyy")
Et du coup l'inverse se produit le 04/01/2016 devient le 01/04/2016 et le 18/04/2016 ne fonctionne toujours pas.
Merci pour votre aide.
Cordialement,
Laetitia

Answer 3

Bonjour,

Il y a une anomalie avec les dates. Regarde le classeur :

https://1drv.ms/x/s!AqRP0RQrhNWWwD2kZH16-L-at6-g

Daniel