Stxt et estnum et remonter informations

Bonjour,

J'ai quatre cellules avec les informations suivantes :

J'essaie d'extraire le 12 et le 6; avec la formule suivante :

{=STXT(A3;EQUIV(VRAI;ESTNUM(STXT(A3;LIGNE($1:$255);2)*1);0)+1;2)}

Mais ça n'a pas l'air de fonctionner. Quelqu'un peut-il m'aider ?

Bonjour,

Si VBA est autorisé :

Function ExtQte(ByVal Chaine As String) As Variant

Dim I As Integer
Dim TabChaine As Variant
Dim ChaineTrouvee As String

    ExtQte = ""
    If InStr(1, Chaine, " ", vbTextCompare) = 0 Then Exit Function

    TabChaine = Split(Chaine, " ")
    ChaineTrouvee = TabChaine(UBound(TabChaine))
    For I = 1 To Len(ChaineTrouvee)
        Select Case Mid(ChaineTrouvee, I, 1)
               Case 0 To 9
                   ExtQte = ExtQte & Mid(ChaineTrouvee, I, 1)
               Case Else
                   Exit Function
        End Select
    Next I

End Function