probleme sur replace dans une macro

probleme sur replace dans une macro - VB/VBA/VBS - Programmation

Marsh Posté le 01-04-2014 à 23:22:31    

Bonjour,
 
J'ai une macro qui me permet d'importer des données dans un fichier excel.
Malheureusement, dans certaines cellules j'ai le message d'erreur suivant : le nombre dans cette cellule est au format texte ou précédé d'une apostrophe
 
Lorsque je force la valeur dans la cellule elle se convertie en nombre directement ou via un remplacer (ctrl + H)
 
Je souhaite faire cette opération via une macro j'ai donc mis le code suivant :
Cells.Replace What:=",", Replacement:=",", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
Malheureusement cela ne change rien
Je souhaite trouer une solution rapide en execution car mon tableau est tres grand ( plus de 200 colonnes et 1000 lignes)
 
Merci à tous pour votre aide
Cdt

Reply

Marsh Posté le 01-04-2014 à 23:22:31   

Reply

Marsh Posté le 02-04-2014 à 07:43:02    

Que veux-tu faire ? Remplacer une virgule par un point ?
Parce que là, tu remplaces une virgule par une virgule ;)


---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
Reply

Marsh Posté le 02-04-2014 à 09:12:07    

 
           Bonjour, bonjour,
 
           en fait VBA étant nativement en anglais, le séparateur décimal interne est toujours le point !
           La macro d'importation est donc à revoir, certainement mal conçue …
 
           Lors de l'importation manuelle d'un fichier texte, B-A-BA de l'utilisation d'Excel,
           l'Assistant d'importation dispose d'un paramètre quant au séparateur décimal …
           Idem en VBA via la méthode OpenText
 

Reply

Marsh Posté le 02-04-2014 à 17:28:14    

Oui, tu as raison, il vaut mieux s'attaquer à l'origine du problème plutôt que le corriger à postériori. :)


---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed