Bonjour
place ce code dans un module :
Sub test()
TexteAtraiter = ActiveCell.Value
NombreTxt = ""
For i = 1 To Len(TexteAtraiter)
If IsNumeric(Mid$(TexteAtraiter, i, 1)) Then
NombreTxt = NombreTxt & Mid$(TexteAtraiter, i, 1)
End If
Next i
Nombre = Val(NombreTxt)
MsgBox ("Nombre= " & Nombre)
End Sub
Sélectionne une cellule contenant du texte et un nombre, appuie sur Alt + F8 et lance la procédure "Test". Les chiffres seront extraits.
Attention : si tu as "aa123bbb4dd5ee" tu obtiendras le nombre "12345"
à plus