Discussion :

[adluma]

Bonjour,

Nous essayons désespérément à partir de dates (dd/mm/yyyy hh:mm) contenues dans des cellules nommées de réaliser par une macro un filtre chronologique entre ces deux dates, et en fait, le filtre se met bien en place. Mais ne s'active pas et le tableau ne présente pas de données alors que les bonnes dates sont enregistrées dans les données du filtre. Par contre si on va sur les paramètres du filtre et qu'on clique sur OK, ça fonctionne, on ne comprend plus rien !!!!

Voici notre prog :

Code :

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

1
2
ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=4, Criteria1:= _
"<=" & Range("fin").Value & "", Operator:=xlAnd, Criteria2:=">=" & Range("debut").Value & ""

PLEASE HELP !!! C'est un projet urgent et nous sommes complètement perdues !

Merci d'avance !!!!!!!!

[antonysansh]

Bonjour adluma,

Dans ce genre de cas l'utilisation de l'enregistreur de macro peut être un excellent début de code.

Voir ce tuto : Excel et l'enregistreur de macro

Sinon pour te répondre avec le peu d'éléments donnés, je penserais a un problème de format de date.
Dans le classeur avec la langue locale une date va être au format jj/mm/aaaa alors qu'en vb c'est toujours le format mm/dd/yyyy.

[goldstar]

Bonjour,

Ne serai ce pas à cause des guillemets en trop dans:

Code :

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

1
2
 
Range("fin").

et

Code :

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

1
2
 
Range("debut").

Cordialement,

[antonysansh]

adluma parle de plages nommées donc Range("Nom de la plage") n'est pas choquant.

Par contre préciser le classeur et la feuille parents serait bien mieux.

[Docmarti]

Bonjour.

Essaie avec le format "m/d/yyyy"

Code :

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

1
2
3
4
5
debut = Format(Range("debut").Value, "m-d-yyyy")
fin = Format(Range("fin").Value, "m-d-yyyy")
 
ActiveSheet.Range("Tableau2").AutoFilter Field:=4, Criteria1:= _
"<=" & fin & "", Operator:=xlAnd, Criteria2:=">=" & debut & ""

[adluma]

Merci mais ce n'est pas ça le problème. Il comprend bien les dates. Ce n'est pas le souci, c'est juste comme s'il manquait le fait qu'on appuie sur OK. dans la mesure ou quand on appuie sur les filtres chronologiques, c'est les bonnes dates qui sont renseignées !!!! nous ne comprenons plus.... c'est vraiment étrange !!

[parmi]

Bonjour,

Ceci fonctionne.
À noter que mes cellules sont aux format Date ainsi que mes variables...

Code :

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

1
2
3
4
5
6
7
    Dim DateDebut As Date, DateFin As Date
 
    DateDebut = Range("D1")
    DateFin = Range("D2")
 
    ActiveSheet.Range("$A$1:$A$48").AutoFilter Field:=1, Criteria1:= _
        ">" & DateDebut, Operator:=xlAnd, Criteria2:="<" & DateFin

[Docmarti]

Bonjour.

Pour tenir compte des heures et minutes, soit de la partie décimale:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub tt()
 
debut = CDbl(Range("debut").Value)
debut = Replace(debut, ",", ".")
 
fin = CDbl(Range("fin").Value)
fin = Replace(fin, ",", ".")
 
ActiveSheet.Range("Tableau2").AutoFilter Field:=4, Criteria1:= _
"<=" & fin & "", Operator:=xlAnd, Criteria2:=">=" & debut & ""
 
End Sub

[Docmarti]

@adluma : Il faudrait d'abord vérifier si le clic sur ton bouton déclenche vraiment l'exécution de ton code. Mets la commande STOP au début de ton code.

@parmi : Autofilter n'est pas une fonction VBA. C'est une fonction Excel. Et Excel, contrairement à VBA, ne reconnaît pas le format de date jour/mois/annee. Excel reconnaît le format mois/jour/annee.
Quelle est la langue définie dans le Panneau de configuration sur ton ordi ?

[parmi]

La langue de mon système est Français (Canada)
Le format de date est aaaa-MM-jj
et le code que j'ai mis fonctionne très bien selon les tests que j'ai faits...

Mais on sait très bien que les dates et séparateurs de nombres et/ou listes sont toujours problématiques...

Ici, je dois travailler avec les dates de différents formats, alors je dois m'adapter selon...

EDIT: je travaille sous Office 2013

[Docmarti]

La langue de mon système est Français (Canada)
Le format de date est aaaa-MM-jj
et le code que j'ai mis fonctionne très bien selon les tests que j'ai faits...

Le Canada-français est un des rares pays à utiliser le format de date international (aaaa-MM-jj) dans Windows et à ne pas utiliser le format jj-mm-aaaa ou mm-jj-aaaa.

C'est pour ça que tes tests fonctionnent sans problème. Excel reconnaît le format mm-jj-aaaa ainsi que le format aaaa-MM-jj.

Essaie avec Français-France ou Français-Suisse dans les Paramètres du Panneau de configuration. Ca ne va plus du tout.

[parmi]

Utiliser la valeur numérique des dates sera toujours plus certain...

[ValentinD78310]

Bonjour,

Je rencontre exactement le même problème.
Le filtre détecte bien les dates mais c'est comme s'il manquait le clique sur le bouton OK du filtre chronologique. (Filtre qui fonctionne quand on clique surl e bouton OK manuellement).
Avez-vous trouvé une solution ?

Merci d'avance,

[MarcelG]

Bonsoir,

Si, par hypothèse, une feuille de classeur nommée "lafamille" contient un tableau structuré "T_famille"



(La 1ère colonne contient des dates formatées)

Si l'on souhaite filtrer la colonne "ladate" au 10 décembre 2021

L'enregistreur de macro retourne

Code :

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

1
2
3
4
5
6
Sub Macro2()
 
    ActiveSheet.ListObjects("T_famille").Range.AutoFilter Field:=1, Operator:= _
        xlFilterValues, Criteria2:=Array(1, "12/10/2021")
 
End Sub

Le seul intérêt de ce code, le seul parce que sinon (Qui plus est; dates au format américain), est que le critère de filtre retourné, en 2ème paramètre, est une donnée String caractère (mentionné ente 2 double quottes)

Je préfère donc filtrer les données suivant un critère attaché à la méthode Format, qui renvoie une chaîne de caractères.
Ceci en reprenant le format tel qu'il a été appliqué lors de l'élaboration du tableau structuré.

Soit

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
17
18
Public Sub filtre_date()
 
Dim lecritère As Date
lecritère = CDate("10/12/21")
 
Dim numchamp As Byte
Dim leformat As String
 
With ThisWorkbook.Worksheets("lafamille").ListObjects("T_famille")
       .AutoFilter.ShowAllData
         With .ListColumns("ladate")
               numchamp = .Index
               leformat = .DataBodyRange.NumberFormat
         End With
       .Range.AutoFilter Field:=numchamp, Criteria1:=Format(lecritère, leformat), Operator:=xlFilterValues
End With
 
End Sub

On remarquera que dans le code, le critère de tri est formaté différemment par rapport au tableau structuré.
D'autre part, le formatage de date (américain/européen) est ici shunté.