deca2 | Bon, j'ai fini par toruver.
Je poste ici le code que j'ai adapté et qui peut être utile à d'autres.
Code :
- Sub extraireValeursNumeriques_DansChaine()
- Dim i As Byte, Nb As Byte
- Dim Cible As String, Resultat As String
- Dim Resul As Double
- Dim Nombre As Double
- Dim lig As Long
- Cells(1, 2) = " " & Cells(1, 5) & Chr(10) & " " & Cells(2, 5) & Chr(10) & " " & Cells(3, 5)
- For lig = 1 To 3
- Cible = Cells(lig, 2)
- 'Pour que fonction Val puisse reconnaitre les décimales: Remplacement des
- 'virgules par des points
- Cible = Replace(Cible, ",", "." )
- 'Pour gérer deux nombres qui se suivent: remplacement des espaces
- 'par un caractère Alpha
- Cible = Replace(Cible, Chr(10), "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
- Resul = Resul + Nombre
- i = i + Len(Str(Nombre)) - 1
- End If
- Next
- Next lig
- Cells(5, 1) = Resul
- MsgBox "Il y a " & Nb & " valeurs numériques dans la cellule " & vbLf & Resultat
- End Sub
|
Re bon dimanche à tous.
|