Extraire la date la plus récente et un texte

Bonjour

Savez-vous s'il est possible d'extraire la date la plus récente d'un texte puis de l'afficher dans une cellule mais également de récuperer le texte qui se trouve à sa droite ?

Voici un exemple:

J'aimerais par exemple mettre la date 01/04/2020 dans la case date et "Appeler Jean" dans la case prochaine étape.

Auriez-vous une idée de la formule que je dois utiliser ?

Merci pour votre aide !!

Bonjour,

pourquoi mettre une photo plutôt que le classeur ?

C'est vrai qu'avec le classeur c'est plus facile

Bonjour,

solution via une fonction personnalisée

Function splitdate(f)
    Dim reponse
    t = f
    t = Replace(t, vbNewLine, " ")
    t = Replace(t, Chr$(13), " ")
    t = Replace(t, Chr$(10), " ")
    s = Split(t & " ", " ")
    indexdate = -1
    For i = LBound(s) To UBound(s)
        If IsDate(s(i)) Or i = UBound(s) Then
            If indexdate >= 0 Then
                dateconvertie = CDbl(DateValue(s(indexdate)))
                If dateconvertie > datemax Then
                    datemax = dateconvertie
                    reponse = Format(dateconvertie, "dd/mm/yy")
                    k = k + 1
                    texte = ""
                    For j = indexdate + 1 To i - 1
                        texte = texte & " " & s(j)
                    Next j
                    reponse = reponse & texte
                End If
                End If
                indexdate = i
            End If
        Next i
        splitdate = reponse
End Function

Merci pour ta rapide réponse C'est clair et précis !!!

Sans abuser de ta gentillesse, penses-tu qu'il serait possible de faire la même chose avec une formule ? Du moins quelles seraient les fonctions à utiliser dans ce cas ?

Merci pour ton aide

bonjour,

cela est surement possible en passant par des cellules intermédiaires.

les fonctions qu'il faudrait utiliser sont, je pense, les fonctions de manipulations de chaines de caractères (stxt,gauche,droite,trouve,cherche), la fonction dateval() et les fonctions (si et si.erreur) et peut-être encore d'autres

Edit : une jolie réponse de la part de Tulipe_4, grand magicien des formules matricielles que je salue , vient infirmer ce que je viens de dire.

bonjour

puisque tu aimes

cordialement

Vous êtes magiciens les mecs !!!

@Tulipe, Merci pour cette formule !!! Même si les formules matricielles restent encore du chinois pour moi, c'est top

Merci également H2so4 pour cette macro VBA et ta rapidité de réponse, je m'en servirai peut être plus tard

Bonne journée

Bonjour à tous,

Juste pour le plaisir de participer et de proposer quelque chose de différent, voici une solution très simple qui fonctionne si 2 conditions sont réunies :

• la date la plus récente est la première (comme sur les exemples)
• avoir installé le pack de fonctions du site (pour pouvoir utiliser REGEX_EXTRACT)

La formule est alors :

=REGEX_EXTRACT(B2;"\d{2}/\d{2}/\d{4}")

Et pour le texte à droite :

=REGEX_EXTRACT(B2;C2&"[\s-]*(.*)")

Cordialement,

Merci à toi pour cette deuxième solution C'est parfait !!!

Bonjour à tous,

Petit problème basé sur la formule de @tulipe => Si il ne trouve pas la date dans le texte il me renvoie une date des année 1900, savez vous pourquoi ?

Merci pour votre aide

bonjour

ça peux

la parade :

mets la cell au format personnalisé : jj/mm/aaaa;jj/mm/aaaa;""

parce que 01/01/1900 c'est 0

Rapide, efficace, au top merci Tulipe !!!!