Boucle prendre derniere valeur Date

[steph544]

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.

 

[Lolote83]

Salut STEPH544,
Voici une réponse sur la feuille TEST qui utilise un filtre élaboré avec comme critère I1:J2
Une colonne supplémentaire MINUTE a été créée.
@+ Lolote83

 

[steph544]

MErci sa marche impeccable, je voudrais rajouter des critéres par exemple prendre les vitesses egale à 2 peux tu me dire comment rajouter celle ligne sur ton code car je ne vois pas merccii !!!!

 

[Lolote83]

Re salut,
On rajoute la condition en colonne K
et dans le code

Sub Filtre()
    Application.ScreenUpdating = False
    xDerLig = Sheets("TEST").Range("A65536").End(xlUp).Row
    With Sheets("TEST")
        Range("TEST!A5:F" & xDerLig).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range("I1:K2"), CopyToRange:=.Range("I5:M5"), Unique:=True
    End With
    Application.ScreenUpdating = True
End Sub

Voir la condition CriteriaRange:=.Range("I1:K2")
@+Lolote83

 

[steph544]

MERCI !!!