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
-----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.
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
Ca marche parfaitement.
MERCI A TOUS (Ricky, Dédé, ...)
A+
"DBA" <d.ba@intnet.bj> a écrit dans le message de news:
uSFtxSGqDHA.2064@TK2MSFTNGP11.phx.gbl...
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
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
gb
Bonjour.
Voici peut-être une solution:
Sub SubstituerDansLesCellulesNumeriquesSeulement()
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é
Bonjour.
Voici peut-être une solution:
Sub SubstituerDansLesCellulesNumeriquesSeulement()
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é" <blablabla@blablabla.com> a écrit dans le message de news:
OaBUtyGqDHA.1656@tk2msftngp13.phx.gbl...
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 ;-)))
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 ;-)))