transformer format texte en format nombres vba

[albert]

Bonjour forumiens, forumiennes,


Les cours téléchargés sur yahoo ont un point comme séparateur de décimales.
Lorsque je travaille avec excel, j’indique un point dans les options des
paramètres régionaux du panneau de configuration.
Mais si je travaille en virgule (paramètres régionaux), je transforme le « . » en « , » avec Selection.Replace What:='.', Replacement:=',', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Mais le résultat du téléchargement donne du texte et non pas des nombres et excel fait une erreur pour travailler les formules, les graphes… Il faut donc que je trouve le moyen de convertir le format texte en format nombre. J’ai écrit un code pour convertir, mais si la conversion manuelle fonctionne bien, le code vba plante…
url]http://bvrve.club.fr/Astuces_Michel/159excel.html[/url]

bref, j’ai essayé de nombreuses solutions, la transformation manuelle fonctionne, mais pas avec le code vba…
si quelqu’un a une idée en code vba, je suis preneur.

Merci d’avance [file name=test_20060309150002.zip size=17018]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20060309150002.zip[/file]

[Robert]

Bonjour Albert, bonjour le forum,

Moi et les formats on n'est pas très copains mais j'ai testé le code ci-dessous et il pourrait te convenir :

Public Sub test()
For Each cel In Range('B2:G27')
cel.Replace What:='.', Replacement:=',', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
cel.Value = CDbl(cel.Value)
cel.NumberFormat = '0.00'
Next cel
End Sub

[albert]

merci Robert!
c'est extraordinaire, ton code me sort de l'onière, j'ai passé des heures sur ce problème.
j'avais essayé
Range('B2:G27').NumberFormat = '# ##0.00'
au lieu de cel.NumberFormat = '0.00'

il fallait trouver le bon format

albert