changement format variable

Version imprimable

08/10/2008, 17h53
cchampion2fr

changement format variable

Code:

Cells(k, 8) = EL1min * 1000

je recupere une somme numerique dans une cellule avec la formule ci dessus.

J'aurais souhaité convertir ce chiffre en texte suivant un certain formalisme.

Typologie souhaité : 13 caracteres.

exemple : je recupere comme valeur 8510

je souhaite que cette valeur soit changé comme cela :
0000000008510

--> ce qui correspond bien à 13 caracteres..
08/10/2008, 18h11
Invité

Bonjour

Un petit peu de recherche sur la fonction Format, dans l'aide (F1) et le forum.

Philippe
08/10/2008, 18h19
cchampion2fr

j'ai fait par l'enregistreur macro et par l'aide mais c'est imbuvable à comprendre..pour ca que je pose la question ici à des personnes qui le savent ...
08/10/2008, 18h24
Invité

Re

Je viens de te donner la solution, as-tu cherché ?

Philippe
08/10/2008, 19h53
Didier Gonard

Bonsoir,

Si c'est imbuvable et incompréhensible, ici, il y a plein de gens qui sont près à expliquer ;)... Il y en a surement moins pour donner une soluce clef en main, ça c'est le boulot de la vente de service ;) vente de services pour ce genre de question ? Ben oui, ça s'appelle pas bien sûr du développement, mais de la formation !

En étant un novice ayant soif d'apprendre et en suivant les bons conseils de Philippe, je tombe sur ce lien dont un intervenant a eu le courage de rédiger le contenu :
http://jeannot45.developpez.com/arti...ises/#LIII-B-1

le tout a un abord complexe, mais cherchant à rajouter des "0" dans mon format, je clique sur la table des matières au niveau "Le code "0" ".
Béotien, je tente le coup dans une cellule... miracle ça marche :D

pour aller plus loin, je vais me servir de l'enregistreur de macro, pour voir comment vba traduit tout ca => en une ligne il a tout fait :)

En plus qu'il y ait 1 ,3,5 chiffres entrés, il me formate en 13 items en rajoutant les zéros devant !

si je n'arrive pas à me servir du code, ben j'ouvrirai un nouveau fil avec une demande explicite sur l'endroit où ça bloque, et mieux dans l'avenir je pourrai même dépanner quelqu'un sur une question similaire :P

cordialement,

Didier
08/10/2008, 21h24
Invité

Bien vu Ormonth,

Citation:

j'ai fait par l'enregistreur macro et par l'aide mais c'est imbuvable à comprendre..pour ca que je pose la question ici à des personnes qui le savent ...

Il n'est pas question que ce soit buvable, mais surtout, au moins de faire un effort pour comprendre.

Sinon on va être abreuvé du même type de question à répétition (en fonction des précédents posts).

Il est normal de poser des questions pour progresser, le forum est fait pour cela, je crois, mais à condition qu'il y ait une progression et un peu de bonne volonté.
09/10/2008, 10h15
cchampion2fr

ok j'ai trouve ormonth...merci

clique droite sur la cellule Format de cellule ->Personnalisée taper 13 zéros
ou

Code:

1
2
3
4
5
 
Sub test1()
    Cells(1).NumberFormat = "0000000000000"
    Cells(1).Value = 155456
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
 
Sub test2()
    Dim ln As Byte
    Dim reste As Byte
    Dim val As Long
    ln = 13
    val = 155
    reste = ln - Len(CStr(val))
    MsgBox String(reste, "0") & CStr(val)
End Sub