Function ExtractNumber(Txt As String, Optional n As Byte = 1)
'*************************************************************
'Renvoie un nombre contenu dans une chaîne
'job75
'*************************************************************
'- txt : une chaîne contenant un ou plusieurs nombres
'- n : numéro d'ordre du nombre recherché. Si omis, le 1er
'Ex : Combo208 -33,15 romina4 | n = 1 --> 208
' n = 2 --> -33,15
' n = 3 --> 4
Dim i%, T As String, u As String, s
Txt = Replace(Txt, ",", ".")
For i = 1 To Len(Txt)
T = Mid(Txt, i, 1): u = Mid(Txt, i, 2)
If T <> "." And Not (T Like "#" Or u Like "-#") Then Txt = Application.Replace(Txt, i, 1, " ")
Next
s = Split(Application.Trim(Txt))
If n - 1 > UBound(s) Then ExtractNumber = "" Else ExtractNumber = Val(s(n - 1))
End Function