Différence d'interprétation macro sur nombre à virgule

[thombar]

Bonjour,

J'ai enregistré une macro qui efface les espaces contenus dans une plage de cellules qui elles-même contiennent des données chiffrées séparées par des virgules (exemple : 9999, 8878, 6565, 4545, 787877879, 4565, 45).

Au moment de l'enregistrement, tout a fonctionné correctement.
ENRG MACRO / Edition / Remplacer par / [espace] par [rien] / STOP ENRG MACRO

Pour la cellule ci-dessus, cela a donné :
9999,8878,6565,4545,787877879,4565,45
Et la macro fonctionne bien.

Seulement, lorsque j'ai une donnée de ce style (dans une cellule) :
346406, 347589, 344672, 346406, 343426, 365165, 341285, 348482, 348442, 318052, 365577, 367792, 344040, 343235, 318894, 343426, 346242, 343832, 343904, 313520, 349605, 343832, 318916, 316276, 348982, 344672, 369723, 348442, 365940, 347283, 365121, 318918, 318094
le résultat devient 3.46406347589344E+197

Ce calcul abrégé ne m'intéresse pas !
La manip' manuelle fonctionne bien, mais pas la macro !

De plus, la donnée 3388, 9988, 7774, 885 donne un résultat sans virgules, avec séparation des centaines !!!

Comment faire pour n'obtenir à coup sûr que des valeurs sans espaces ?


MERCI PAR AVANCE

 

[Minick]

Salut,

En faisant comme cela ca fonctionne:


Sub couic()
Dim Cpt As Integer

Range("A1:A5").NumberFormat = "@"
For Cpt = 1 To 5
Range("A" & Cpt) = WorksheetFunction.Substitute(Range("A" & Cpt), " ", "")
Next
End Sub


Apparemment c'est un probleme de format de cellule.

@+ Minick

 

[thombar]

Merci beaucoup.

Effectivement, cela fonctionne bien de cette manière.

Bravo.