OVH Cloud OVH Cloud

Format de nombre

2 réponses
Avatar
Elodie
Bonjour,

J'ai un prlb=E8me lorsque je colle des donn=E9es nombres :

Expl si j'ai : 25,0401461810252 dans une cellule

Range(Range("B1:M1"), Range("B1:M1").End(xlDown)).Select
Selection.NumberFormat =3D "0.0000000000"
Selection.Copy

.../...
Cells(Selection.Rows.Count + 1, 1).Select
ActiveSheet.Paste

Dans ma cellule destination je trouve ceci :
2504014618103

La , a disparu !

Merci de votre aide (j'utilisse Excel 97)
Elo

2 réponses

Avatar
papou
Bonjour Elodie
Dans ce cas tu rajoutes un
Selection.NumberFormat = "0.0000000000"
Après le
ActiveSheet.Paste

Cordialement
Pascal


"Elodie" a écrit dans le message de
news: 172f001c41888$7e86d140$
Bonjour,

J'ai un prlbème lorsque je colle des données nombres :

Expl si j'ai : 25,0401461810252 dans une cellule

Range(Range("B1:M1"), Range("B1:M1").End(xlDown)).Select
Selection.NumberFormat = "0.0000000000"
Selection.Copy

.../...
Cells(Selection.Rows.Count + 1, 1).Select
ActiveSheet.Paste

Dans ma cellule destination je trouve ceci :
2504014618103

La , a disparu !

Merci de votre aide (j'utilisse Excel 97)
Elo
Avatar
j
j'imagine que tu as un pb de séparateurs numériques
chez moi, séparateur ".", la macro marche impec


http://jacxl.free.fr


"Elodie" a écrit dans le message de
news: 172f001c41888$7e86d140$
Bonjour,

J'ai un prlbème lorsque je colle des données nombres :

Expl si j'ai : 25,0401461810252 dans une cellule

Range(Range("B1:M1"), Range("B1:M1").End(xlDown)).Select
Selection.NumberFormat = "0.0000000000"
Selection.Copy

.../...
Cells(Selection.Rows.Count + 1, 1).Select
ActiveSheet.Paste

Dans ma cellule destination je trouve ceci :
2504014618103

La , a disparu !

Merci de votre aide (j'utilisse Excel 97)
Elo