Trouver des nombres dans une chaîne de caractères

bonjour

je cherche une fonction qui me permette de compter les nombres dans une chaîne de caractères quelque soit l'ordre.

Cela donnerait

audi300;3

104 peugeot:3

105 peugeot R40;5

merci !

Une fonction personnalisée :

Function NombreDeChiffres(cellule As Range) As Integer
Dim i
NombreDeChiffres = 0
    For i = 1 To Len(cellule.Value)
        If Asc(Mid(cellule.Value, i, 1)) >= 48 And Asc(Mid(cellule.Value, i, 1)) <= 57 Then
            NombreDeChiffres = NombreDeChiffres + 1
        End If
    Next
End Function

Bonjour

Une formule

=SOMMEPROD((CODE(STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))>47)*(CODE(STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))<58))

Cordialement

Bonjour le forum,

=SOMMEPROD((ESTNUM(STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1)*1))*1)

Bravo mbbp et Amadéus pour l’utilisation de LIGNE et INDIRECT ... cela m'en bouche un coin !

Merci beaucoup !