Coment filtrer sur des dates dans Excel avec une macro

Bonjour,

Je rencontre un petit problème concernant le filtrage de dates . Lorsque j'execute le filtrage manuellement sur des dates, le résultat correspond aux critères. Par contre lorsque j'effectue cette commande via une macro, rien ne se passe (en tout cas rien n'est visible) car je ne vois que la 1ère ligne avec le nom des colonnes .
Pourriez-vous m'apporter votre aide sur ce sujet ?

merci
salutations

MichaSarah

Excel 2003 & Windows XP

salut,
te serait-il possible de nous fournir le code VBA que tu utilises stp, au'on puisse avoir une idee des choses a modifier

Salut
C'est lié a un problème de format de date il me semble, cette question a été posé il y a quelque jours/semaines, pour ta défense (toujours faire une recherche avant de poster) je n'arrive pas a la retrouver non plus...

essai quelque chose comme ça

Code:

---

Criteria1:=">" & Format(Range("A1"), "mm/dd/yyyy")

---

a++
Qwaz

Bonjour,
Je vous transmets ci dessous le code que j'utilise. En // j'essaye avec la proposition de Qwazerty . Avant de poster j'avais cherché dans les forum mais la seule réponse que j'avais trouvé traitait du format de la date. J'avais testé mais sans résultat.

Code:

---

1 2 3 4

Selection.AutoFilter Field:=73, Criteria1:=">=01/01/2010", Operator:= _ xlAnd, Criteria2:="<=31/12/2010"

---

merci
salutations
MichaSarah

Bonjour,

La solution de Qwazerty fonctionne mais pour afficher le résultat à l'écran, il faut qu'après avoir lancé la macro je retourne sur la sélection du filtre , Je dois faire ensuite personnaliser puis OK et là le résultat s'affiche à l'écran.
Le code que j'ai mis est :

Code:

---

1 2 3

Selection.AutoFilter Field:=73, Criteria1:=">=" & Format("01/01/2010", "dd/mm/yyyy"), Operator:= _ xlAnd, Criteria2:="<=" & Format("31/12/2010", "dd/mm/yyyy")

---

Y a t-il moyen d'éviter les dernières actions après lancement de la macro ?

Merci
Salutations

MichaSarah

Bonjour,

il s'agit bien d'un problème de format, mais plus précisément d'interprétation de date... Ca devient plus simple si on a compris le fonctionnement de la chose :

Comprendre et gérer les dates sous Excel et en VBA

Ton résultat doit provenir du fait que tu utilises un format cellule différent de celui adopté dans ton filtre.
Testes avec l'enregistreur de macros avec différents formats cellule et différents formats de saisie dans le filtre feuille et analyse le résultat du code obtenu qui travaille en String.

Sinon, je te propose le code suivant qui n'est pas sensible au format date de tes cellules, à adapter à ton contexte.(attention au type des variables).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub FitreAutoDatesurDVP() Dim lngNoCol As Long Dim strFormatbase As String Dim vntCrit1 As String Dim vntCrit2 As String   lngNoCol = 1 'à 73 chez toi vntCrit1 = ">=" & CDec(CDate("01/01/2010")) vntCrit2 = "<=" & CDec(CDate("31/12/2010")) strFormatbase = Cells(2, 1).NumberFormat 'récupère le format de la 2ème cellule, la 1ère étant le titre Columns(lngNoCol).NumberFormat = "General" ' passe en numéros de série Selection.AutoFilter Field:=lngNoCol, Criteria1:=vntCrit1, Operator:=xlAnd, Criteria2:=vntCrit2 ' filtre nos données Columns(lngNoCol).NumberFormat = strFormatbase ' rebascule en format d'origine, mais on peut changer ' Attention, la partie non filtrée des données reste en N° de série, à traiter ensuite selon le contexte. 'Fonctionne même si les formats de dates ne sont pas homogènes dans la colonne, mais les uniformisera en final. End Sub

---

cordialement,

Didier