fonction remplacer via vb

[Virginie]

Bonjour les spécialistes !

voilà j'ai un fichier texte que j'importe vers xls.
dans ce fichier il y a des montants en milliers avec un point en séparateur de milliers. ex : 2.458,12
lorsque j'utilise la fonction remplacer --> pas de problème

par contre en passant par vba, il remplace les points par des virgules. ex : 2,458,12 !!

Je précise que j utilise l enregistreur de macro (c est surement lié)

si quelqu un a la solution
Merci de votre aide.

 

[BOBBY]

Virginie,

En utilisant les macros, le point '.' du pavé numérique est remplacé par une virgule ','

Il faut absolument taper les points '.' à l'aide de la touche MAJ + la touche '.' et ';'

Normalement il ne devrait plus y avoir de probleme...

A+

 

[Virginie]

Merci BOBBY

Je vais essayer bien que persuadée d avoir tenter cette solution

 

[marco57]

Bonsoir Virginie, Bobby et le Forum,

J'ai essayé le code suivant pour faire ta conversion :

Supprime le point de séparateur millier puis remplace la virgule par un point puis convertit le texte en nombre :

Range('Donnée').Offset(0, 1) = Val(WorksheetFunction.Substitute(WorksheetFunction.Substitute(Range('Donnée'), '.', ''), ',', '.'))

J'ai créé un fichier texte et ai convertit mes données.

Bonne chance

A+

Marco

 

[Virginie]

Merci aux 57 Marcos pour le coup de main...
Et en plus ça marche !


Longue vie à ce forum

a+