Recherche Max critère cellule de gauche

Bonjour

Quelque chose comme ça ?
http://www.cjoint.com/c/EIjj22nBXs4

Cordialement

Bonjour,

Une solution avec une fonction personnelle
https://www.cjoint.com/c/EIjkaiGjaqt

A+

Merci pour vos réponses c'est la réponse qu'il me fallait

Par contre je ne comprends pas comment fonctionne la formule "DateLaPlusRecente"

De plus pour corser la chose j'ai oublié de vous dire qu'il y a une cellule supplémentaire entre chaque "chaine d'info"

-> A 01/01/2010 35 B 01/01/2014 35 A 01/01/2013 35

la réponse recherchée est 01/01/2013 (plus haute valeur du critère A)

Merci d'avance si vous pouvez m'apporter votre aide

Bonjour,

J'ai créé une fonction personnelle nommée "DateLaPlusRecente" .
Pour visualiser le code, il faut ouvrir l'éditeur en appuyant sur alt + F11,
puis ouvrir l'explorateur de projets en appuyant sur ctrl + R.
La fonction se trouve dans le Module1 (sous Modules).

Voici le code commenté :

Function DateLaPlusRecente(Plage As Range, Critere As String) As Date
Dim Cel As Range
Dim DateT As Date
    'On balaye chaque cellule de la plage
    For Each Cel In Plage
        'Si la valeur de la cellule est égale au critère, alors
        If Cel = Critere Then
            'Si la cellule décalée de 1 colonne contient une date plus récente que celle mémorisée (DateT)
            'Alors, on mémorise cette nouvelle date.
            If Cel.Offset(0, 1) > DateT Then DateT = Cel.Offset(0, 1)
        End If
    Next Cel
    'La fonction renvoie la date la plus récente pour un critère donné
    DateLaPlusRecente = DateT
End Function

La cellule supplémentaire entre chaque "chaine d'info" n'a pas d'incidence puisque la cellule qui contient la date reste adjacente à celle qui contient le critère.

A+