Problème de remplacement

[GGPS58]

Bonjour à tous,

J'ai un fichier de données issues de fichiers txt que j'ai récupéré (Environ 10000 lignes).
J'ai besoin de "traiter" ces informations.
Par exemple, je souhaite remplacer les points par des virgules (pour transformer du texte en nombre).
Si j'utilise "manuellement" Edition - Remplacer, cela fonctionne parfaitement.
J'ai donc décidé d'automatiser cette action sous vba avec (replace,".",",")
, mais là le traitement ne fonctionne plus correctement.
L'un de vous pourrait il m'aider à trouver ce que je ne fais pas correctement.

Je vous joint un fichier simplifié
D'avance merci de vos conseils.

 

[Staple1600]

Re : Problème de remplacement

Bonjour



Déjà, je changerai ceci

Dim L As Integer
Dim LIGNE As Integer

en cela

Dim L As Long
Dim LIGNE As Long

Et j'utiliserai Données/Convertir (cela est plus simple et ici suffisamment rapide pour éviter l'emploi d'une macro )

EDITION: re job75

 

[job75]

Re : Problème de remplacement

Bonjour,

Voyez en remplaçant le point par... le point

cel = Replace(cel, ".", ".")

A+

 

[GGPS58]

Re : Problème de remplacement

Merci, mais cela ne change pas mon soucis.
Mon texte qui est (par exemple) :
21.345
Devrait devenir avec la moulinette de remplacement
21,345
Mais il devient 21345,000

 

[Staple1600]

Re : Problème de remplacement

Re


Tu as essayé Données/Convertir ?

Je l'ai fait (sur ton fichier) et cela fonctionne très bien.


PS: évidemment tu peux utiliser cette méthode en VBA.

 

[GGPS58]

Re : Problème de remplacement

Merci JOB,

Ca à l'air de fonctionner. Je vais tester cela sur mon fichier de base
Pour l'autre partie de ma moulinette (suppression du "="), pour avoir une date, je vais regarder.
Et puis regarder "données/convertir")

Merci à tous les deux (JOB75 et STAPLE1600)

 

[Staple1600]

Re : Problème de remplacement

Re

Pour utiliser Donnés/Convertir , ne pas oublier cette étape
Cliquer sur Avancé à l'étape 3


PS: Il faut utiliser Données/Convertir colonne par colonne
(Pas de multi sélection possible)