Boucle Prendre valeur

Bonjour la communauté

voila j'expose mon petitprobleme ^^. Grace à vous j'ai pu avoir un code qui permet de filtrer un tableau avec ls conditions qui nous interesse. Cependant pour avoir des valeurs exactes sur le tableau, il faut prendre uniquement la derniere valeur de la condition correspondant à la dernier date/ heure sur le tableau. LE code filter très bien et prend les valeurs quil faut à la condition enoncé. JE voudrais le filtrer en plus afin d'avoir la derniere valeur de la date correspondant.

Pour faire plus simple voici le fichier en piece jointe ou tout est expliqué.

Merci de votre aide.

Bonjour,

A tester le code suivant :

Sub filtrer()
    derLig = Range("A" & Rows.Count).End(xlUp).Row
    For lig = 2 To derLig
        If Cells(lig, "E") = 1 And Cells(lig + 1, "E") = 0 Then
        Else
            Rows(lig).EntireRow.Hidden = True
        End If
    Next lig
End Sub

Bonjour à tous

Variante 'Extraction'

Bye !

merci GMB cest nickel pourtant cela ne marche pas avec ces valeurs.

Jai mis un fichier joint merci beaucoup !!!!!

desoler tromper de fichier MERCI !!!

Nouvelle version.

Bye !

Merci GMB c'est parfait!!

Bonne journée à vous tous