Macro remplacement de point par virgules - VB/VBA/VBS - Programmation
Marsh Posté le 18-10-2010 à 13:35:29
Je m'auto-réponds car j'ai fini par trouver la solution après avoir zoné un peu sur tous les forums : Il s'agit d'un bug!
Il faut remplacer des points par des points!
Ce qui donne
Range("A1:J80" ).Select
Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Marsh Posté le 18-10-2010 à 19:31:38
Un bug ?
Option regionale plutot non ?
Edit : quand tu appuis sur le point du pavé numérique, Excel met une virgule si dans les options regionales tu le definis comme separateur decimale
Marsh Posté le 18-10-2010 à 20:16:54
Salut, il y a dans Menu Options/International : Utiliser les séparateurs systeme ou non
Marsh Posté le 19-10-2010 à 07:37:33
Je pense pas que ce soit les options régionales, car le fait de remplacer des points par des points n'est sensé ne rien faire! Peu importe si l'on met des séparateur en point ou en virgule dans les options régionales...
Marsh Posté le 15-10-2010 à 12:45:06
Bonjour,
J'ai enregistré une macro de ce type :
Range("A1:J80" ).Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Lors de l'enregistrement, la manip s'est déroulée correctement
En lancant l'execution de la macro elle fait n'importe quoi!
Elle remplace les points par rien du tout ou remplace certains points par des virgules (des valeurs du genre 18.005 devient 18005 ou 18 005)
Que ce passe t il que je ne vois pas?
Problème sur le format?
Nota : La selection à modifier est un import de fichier ascii
Merci d'avance