Sub extraireValeursNumeriques()
'michelxld le 21.04.2004
Dim i As Byte, j As Byte
Dim Cell As Range
Dim Cible As String
Dim Nombre As Double, Total As Double
For Each Cell In Range('A1:A' & Range('A65536').End(xlUp).Row)
Cible = Cell
j = 0
i = 0
'pour que la fonction Val puisse reconnaitre les decimales
Cible = Application.Substitute(Cible, ',', '.')
Cible = Application.Substitute(Cible, ' ', 'x')'pour gerer deux nombres qui se suivent
For i = 1 To Len(Cible)
If IsNumeric(Mid(Cible, i, 1)) Then
j = j + 1
Cell.Offset(0, j) = Val(Mid(Cible, i, Len(Cible) - i + 1))
i = i + Len(Str(Cell.Offset(0, j))) - 1
End If
Next i
Next Cell
End Sub