Extraction date ancienne et recente

Bonjour

Par des fonctions personnalisées

Function premieredate(plage As Range)
tablo = Split(plage, " ")
butoir = CDate("01/01/2025")
For n = 0 To UBound(tablo)
If IsDate(tablo(n)) Then If CDate(tablo(n)) < butoir Then butoir = CDate(tablo(n))
Next
premieredate = butoir
End Function

Function dernieredate(plage As Range)
tablo = Split(plage, " ")
butoir = CDate("01/01/2000")
For n = 0 To UBound(tablo)
If IsDate(tablo(n)) Then If CDate(tablo(n)) > butoir Then butoir = CDate(tablo(n))
Next
dernieredate = butoir
End Function

A coller dans un module (ALT+F11 pour ouvrie editeur VBA - Insertion - module - Copier coller les macro)

Syntaxe à utiliser dans la feuille : premieredate(A1) ou dernieredate(A1)

Cdlmnt
Via

Je regarde ça et te fais un retour dès que possible

Re,

Pour pouvoir gérer une seule date en dernière date il faut remplacer la macro que je t'avais fournie par celle là

Function dernieredate(plage As Range)
tablo = Split(plage, " ")
butoir = CDate("01/01/2000")
datemini = CDate("01/01/2025")
For n = 0 To UBound(tablo)
If IsDate(tablo(n)) Then
If CDate(tablo(n)) < datemini Then datemini = CDate(tablo(n))
If CDate(tablo(n)) > butoir Then butoir = CDate(tablo(n))
End If
Next
If butoir = datemini Then butoir = butoir + 1
dernieredate = butoir
End Function

Par contre par formule je ne pense pas que ce soit possible du moins avec une seule formule sinon il faudrait décomposer la chaine sur plusieurs colonnes autant de fois qu'il y a des dates puis dans une autre colonne comparer ces résultat, c'est fastidieux et bien moins ergonomique que la fonction personnalisée ci-dessus