OVH Cloud OVH Cloud

Format via VBA

5 réponses
Avatar
Patrice
Bonjour,

Petite question =E0 10 sous : Je r=E9cup=E8re un nombre via VBA=20
dans une cellule. Il est en format num=E9rique. Je veux le=20
mettre dans une autre cellule, en format alphanum=E9rique.

Genre : 1453 doit donner 0001453

J'ai beau le formater sous VBA, il se recopie en num=E9rique=20
dans l'autre cellule.. (sans les z=E9ros devant).

Merci de vos id=E9es.

Patrice.

5 réponses

Avatar
poy-poy
Bonjour Patrice,

Peux tu appliquer le format aprés l'avoir déplacé ?
quelquechose du genre :

range("a1").copy
range("B1").pastespecial
range("B1").NumberFormat = "00000000"

Euh je ne sais pas ce qu'est le format alphanumérique (si tu peux eclairer
ma lanterne ? ) donc je t'ai mis 8 digits mais tu peux l'adapter.

Cordialement
benjamin



Bonjour,

Petite question à 10 sous : Je récupère un nombre via VBA
dans une cellule. Il est en format numérique. Je veux le
mettre dans une autre cellule, en format alphanumérique.

Genre : 1453 doit donner 0001453

J'ai beau le formater sous VBA, il se recopie en numérique
dans l'autre cellule.. (sans les zéros devant).

Merci de vos idées.

Patrice.



Avatar
ru-th
Salut

[A1].NumberFormat = "@"
[A1] = Format(1453, "000000")

a+
rural thierry
"Patrice" a écrit dans le message de
news: 0f8501c4c63d$b7e5ec60$
Bonjour,

Petite question à 10 sous : Je récupère un nombre via VBA
dans une cellule. Il est en format numérique. Je veux le
mettre dans une autre cellule, en format alphanumérique.

Genre : 1453 doit donner 0001453

J'ai beau le formater sous VBA, il se recopie en numérique
dans l'autre cellule.. (sans les zéros devant).

Merci de vos idées.

Patrice.
Avatar
Patrice
Simple, efficace..

Merci !
-----Message d'origine-----
Salut

[A1].NumberFormat = "@"
[A1] = Format(1453, "000000")

a+
rural thierry
"Patrice" a écrit
dans le message de

news: 0f8501c4c63d$b7e5ec60$
Bonjour,

Petite question à 10 sous : Je récupère un nombre via VBA
dans une cellule. Il est en format numérique. Je veux le
mettre dans une autre cellule, en format alphanumérique.

Genre : 1453 doit donner 0001453

J'ai beau le formater sous VBA, il se recopie en numérique
dans l'autre cellule.. (sans les zéros devant).

Merci de vos idées.

Patrice.


.



Avatar
Patrice
Salut,
Passe voir la solution que m'a proposé ru-th... Simple et
efficace. J'avais essayé ta proposition, mais ça ne
fonctionnait pas. De l'alpha, c'est du texte, tu ne peux
l'additionner comme du numérique. donc "0004854"+"0004854"
<> 4854+4854 et le numberformat n'y change rien.
Je te remercie de ton attention.
Patrice.
-----Message d'origine-----
Bonjour Patrice,

Peux tu appliquer le format aprés l'avoir déplacé ?
quelquechose du genre :

range("a1").copy
range("B1").pastespecial
range("B1").NumberFormat = "00000000"

Euh je ne sais pas ce qu'est le format alphanumérique
(si tu peux eclairer

ma lanterne ? ) donc je t'ai mis 8 digits mais tu peux
l'adapter.


Cordialement
benjamin



Bonjour,

Petite question à 10 sous : Je récupère un nombre
via VBA


dans une cellule. Il est en format numérique. Je veux
le


mettre dans une autre cellule, en format
alphanumérique.



Genre : 1453 doit donner 0001453

J'ai beau le formater sous VBA, il se recopie en
numérique


dans l'autre cellule.. (sans les zéros devant).

Merci de vos idées.

Patrice.

.





Avatar
poy-poy
Pas de souci Patrice,

De toute facon ruth il fait que répondre à ma place :-)
Et le pire,.......C'est qu'il le fait mieux que moi !

A plus
Benjamin


Salut,
Passe voir la solution que m'a proposé ru-th... Simple et
efficace. J'avais essayé ta proposition, mais ça ne
fonctionnait pas. De l'alpha, c'est du texte, tu ne peux
l'additionner comme du numérique. donc "0004854"+"0004854"
<> 4854+4854 et le numberformat n'y change rien.
Je te remercie de ton attention.
Patrice.
-----Message d'origine-----
Bonjour Patrice,

Peux tu appliquer le format aprés l'avoir déplacé ?
quelquechose du genre :

range("a1").copy
range("B1").pastespecial
range("B1").NumberFormat = "00000000"

Euh je ne sais pas ce qu'est le format alphanumérique
(si tu peux eclairer

ma lanterne ? ) donc je t'ai mis 8 digits mais tu peux
l'adapter.


Cordialement
benjamin



Bonjour,

Petite question à 10 sous : Je récupère un nombre
via VBA


dans une cellule. Il est en format numérique. Je veux
le


mettre dans une autre cellule, en format
alphanumérique.



Genre : 1453 doit donner 0001453

J'ai beau le formater sous VBA, il se recopie en
numérique


dans l'autre cellule.. (sans les zéros devant).

Merci de vos idées.

Patrice.

.