fonction remplacer via vb

B

BOBBY

Guest

• 21 Juin 2005

• #2

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+

 

Vote positif 0 Vote négatif

V

Virginie

Guest

• 21 Juin 2005

• #3

Merci BOBBY

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

 

Vote positif 0 Vote négatif

M

marco57

XLDnaute Occasionnel

• 21 Juin 2005

• #4

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

 

Vote positif 0 Vote négatif

V

Virginie

Guest

• 22 Juin 2005

• #5

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


Longue vie à ce forum

a+

 

Vote positif 0 Vote négatif