Discussion :

[MichaSarah]

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

[Jean-Philippe André]

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

[Qwazerty]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

a++
Qwaz

[MichaSarah]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

merci
salutations
MichaSarah

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Didier Gonard]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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