Remplacer point par virgule VBA [Résolu/Fermé]

- - Dernière réponse :  michnum - 3 déc. 2013 à 14:09
Bonjour,



J'essaye de remplacer les points par une virgule à l'aide de la fonction replace de VB.
Ça fonctionne correctement pour les petites chaines mais j'ai un chiffre assez grand : 23.7048261485505 et au lieu de m'écrire 23,7048261485505 j'obtiens 237048261485505.
J'ai essayer avec ces deux code :
Columns("B:K").Select
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
et
Worksheets("modelisation salle TD SITUATION").Columns("B:K").Replace _
What:=".", Replacement:=",", _
SearchOrder:=xlByColumns, MatchCase:=True

Dans les deux cas j'obtiens la même chose.
Please help me
Afficher la suite 

2 réponses

Meilleure réponse
6
Merci
Petite erreur de copie j'avais bien mis une virgule dans mon code.
Mais j'ai trouvé la solution, en fait si je met What:=".", Remplacement:=".", excel reconnait mon point de remplacement comme une virgule ( paramètres par défaut du logiciel en français) et accepte les longues chaîne svoili voilou.
Merci à toi ++

Dire « Merci » 6

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 62744 internautes nous ont dit merci ce mois-ci

pour compléter la réponse de LAPAUST,
lors qu'on imprime la macro vba, c'est bien une virgule qui s'imprime.
en fin de compte, c'est lorsque l'on utilise l'enregistreur de macro que ca pose le probleme

Pfff faut le savoir. :(
Messages postés
1184
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
230
1
Merci
Ben ! Ecris comme ça c'est normal! remplacer le point par un vide enlève le point.

essaye ça!
avec un plus n'oublie pas le format sinon tu ne verras pas tous les chiffres. :-)

Columns("B:K").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.NumberFormat = "0.0000000000000000"