Bonsoir à tous,
Un essai pour extraire les montants.
J'ai remarqué que chaque chaine contenait 4 virgules.
En splitant cette chaine via ces virgules, on obtient toujours un tableau de 5 éléments dans lequel je retiens le 3ème et le 4ème d'où j'extrais la partie entière du 3ème et la partie décimale du 4ème en me basant sur la position du 1er espace rencontré ..... vous me suivez
Mais bon ça reste perfectible
Voir le résultat dans le fichier joint.
Option Explicit
Sub testSplit()
Dim r As Range, x, posEnt As Byte, posDec As Byte
Dim partEnt As Long, partDec As Long
With Sheets("TEST")
.Columns(2).NumberFormatLocal = "# ##0,00"
For Each r In .Range("a1", .Range("a" & Rows.Count).End(xlUp))
x = Split(r.Value, ",")
posEnt = InStr(1, x(2), " ")
partEnt = Mid(x(2), posEnt + 1)
posDec = InStr(1, x(3), " ")
partDec = Left(x(3), posDec - 1)
r(, 2).Value = CDec(partEnt & "," & partDec)
Next
End With
End Sub
J'ai un souci avec la partie décimale, il ignore le 1er digit lorsque c'est un zéro (0), le résultat s'en trouve fausser.
Voir le résultat en B2 notamment.
Si l'un d'entre vous pouvait intervenir et rectifier mon code
klin89