Comment extraire un chiffre dans une cellule

Bonjour
si vous n'avez vraiment que ces deux configurations, c'est à dire:
__soit le texte commence par les deux chiffres
__soit le chiffre dans let texte est précédé par underscore
cette formule devrait faire l'affaire

=SI(ESTERREUR(GAUCHE(A2;1)*1);STXT(A2;TROUVE("_";A2;1)+1;2)*1;GAUCHE(A2;2)*1)

crdlmnt

Bonjour

Possible avec une fonction personnalisée

ALT F11 pour ouvrir l'éditeur VBA
Onglet Insertion Module

Copier et coller cette fonction :

Function chiffres(chaine)
chif = ""
For n = 1 To Len(chaine)
c = Mid(chaine, n, 1)
If c >= "0" And c <= "9" And Len(chif) < 2 Then chif = chif & c
Next
chiffres = Val(chif)
End Function

Fermer l'éditeur

S'utilise après comme n'importe quelle fonction
= chiffres (A1) renverra 40

Cdlmnt

Salut,

J'ai finalement trouvé la solution:

GAUCHE(C1;CHERCHE("Mb";C1)+1)

Merci