Discussion :

[holevilain]

Bonjour à tous,

J'ai lu cette discussion et j'ai moi aussi le même problème :

Je déclare une variable jourCtrl au format date :

DIM jourCtrl as date (exemple aujourd'hui "01/11/2019")

Puis dans le programme, j'ai un tableau tout simple à 7 colonnes. Les deux colonnes qui portent des dates sont F & G.

J'utilise donc le code "standard" suivant (ce code est exactement le même que celui généré avec le générateur de macro...) :

Code :

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

1
2
3
4
5
Range("A1:G1").select
ActiveSheet.Range("A1:G1000").AutoFilter Field:=6, Critérial1:= _
'             "<=" & jourCtrl, Operator:=xlAnd
ActiveSheet.Range("A1:G1000").AutoFilter Field:=7, Criterial2:= _
'             ">" & jourCtrl, Operato:=xlAnd

En exécutant ce bout de code, RIEN A FAIRE, le code renvois un tableau vide ! (il y a toutefois bien des dates qui répondent aux deux critères…).

Je suis ravi que la solution du "STOP" satisfasse 3DPas mais pour moi elle ne fonctionne pas - LOL ! J'ai un grand nombre de contrôles du même type à faire et je ne peux interrompre à chaque fois la macro avec un STOP...

De plus, je suis persuadé qu'il existe une astuce beaucoup plus simple que le code transmis par SOGEDIC avec LONG et DOUBLE.

Bref, je suis bien ennuyé et j'aimerai savoir où je fais une erreur dans mon code ???

Merci à vous et à vous lire...

Bien amicalement,

Holevilain.

[3DPas]

Bonjour,

La solution n'est pas le "stop", si vous voulez pouvoir filtrer des dates dans un tableau vous êtes obligé de mettre vos colonnes en formatage standard "General".

1. Passage de la colonne en standard.

Code :

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

.Columns(Tbl.ListColumns("DateEntree").Index).NumberFormat = "General"

2. Filtrer en prenant soin de convertir votre date en double:

Code :

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

1
2
3
4
5
6
7
 
Dim DateDeb As Double
 
DateDeb = CDbl(CDate(strDateDebut)) 'Actuellement stocké sous le format jj.mm.yyyy hh:mm:ss <--- strDateDebut est la date à filtrer
 
'filtrage sur la colonne "DateEntree" puis ensuite la colonne "DateSortie"
.AutoFilter Tbl.ListColumns("DateEntree").Index, ">=" & DateDeb

3. Faites ce que vous voulez avec les données filtrées.

4. Effacer le filtre et remettre le formatage de la colonne :

Code :

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

1
2
3
4
5
6
 
'suppression du filtrage
.AutoFilter
 
'Remettre le formatage de la colonne comme avant :
.Columns(Tbl.ListColumns("DateSortie").Index).NumberFormat = "dd.mm.yyyy hh:mm:ss"

Avant, j'avais moi aussi un résultat de filtrage vide, maintenant ça fonctionne. Je vous prie d'essayé la solution de Theze car elle fonctionne super bien.

Suivez la démarche de Theze dans l'ordre car ça doit fonctionner...

Merci de nous tenir informé quand à la résolution de votre problème afin de pouvoir mieux vous aider.

Cordialement,

3DPas

[holevilain]

Bonjour à tous,

Je m'en veux d'avoir douté car vous aviez raison !

Pour filtrer un tableau sur des dates, il faut effectivement que les colonnes soit au format GENERAL et que la variable date soit au format DOUBLE (j'imaginais que l'on pouvais faire plus simple, mais c'est bien le protocole...). Une fois de plus, un grand merci à 3DPass, Theze et tous les autres. Vos réponses sont toujours très réactives, précises, concises et JUSTE !

A bientôt car "je vais revenir" (comme disais un certain acteur) : j'ai besoin d'un autre coup de pouce sur un tableau croisé dynamique...

Bien à vous.

Holevilain.

[goninph]

Bonjour,

Chez moi tout fonctionne sans reformater les colonnes

Encore merci pour m'avoir permis de pouvoir filtrer via les dates avec la variante Double et CDbl

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
Sub Planning_Pose_Filtrer_En_Cours()
Dim Date_Cherchee As Double
Dim Tableau As Range
Dim f As Variant
Application.ScreenUpdating = False
    Set f = Sheets("Data_Planning")
    Set Tableau = f.Range("TS_Data_Planning")
        Call Liberer_filtre_TS(Sheets("Data_Planning").Range("TS_Data_Planning"))
        Date_Cherchee = CDbl(CDate((Date - Weekday(Date, vbMonday) + 1) - 7))
        Call Filtrer_TS(Tableau, "Date_Début", ">=" & Date_Cherchee)
        f.Range("Cell_Date_Planning") = Date_Cherchee
        ActiveWindow.ScrollRow = 10  'Jusqu'à la ligne
        ActiveWindow.ScrollColumn = 10  'Jusqu'à la colonne
Application.ScreenUpdating = True
End Sub

Bonjour,

La solution n'est pas le "stop", si vous voulez pouvoir filtrer des dates dans un tableau vous êtes obligé de mettre vos colonnes en formatage standard "General".

1. Passage de la colonne en standard.

Code :

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

.Columns(Tbl.ListColumns("DateEntree").Index).NumberFormat = "General"

2. Filtrer en prenant soin de convertir votre date en double:

Code :

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

1
2
3
4
5
6
7
 
Dim DateDeb As Double
 
DateDeb = CDbl(CDate(strDateDebut)) 'Actuellement stocké sous le format jj.mm.yyyy hh:mm:ss <--- strDateDebut est la date à filtrer
 
'filtrage sur la colonne "DateEntree" puis ensuite la colonne "DateSortie"
.AutoFilter Tbl.ListColumns("DateEntree").Index, ">=" & DateDeb

3. Faites ce que vous voulez avec les données filtrées.

4. Effacer le filtre et remettre le formatage de la colonne :

Code :

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

1
2
3
4
5
6
 
'suppression du filtrage
.AutoFilter
 
'Remettre le formatage de la colonne comme avant :
.Columns(Tbl.ListColumns("DateSortie").Index).NumberFormat = "dd.mm.yyyy hh:mm:ss"

Avant, j'avais moi aussi un résultat de filtrage vide, maintenant ça fonctionne. Je vous prie d'essayé la solution de Theze car elle fonctionne super bien.

Suivez la démarche de Theze dans l'ordre car ça doit fonctionner...

Merci de nous tenir informé quand à la résolution de votre problème afin de pouvoir mieux vous aider.

Cordialement,

3DPas