transformer du texte en numérique

[philppe27]

Bonjour,

J'ai beaucoup de mal à transformer des données que j'importe d'un tableau sur internet (voir fichier ci-joint). Par exemple, j'importe -1*018,06*EUR et je veux transformer cette valeur en principe alphanumérique en la valeur numérique -1018,06. J'utilse les fonctions de remplacement de texte substitue pour supprimer les espaces et EUR et ensuite cnum mais rien n'y fait j'obtiens dans le meilleur des cas -1 018,06 avec un espace de séparateur de milliers qui n'en est pas vraiment un tandis que le résultat obtenu est toujours alhanumérique.

Merci d'avance pour votre aide,

Cordialement.

 

[Monique]

Re : transformer du texte en numérique

Bonjour,

à essayer :
=SUBSTITUE(SUBSTITUE(B5;CAR(160);"");"EUR";"")*1

Sans les deux ""
=SUBSTITUE(SUBSTITUE(B5;CAR(160)😉;"EUR"😉*1

 

[CBernardT]

Re : transformer du texte en numérique

Bonsoir Philppe27 et Chère Monique,

Une solution VBA pour garder les chiffres de la chaîne de caractères.

Sub GarderChiffres()
Dim C As Range, i As Byte, Nombre As String
Application.ScreenUpdating = False
With Sheets("Feuil1")
For Each C In .Range("A1:A10") 'Plage de travail
If Len(C) > 0 Then
For i = 1 To Len(C)
If Mid(C, i, 1) = "." Then Nombre = Nombre & ","
If IsNumeric(Mid(C, i, 1)) Or Mid(C, i, 1) = "," Then Nombre = Nombre & Mid(C, i, 1)
Next i
C = CDbl(Nombre)
Nombre = ""
End If
Next C
End With
End Sub


La plage de travail est à adapter.

Cordialement

Bernard

 

[philppe27]

Re : transformer du texte en numérique

Merci pour les formules mais apparemment elles ne fonctionnent pas dans mon fichier. En effet, j'obtiens #NOM?.

 

[Monique]

Re : transformer du texte en numérique

Re,

Si tu as la version anglaise, c'est Substitute (je crois...)

Edit
En angliche
=SUBSTITUTE(SUBSTITUTE(B5,CHAR(160),),"EUR",)*1

 

[philppe27]

Re : transformer du texte en numérique

Je n'y arrive pas avec substitute, par contre le programme de Bernard fonctionne très bien en y rajoutant le traitement du signe -.
Merci beaucoup pour vos réponses.

 

[Monique]

Re : transformer du texte en numérique

Re,

La formule dans ton fichier.

 

[philppe27]

Re : transformer du texte en numérique

oui merci ça marche.