Completer un nombre à gauche

Salut,

QQ'un pourrait-il me dire comment completer un nombre à gauche :
ex j'ai un n° incrémenté qui doit toujours etre de la forme xxxx donc je voudrais 0001,0002,0003...
Merci d'avance

Junk

il faut que ton nombre soit au format texte :

const NbChar = 4 'correspont a la longueur de ton nb
Label1.caption = String(NbChar - len(MonNombre),"0") & MonNombre

Pour le recuperer de type Nombre :

MonNombre=Val(Label1.caption)


-------------------------------
Réponse au message :
-------------------------------

Salut,

QQ'un pourrait-il me dire comment completer un nombre à gauche :
ex j'ai un n° incrémenté qui doit toujours etre de la forme xxxx donc je voudrais 0001,0002,0003...
Merci d'avance

Junk

Ca ne marche pas : pour vb, la longueur de MonNombre est tjs = à 2!!!
pourquoi?
autre solution?
Junk


-------------------------------
Réponse au message :
-------------------------------

il faut que ton nombre soit au format texte :

const NbChar = 4 'correspont a la longueur de ton nb
Label1.caption = String(NbChar - len(MonNombre),"0") & MonNombre

Pour le recuperer de type Nombre :

MonNombre=Val(Label1.caption)


-------------------------------
Réponse au message :
-------------------------------

Salut,

QQ'un pourrait-il me dire comment completer un nombre à gauche :
ex j'ai un n° incrémenté qui doit toujours etre de la forme xxxx donc je voudrais 0001,0002,0003...
Merci d'avance

Junk

verifie qu'il ne mets pas un espace devant ton nombre...
mais theoriquement, ca devrait marcher :(



-------------------------------
Réponse au message :
-------------------------------

Ca ne marche pas : pour vb, la longueur de MonNombre est tjs = à 2!!!
pourquoi?
autre solution?
Junk


-------------------------------
Réponse au message :
-------------------------------

il faut que ton nombre soit au format texte :

const NbChar = 4 'correspont a la longueur de ton nb
Label1.caption = String(NbChar - len(MonNombre),"0") & MonNombre

Pour le recuperer de type Nombre :

MonNombre=Val(Label1.caption)


-------------------------------
Réponse au message :
-------------------------------

Salut,

QQ'un pourrait-il me dire comment completer un nombre à gauche :
ex j'ai un n° incrémenté qui doit toujours etre de la forme xxxx donc je voudrais 0001,0002,0003...
Merci d'avance

Junk

Junk


-------------------------------
Réponse au message :
-------------------------------

verifie qu'il ne mets pas un espace devant ton nombre...
mais theoriquement, ca devrait marcher :(



-------------------------------
Réponse au message :
-------------------------------

Ca ne marche pas : pour vb, la longueur de MonNombre est tjs = à 2!!!
pourquoi?
autre solution?
Junk


-------------------------------
Réponse au message :
-------------------------------

il faut que ton nombre soit au format texte :

const NbChar = 4 'correspont a la longueur de ton nb
Label1.caption = String(NbChar - len(MonNombre),"0") & MonNombre

Pour le recuperer de type Nombre :

MonNombre=Val(Label1.caption)


-------------------------------
Réponse au message :
-------------------------------

Salut,

QQ'un pourrait-il me dire comment completer un nombre à gauche :
ex j'ai un n° incrémenté qui doit toujours etre de la forme xxxx donc je voudrais 0001,0002,0003...
Merci d'avance

Junk

En fait il fallait convertir mon nombre en chaine :

Label1.caption = String(NbChar - len(Cstr(MonNombre)),"0") & MonNombre
:-))

Junk


-------------------------------
Réponse au message :
-------------------------------

Ca ne marche pas : pour vb, la longueur de MonNombre est tjs = à 2!!!
pourquoi?
autre solution?
Junk


-------------------------------
Réponse au message :
-------------------------------

il faut que ton nombre soit au format texte :

const NbChar = 4 'correspont a la longueur de ton nb
Label1.caption = String(NbChar - len(MonNombre),"0") & MonNombre

Pour le recuperer de type Nombre :

MonNombre=Val(Label1.caption)


-------------------------------
Réponse au message :
-------------------------------

Salut,

QQ'un pourrait-il me dire comment completer un nombre à gauche :
ex j'ai un n° incrémenté qui doit toujours etre de la forme xxxx donc je voudrais 0001,0002,0003...
Merci d'avance

Junk

oups desolé



-------------------------------
Réponse au message :
-------------------------------

En fait il fallait convertir mon nombre en chaine :

Label1.caption = String(NbChar - len(Cstr(MonNombre)),"0") & MonNombre
:-))

Junk


-------------------------------
Réponse au message :
-------------------------------

Ca ne marche pas : pour vb, la longueur de MonNombre est tjs = à 2!!!
pourquoi?
autre solution?
Junk


-------------------------------
Réponse au message :
-------------------------------

il faut que ton nombre soit au format texte :

const NbChar = 4 'correspont a la longueur de ton nb
Label1.caption = String(NbChar - len(MonNombre),"0") & MonNombre

Pour le recuperer de type Nombre :

MonNombre=Val(Label1.caption)


-------------------------------
Réponse au message :
-------------------------------

Salut,

QQ'un pourrait-il me dire comment completer un nombre à gauche :
ex j'ai un n° incrémenté qui doit toujours etre de la forme xxxx donc je voudrais 0001,0002,0003...
Merci d'avance

Junk

Le plus simple si tu veux toujours 4 chiffres c'est :

Format(Nombre,"0000")
qui te donne une chaîne de 4 caractères (String)



-------------------------------
Réponse au message :
-------------------------------

Salut,

QQ'un pourrait-il me dire comment completer un nombre à gauche :
ex j'ai un n° incrémenté qui doit toujours etre de la forme xxxx donc je voudrais 0001,0002,0003...
Merci d'avance

Junk

Vois avec ces deux lignes de code....
Private Sub Text1_Validate(Cancel As Boolean)
Text1.Text = Format(Text1.Text, "000#")
End Sub

A+
jyb


-------------------------------
Réponse au message :
-------------------------------

Salut,

QQ'un pourrait-il me dire comment completer un nombre à gauche :
ex j'ai un n° incrémenté qui doit toujours etre de la forme xxxx donc je voudrais 0001,0002,0003...
Merci d'avance

Junk