remplacer dans une colonne par ex 23.8 texte en 23,8 chiffre?
2 réponses
Patcoh
J'ai exporté à partir d'euronext un fichier contenant les cours journaliers
d'une valeur.
Or sur la feuille de calcul les chiffres décimaux apparaissent avec un point
au lieu d'une virgule ce qui fait qu'ils ne soient pas considérés par le
logiciel comme des chiffres mais plutôt comme du texte.
Comment alors transformer toute une colonne en remplaçant le point par une
virgule?
************************************************************************* Sub Macro1() Dim rng As Range Dim i As Long Set rng = Range("A:A")
For i = 1 To rng.Cells.Count If Not IsEmpty(rng.Cells(i).Value) Then rng.Cells(i).Value = Val(rng.Cells(i).Value) Else Exit Sub End If Next i End Sub ****************************************************************************
"Patcoh" escribió en el mensaje news:
J'ai exporté à partir d'euronext un fichier contenant les cours journaliers d'une valeur. Or sur la feuille de calcul les chiffres décimaux apparaissent avec un point au lieu d'une virgule ce qui fait qu'ils ne soient pas considérés par le logiciel comme des chiffres mais plutôt comme du texte. Comment alors transformer toute une colonne en remplaçant le point par une virgule?
*************************************************************************
Sub Macro1()
Dim rng As Range
Dim i As Long
Set rng = Range("A:A")
For i = 1 To rng.Cells.Count
If Not IsEmpty(rng.Cells(i).Value) Then
rng.Cells(i).Value = Val(rng.Cells(i).Value)
Else
Exit Sub
End If
Next i
End Sub
****************************************************************************
"Patcoh" <Patcoh@discussions.microsoft.com> escribió en el mensaje
news:D10BD60D-0775-4A70-9A2C-9631A6B879E8@microsoft.com...
J'ai exporté à partir d'euronext un fichier contenant les cours
journaliers
d'une valeur.
Or sur la feuille de calcul les chiffres décimaux apparaissent avec un
point
au lieu d'une virgule ce qui fait qu'ils ne soient pas considérés par le
logiciel comme des chiffres mais plutôt comme du texte.
Comment alors transformer toute une colonne en remplaçant le point par une
virgule?
************************************************************************* Sub Macro1() Dim rng As Range Dim i As Long Set rng = Range("A:A")
For i = 1 To rng.Cells.Count If Not IsEmpty(rng.Cells(i).Value) Then rng.Cells(i).Value = Val(rng.Cells(i).Value) Else Exit Sub End If Next i End Sub ****************************************************************************
"Patcoh" escribió en el mensaje news:
J'ai exporté à partir d'euronext un fichier contenant les cours journaliers d'une valeur. Or sur la feuille de calcul les chiffres décimaux apparaissent avec un point au lieu d'une virgule ce qui fait qu'ils ne soient pas considérés par le logiciel comme des chiffres mais plutôt comme du texte. Comment alors transformer toute une colonne en remplaçant le point par une virgule?