transformation texte en numérique

  • Initiateur de la discussion Initiateur de la discussion Hugues
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Hugues

XLDnaute Impliqué
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
 

Pièces jointes

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)
 
Dernière édition:
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)
 
Re : transformation texte en numérique

Bonjour à tous,

Peux-tu essayer avec :

Code:
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
 
Re : transformation texte en numérique

Bonjour à tous
Une proposition, surtout pour saluer hoerwind et Jc 😉
VB:
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
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
12
Affichages
429
Retour