transformation texte en numérique

[Hugues]

Bonjour Le Forum,

Je n'arrive pas à transformer des données qui sont au format texte en numérique autrement qu'en le faisant manuellement, à savoir supprimer l'espace en les centaines et les millers et remplacer la virgule par un point.

Ci joint un exemple de fichier.

Merci par avance pour votre aide,

Hugues

 

[hoerwind]

Re : transformation texte en numérique

Bonjour,

Essaie cette formule :
=SI(D3="";"";SUBSTITUE(D3;CAR(160);"")*1)

Si ton séparateur décimal est le point, celle-ci :
=SI(D3="";"";SUBSTITUE(SUBSTITUE(D3;CAR(160);"");",";".")*1)

 

[Victor21]

Re : transformation texte en numérique

Bonjour, Hugues.

Sélectionnez un espace dans un des nombres.
Edition, copier.
Sélectionnez toute la zone (C3:J13)
Ctrl+H la boite de dialogue Rechercher et remplacer s'affiche.
Placez le curseur dans Rechercher, et Ctrl+V (coller)
Placez le cursur dans remplacer par, et effacez ce qui s'y trouve éventuellement.
Cliquez sur Remplacer tout. ---> message 41 remplacemnts
Pour remplacer les , par des .
Dans Rechercher mettez une virgule (sans rien d'autre)
Dans Remplacer mettes un point (sans rien d'autre) et cliquez sur Remplacer tout. ---> message 41 remplacemnts
Fermez la boite de dialogue.
Les montants qui étaient alignés à gauche, indiquant que c'est du texte, sont maintenant alignés à droite des cellules (nombres)
Vous pouvez modifier leur format pour l'homogénéiser (séparation des milliers, nb de décimales)

 

[Hugues]

Re : transformation texte en numérique

Bonjour,

Merci à vous mais auriez vous une solution que je pourrais écrire en VBA afin de ne pas avoir à traiter manuellement ce changement.

Hugues

 

[JCGL]

Re : transformation texte en numérique

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub Convertir()
    With Range("C3:J" & Range("A65536").End(xlUp).Row)
        .Replace What:=" ", Replacement:="", LookAt:=xlPart
        .Replace What:=",", Replacement:=".", LookAt:=xlPart
        .NumberFormat = "#,##0.00"
    End With
    Range("C1").Select
End Sub

A+ à tous

 

[Efgé]

Re : transformation texte en numérique

Bonjour à tous
Une proposition, surtout pour saluer hoerwind et Jc 😉

Option Explicit
Sub Txt_Num()
Dim C As Range
For Each C In Sheets("essai_bal_ancienne_édition").Range(Cells(3, 3), Cells(Rows.Count, 1).End(xlUp).Offset(0, 9))
    If C.Value <> "" Then
        C.Value = CDec(Format(C.Value, "#,##0.00"))
    End If
Next C
End Sub

Cordialement

 

[Victor21]

Re : transformation texte en numérique

Re,

Bonjour,

Merci à vous mais auriez vous une solution que je pourrais écrire en VBA afin de ne pas avoir à traiter manuellement ce changement.

Hugues

Vous auriez effectué les actions décrites ci-dessus après avoir activé l'enregistreur de macros (Outils, macros, nouvelle macro), vous auriez obtenu le code - certes à nettoyer - par vous même.

 

[Hugues]

Re : transformation texte en numérique

Merci JCGL
J'ai recopié le code.
Il transforme bien les virgules en point.
Mais j'ai l'impression qu'il n'arrive pas à localiser les espaces entres les centaines et les milliers.

Ci joint le fichier corrigé.

Merci pour l'aide,

Hugues

 

[JCGL]

Re : transformation texte en numérique

Bonjour à tous,
Salut FG 🙂,

Fonctionne parfaitement chez moi

A+ à tous

 

[Hugues]

Re : transformation texte en numérique

Merci pour l'aide précieuse
Hugues