OVH Cloud OVH Cloud

Colonne texte en nombre

13 réponses
Avatar
DBA
Bonjour,
J'ai un fichier texte que j'ai importé en Excel; malheureusement, les
nombres sont considérés comme des textes, si bien que je ne peux pas faire
des calculs sur ces colonnes. Quelqu'un peut-il me dire comment transformer
rapidement les colonnes textes en nombre?
Merci d'avance

3 réponses

1 2
Avatar
-----Message d'origine-----
Bonjour,
J'ai un fichier texte que j'ai importé en Excel;
malheureusement, les

nombres sont considérés comme des textes, si bien que je
ne peux pas faire

des calculs sur ces colonnes. Quelqu'un peut-il me dire
comment transformer

rapidement les colonnes textes en nombre?
Merci d'avance


.
Salut,
Il faut que tu sélestionne la colonne où les chiffres

apparaissent et que tu remplaces le point par une virgule
et ensuite tu fais format cellule et tu sélectionnes
nombre.

Avatar
DBA
Ca marche parfaitement.
MERCI A TOUS (Ricky, Dédé, ...)
A+

"DBA" a écrit dans le message de news:

Bonjour,
J'ai un fichier texte que j'ai importé en Excel; malheureusement, les
nombres sont considérés comme des textes, si bien que je ne peux pas faire
des calculs sur ces colonnes. Quelqu'un peut-il me dire comment
transformer

rapidement les colonnes textes en nombre?
Merci d'avance




Avatar
gb
Bonjour.

Voici peut-être une solution:

Sub SubstituerDansLesCellulesNumeriquesSeulement()

SéparateurDeMilliersAsupprimer = "."
SéparateurDecimalARemplacer = ","
RemplacerPar = Format(0, ".")

ActiveSheet.UsedRange
Set SomeRange = ActiveSheet.UsedRange

For Each cellule In SomeRange
a = Trim(cellule.Value)
If Not IsEmpty(a) Then

Modifier = False
If Not IsError(cellule.Value) Then
While InStr(a, SéparateurDeMilliersAsupprimer) > 0
a = Mid(a, 1, InStr(a, SéparateurDeMilliersAsupprimer) - 1) & Mid(a,
InStr(a, SéparateurDeMilliersAsupprimer) + 1)
Modifier = True
Wend

While InStr(a, SéparateurDecimalARemplacer) > 0
a = Mid(a, 1, InStr(a, SéparateurDecimalARemplacer) - 1) & RemplacerPar
& Mid(a, InStr(a, SéparateurDecimalARemplacer) + 1)
Modifier = True
Wend
End If
If IsNumeric(a) Then
If Modifier = True Then
cellule.Value = a
End If
End If

End If

Next

End Sub

gb
"DBA" a écrit:
Dédé,
Supposons que tu reçoives un fichier texte d'un pays où le séparateur de
milliers est le point. Que fais tu pour traiter le fichier en Excel et
présenter un rapport le lendemain?
A+

"Dédé" a écrit dans le message de news:

Par ici, le caractère des milliers c'est ' et celui pour les décimales
c'est le point ...

Et cela est applicable sur pratiquement toute la planète ;-)))

À toi de voir ;-))

Salutations
Dédé






1 2