Masquer les cellules égales à 0

Bonjour à tous,

Après plusieurs recherches sur le forum, je n'ai pas trouvé de solution à mon problème, j'espère que vous pourrez m'aider

En faite, j'ai un tableau avec deux colonnes, l'une comportant des dates et la deuxième avec des informations numériques. J'aimerai faire une macro me permettant de filtrer le tableau à partir de la date d'aujourd'hui et jusqu'à que les cellules suivant cette date ne soient pas égales à 0.

Voici mon code actuel sous 2007:

Sub filtre_ajd()

Application.ScreenUpdating = False
Sheets("Feuille").Select
Dim date_du_jour As Date

    With ActiveSheet
       If .FilterMode = True Then .ShowAllData
       [date_du_jour] = Format(Now, "dd/mm/yyyy")

    Sheets("Feuille").Select
     ActiveSheet.Range("sordo").AutoFilter Field:=1, Operator:= _
     xlFilterValues, Criteria1:=">=" & date_du_jour  

  End With

 Dim i As Long

Range("B3:C368").RowHeight = 15
    For i = 368 To date_du_jour Step -1
            If Cells(i, 2) = 0 Then Rows(i).RowHeight = 0
        Next i

End Sub

Je vous joins également le fichier pour que ce soit plus simple à comprendre

Merci par avance pour votre aide!

Bonjour,

Une proposition avec un filtre avancé

A+

Merci bien, cela marche parfaitement

Je ne connaissais pas ce type de filtre, est ce que tu peux m'expliquer comment tu as fais s'il te plait ?

Bien que ce type de filtrage soit moins utilisé que le filtre automatique, il n'en est pas moins intéressant dans certains cas.

Pour effectuer la même opération que la macro,

Clique sur Données > Trier et filtrer / Avancé

Tu ouvres ainsi la fenêtre du filtre.

Il te reste à sélectionner la plage et la zone de critères et le tour est joué.

A+