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

  • Discussion générale

  • 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.

    jeudi 7 juillet 2016 14:07

Toutes les réponses

  • 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

    vendredi 8 juillet 2016 08:04
  • 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

    mardi 12 juillet 2016 12:42
  • Bonjour,

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

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

    Daniel

    mardi 12 juillet 2016 14:08