Discussion :

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

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

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).

[goninph]

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 :

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

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

[deedolith]

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

Code :

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

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.

[goninph]

Bonjour,

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

Code :

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

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 :

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

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 :

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

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

[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é.

[goninph]

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 :

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

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

[goninph]

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 :

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

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