Transforme des données en numeric sous vb exc

ab90 Messages postés 13 Date d'inscription   Statut Membre Dernière intervention   -  
JvDo Messages postés 1978 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,

après avoir ouvert un fichier texte de données avec assistant importation je n'arrive pas à modifier le format de mes données avec cette macro.

Range("c:c").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

jusque la ça marche

Selection.NumberFormat = "0.00"

La aucun changement

Par contre en le faisant directement avec excel ça marche

Qui peut me renseigner

*
ROUE : NC65C
NUM_PIEC E: 87
OPERATEU R: HA
MACHINE : NX1 M1
COTE 8
42.000 41.924 -0.076 -0.140 -0.040 0.000
COTE 10
11.610 11.631 0.021 -0.100 0.100 0.000
P02TOL
38.040 38.050 0.010 -0.100 0.100 0.000
.PARA 15
0.000 0.009 0.009 0.000 0.100 0.000
.ANGU 17
0.000 0.014 0.014 0.000 0.050 0.000
.PARA 20
0.000 0.009 0.009 0.000 0.100 0.000
COTE 21
19.390 19.410 0.020 -0.100 0.100 0.000
.ANGU 25
0.000 0.015 0.015 0.000 0.050 0.000
ANGLE 3
52.000 52.004 0.004 -0.050 0.050 0.000
COTE 9
44.600 44.613 0.013 -0.100 0.100 0.000
COTE 11
0.000 0.031 0.031 -0.200 0.200 0.000
P01TOL
28.240 28.221 -0.019 -0.100 0.100 0.000
.PARA 12
0.000 0.033 0.033 0.000 0.100 0.000
.ANGU 14
0.000 0.033 0.033 0.000 0.030 0.000
.ANGU 23
0.000 0.023 0.023 0.000 0.030 0.000
.PARA 24
0.000 0.006 0.006 0.000 0.100 0.000
ANGLE 4
52.000 52.009 0.009 -0.050 0.050 0.000
COTE 1
34.000 33.728 -0.272 -0.300 -0.100 0.000
COTE 2
8.000 8.210 0.210 0.100 0.300 0.000
COTE 3 B E
12.500 12.703 0.203 0.200 0.400 0.000
COTE 3 B S
12.500 12.704 0.204 0.200 0.400 0.000
.PERPEN 7
0.000 0.001 0.001 0.000 0.035 0.000
.PERPEN7 P
0.000 0.003 0.003 0.000 0.035 0.000
COTE MZ1
55.334 55.354 0.020 -0.050 0.050 0.000
COTE MZ2
55.794 55.825 0.031 -0.050 0.050 0.000
COTE MZ3
55.304 55.312 0.008 -0.050 0.050 0.000
COTE MZ4
55.954 55.984 0.030 -0.050 0.050 0.000
.MZ2MZ1
0.000 0.012 0.012 0.000 0.070 0.000
.MZ4MZ3
0.000 0.022 0.022 0.000 0.070 0.000
.ECARTMA X
0.000 0.023 0.023 0.000 0.070 0.000


Comment faire pour insérer le fichier si vous en avez besoin?

merci beaucoup de votre aide

Vous pouvez aussi me transmettre sur
alain.brunner@power.alstom.com
A voir également:

3 réponses

JvDo Messages postés 1978 Date d'inscription   Statut Membre Dernière intervention   859
 
bonsoir,

pour fournir le fichier, tu peux utiliser http://cjoint.com/

cordialement
0
ab90 Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
vous trouverez le fichier texte sous
http://cjoint.com/?bstOhwOLm6

0
JvDo Messages postés 1978 Date d'inscription   Statut Membre Dernière intervention   859
 
bonsoir,

voilà ( http://cjoint.com/?btaJlNfHc2 ) un essai de transformation du fichier source TXT en tableau XLS

je suis passé par de la conversion plutôt que par du rechercher/remplacer

la macro doit s'appeler transfo_num()

cordialement
0