XL 2019 Extraction avant dernière date, avec critère de nom

[Tomtom8231]

Boniour, j'ai une liste de dates en colonne à et une listes de noms en colonne b. Je voudrais extraire l'avant dernière date our chaque nom, dans un autre onglet. Par exemple si thomas apparaît le 12/06 et le 15/06 en dernier, le retour de la fonction serait le 12/06. Par avance je vous remercie pour votre aide Thomas

 

[Lolote83]

Bonjour TOMTOM8231,
Sans fichier, j'ai donc imaginé celui-ci.
Attention, pour que cela fonctionne correctement, il faut que le tableau initial soit trié :
1) Par Nom
2) Par date

La formule finale est en jaune (ligne 19) en fonction des noms (ligne 5)
@+ Lolote83

 

[Hasco]

Bonjour,

Vous êtes inscrit depuis le 23 juin, sans doute avez-vous constaté que les demandes sans fichier exemple anonymisé et sans données confidentielles, mettaient beaucoup plus de temps à trouver leur réponse, quand elles en trouvent une.

Cordialement

 

[Tomtom8231]

Bonjour,

Désolé pour ma réponse tardive, j'ai créé le compte pour poser cette question et il y a eu un temps de validation, je n'y ai accès que depuis hier.

Merci pour vos réponses, l'élaboration de l'exemple et de la fonction.
Malheureusement mes données ne sont pas forcément rangées par dates et jamais par noms (c'est une succession d'opérations qui s'enchaînent au cours du temps).

Entre temps on m'a proposé une fonction hyper pratique aussi et qui marche bien sur mon exemple, donc je la partage ici :

Function avantDerniereDate(Lookupvalue As String, LookupRange As Range)
Dim i As Long
Dim i0 As Long
Dim j As Long


For i = LookupRange.Columns(2).Cells.Count To 1 Step -1
If Lookupvalue = LookupRange.Cells(i, 2) Then
i0 = i
For j = i0 - 1 To 1 Step -1
If Lookupvalue = LookupRange.Cells(j, 2) Then
avantDerniereDate = LookupRange.Cells(j, 1)
Exit Function
End If
Next j
End If
Next i

End Function

Encore merci pour votre aide,
Thomas