1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Sub extraireValeursNumeriquesCellule()
Dim i As Byte, Nb As Byte
Dim Cible As String, Resultat As String
Dim Nombre As Double
Cible = Range("A1")
'pour que fonction Val puisse reconnaitre decimales
Cible = Application.Substitute(Cible, ",", ".")
' pour gerer deux nombres qui se suivent
Cible = Application.Substitute(Cible, " ", "x")
For i = 1 To Len(Cible)
If IsNumeric(Mid(Cible, i, 1)) Then
Nombre = Val(Mid(Cible, i, Len(Cible) - i + 1))
Nb = Nb + 1
Resultat = Resultat & Nombre & vbLf
i = i + Len(Str(Nombre)) - 1
End If
Next
MsgBox "Il y a " & Nb & _
" valeurs numeriques dans la cellule : " & vbLf & Resultat
End Sub |
Partager