D
David
Guest
Bonjour à toutes et à tous
J'aimerai remplacer les . par des espaces.
Car dans mon extraction j'obtiens des nombres sous la forme suivante:
1.000,000
J'ai donc essayé plusieur code mais la plupart me remplace le . et la , par des espaces.
Ce qui donne 1000000 au lieu de 1000
Sinon j'ai trouver un autre code (merci hellboy)
Qui lui me permet d'obtenir 1000,000 donc ce que je veux mais par contre je peux plus faire aucun calcul avec ce résultat.
Merci d'avance.
David
J'aimerai remplacer les . par des espaces.
Car dans mon extraction j'obtiens des nombres sous la forme suivante:
1.000,000
J'ai donc essayé plusieur code mais la plupart me remplace le . et la , par des espaces.
Ce qui donne 1000000 au lieu de 1000
Sinon j'ai trouver un autre code (merci hellboy)
Qui lui me permet d'obtenir 1000,000 donc ce que je veux mais par contre je peux plus faire aucun calcul avec ce résultat.
Code:
Dim rngCell As Range
With ActiveSheet
.UsedRange.NumberFormat = '@'
For Each rngCell In .UsedRange
rngCell.Value = CStr(Replace(rngCell.Value, '.', ''))
Next rngCell
End With
Merci d'avance.
David