Bug de création de filtre

Bonjour a tous ,

j'ai écrit mon code pour qu'il tri sur une colonne les dates et quelle applique un filtre pour que ces dates s'affiche.

mais elle n'arrive pas à trier les dates comme il faut, elle fait un mauvais tri des dates.

Quelqu'un aurait-il une piste svp? fichier en pièce jointe

Merci d'avance pour l'aide

Bonjour Daniel,

Comme ça en passant, votre souci vient je pense, du fait que votre tableau structuré ne prend que la ligne 7 à 9

Mettez vous en G7 et faites CTRL+Flêche vers le bas, vous comprendrez tout de suite

Bonjour,

Suggestion :
- Redimensionner le tabeau1, tel que proposé par : Fallout45.

- Corriger le format des dates des primières lignes.

- Tester ce code :

Sub FiltrerDatesAujourdhuiEtDemain()
    Dim ws As Worksheet
    Dim cell As Range
    Dim startDate As Date
    Dim endDate As Date
    Dim LastRow As Long

    ' Spécifiez la feuille de calcul et la plage de dates
    Set ws = ThisWorkbook.Sheets("Planification du préventif ")
    ws.ListObjects("Tableau1").Range.AutoFilter Field:=7  ' Cette ligne supprime le "Filtre chronologique" >> même ligne dans " Bouton Reset"
''    ws.AutoFilterMode = False ' Supprimez tout filtre existant

    ' Calcul de la date d'aujourd'hui et de la semaine prochaine
    startDate = Format(Date, "MM-DD-YYYY")  ' < contourner l'inversion (jour-mois) quand le code écrit le filtre
    endDate = Format(startDate + 7, "MM-DD-YYYY")  ' Ajoutez 7 jour

    ' Appliquer le nouveau filtre pour afficher les dates d'aujourd'hui et de demain
'''    LastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row
'''    ws.Range("G7:G" & LastRow).AutoFilter Field:=1, Criteria1:="<=" & endDate

    ws.ListObjects("Tableau1").Range.AutoFilter Field:=7, Criteria1:= _
        ">=" & startDate, Operator:=xlAnd, Criteria2:="<=" & endDate

    ' Rafraîchissez l'affichage
    ws.Activate
End Sub

Biz