Bonjour,

Il y a un truc incroyable avec la macro ci-dessous, je peux filtrer :

< qu'aujourd'hui
> qu'aujourd'hui
<= qu'aujourd'hui
>= qu'aujourd'hui
<> qu'aujourd'hui
= ne fonctionne pas, impossible de filtrer seulement aujourd'hui

Merci pour votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Bouton_Filtrer_Aujourdhui()
Dim La_Date As Long
Application.ScreenUpdating = False
    La_Date = DateSerial(Year(Date), Month(Date), Day(Date))
    Call Liberer_filtre_TS(Range("TS_Suivi"))
'    Call Filtrer_TS(Range("TS_Suivi"), "Intervention", 1, 11, 0) '1 = Aujourd'hui - 2 = Hier - 3 = Demain
'    Call Filtrer_TS(Range("TS_Suivi"), "Intervention", La_Date)
    ActiveSheet.ListObjects("TS_Suivi").Range.AutoFilter Field:=37, Criteria1:="=" & La_Date
'    ActiveWindow.ScrollRow = 1  'Jusqu'à la ligne
Application.ScreenUpdating = True
End Sub