Filtrer une date dans un tableau structuré

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

Cette macro fonctionne à merveille si le formatage des cellules est "jj.mm.aa" :

Code:

1
2
3
4
5
6
7
Sub FiltrerInterventionParDate()
ThisWorkbook.Sheets("Suivi").ListObjects("TS_Suivi").AutoFilter.ShowAllData
    ActiveWindow.ScrollRow = 1  'Jusqu'à la ligne
    ThisWorkbook.Sheets("Suivi").ListObjects("TS_Suivi").DataBodyRange.AutoFilter Field:= _
    ThisWorkbook.Sheets("Suivi").ListObjects("TS_Suivi").ListColumns("Intervention").Index, Criteria1:=Format(Date, "dd.mm.yy")
    ActiveWindow.ScrollRow = 1  'Jusqu'à la ligne
End Sub

Cette macro ne fonctionne pas si le formatage des cellules est "jjj jj.mm.aa" :

Code:

1
2
3
4
5
6
7
Sub FiltrerInterventionParDate() 
ThisWorkbook.Sheets("Suivi").ListObjects("TS_Suivi").AutoFilter.ShowAllData
    ActiveWindow.ScrollRow = 1  'Jusqu'à la ligne
    ThisWorkbook.Sheets("Suivi").ListObjects("TS_Suivi").DataBodyRange.AutoFilter Field:= _
ThisWorkbook.Sheets("Suivi").ListObjects("TS_Suivi").ListColumns("Intervention").Index, Criteria1:=Format(Date, "ddd dd.mm.yy")
    ActiveWindow.ScrollRow = 1  'Jusqu'à la ligne
End Sub

Je fais du sur place

En attendant une solution, j'ai créé une colonne Interventionjjmmaa avec le format jj.mm.aa qui renvoie les dates des cellules de la colonne Intervention formatée jjj jj.mm.aa, c'est tordu mais ça fonctionne.

Code:

1
2
3
4
5
6
7
Sub FiltrerInterventionParDate()
ThisWorkbook.Sheets("Suivi").ListObjects("TS_Suivi").AutoFilter.ShowAllData
    ActiveWindow.ScrollRow = 1  'Jusqu'à la ligne
    ThisWorkbook.Sheets("Suivi").ListObjects("TS_Suivi").DataBodyRange.AutoFilter Field:= _
    ThisWorkbook.Sheets("Suivi").ListObjects("TS_Suivi").ListColumns("Interventionjjmmaa").Index, Criteria1:=Format(Date, "dd.mm.yy")
    ActiveWindow.ScrollRow = 1  'Jusqu'à la ligne
End Sub

Je vous remercie pour votre aide

17/02/2024, 21h27
laurent_ott

Une idée à tester : mettre provisoirement les données au format date reconnu par le filtre, appliquer le filtre, remettre les données au format date désiré.
17/02/2024, 21h43
deedolith

Salut,

D'après l'enregistreur de macro (comme quoi, il peut servir de temps en temps),
il y a une constante à utiliser pour filtrer sur "Aujourd'hui":

Code:

ActiveSheet.ListObjects("TS_Suivi").Range.AutoFilter Field:=1, Criteria1:=xlFilterToday, Operator:=xlFilterDynamic

PS:
Je ne voit pas l'utilité de désactiver l'affichage lorsque l'on applique un filtre,
le temps de réponse est instantanné, a moins que tu aies beaucoup de données (plusieurs milliers).
18/02/2024, 00h42
goninph

Citation:

Envoyé par deedolith

Salut,

D'après l'enregistreur de macro (comme quoi, il peut servir de temps en temps),
il y a une constante à utiliser pour filtrer sur "Aujourd'hui":

Code:

ActiveSheet.ListObjects("TS_Suivi").Range.AutoFilter Field:=1, Criteria1:=xlFilterToday, Operator:=xlFilterDynamic

PS:
Je ne voit pas l'utilité de désactiver l'affichage lorsque l'on applique un filtre,
le temps de réponse est instantanné, a moins que tu aies beaucoup de données (plusieurs milliers).

Ok, mais je veux filtrer sur n'importe quelle date

Citation:

Envoyé par laurent_ott

Une idée à tester : mettre provisoirement les données au format date reconnu par le filtre, appliquer le filtre, remettre les données au format date désiré.

Bonne idée, mais c'est tout de même incroyable de devoir faire ce micmac pour un simple filtre ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    If Not Intersect(Target, Range("Cell_Filtrer_Intervention")) Is Nothing And Target.Count = 1 Then
        Cancel = True 'Empêche l'édition de la cellule active (F2) lors de Worksheet_BeforeDoubleClick Cancel = True permet de resortir du mode édition
        Target = USF_Calendar.ShowX(Target)
        If Target <> "Filtrer" Then
            Call Liberer_filtre_TS(Tableau)
            Sheets("suivi").Range("TS_Suivi[Intervention]").NumberFormat = "dd/mm/yy"
            Call Filtrer_TS(Tableau, "Intervention", Format(Range("Cell_Filtrer_Intervention"), "dd.mm.yy"))
            Sheets("suivi").Range("TS_Suivi[Intervention]").NumberFormat = "ddd dd/mm/yy"
            ActiveWindow.ScrollRow = 1  'Jusqu'à la ligne
            ActiveSheet.Range("Cell_Filtrer_Intervention") = "Filtrer" 'Inscrire le texte dans la cellule
        End If
    End If

18/02/2024, 02h24
deedolith

Toujours obtenu avec l'enrigistreur de macro,
Il apparait qu'il faut utiliser l'argument Criteria2 et passer par un tableau:

Code:

Range.AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, "1/4/2024")

En conclusion, même si l'enregistreur de macro n'est pas terrible (le code généré est loin d'être exploitable en l'état), n'hésite pas à faire des expérimentation avec.

Merci à tous

ça fonctionne à merveille

Le problème est que le formatage vba ajoute automatiquement un point après l'abréviation du jour, il est nécessaire de formater les cellules avec 3 points => jjj. jj.mm.aa

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim Tableau As Range
    Set Tableau = Range("TS_Suivi")
    If Not Intersect(Target, Range("Cell_Filtrer_Intervention")) Is Nothing And Target.Count = 1 Then
        Cancel = True 'Empêche l'édition de la cellule active (F2) lors de Worksheet_BeforeDoubleClick Cancel = True permet de resortir du mode édition
        Target = USF_Calendar.ShowX(Target)
        If Target <> "Filtrer" Then 'Evite de lancer la macro si aucune date n'est sélectionnée via le calendrier ou au clique sur le bouton Annuler
            Call Liberer_filtre_TS(Tableau)
            Call Filtrer_TS(Tableau, "Intervention", Format(Target, "ddd dd.mm.yy")) 'Formater les cellules avec 3 points jjj. jj.mm.aa
            ActiveWindow.ScrollRow = 1  'Faire défiler la fenêtre de sorte que la première ligne du tableau soit visible
            ActiveSheet.Range("Cell_Filtrer_Intervention") = "Filtrer" 'Inscrire le texte dans la cellule
        End If
    End If

Voir 40 message(s) de cette discussion en une page