Affichage 001

Bonjour Jacques,
Jacques a écrit :

Bonjour,

J'aimerai afficher dans une combobox le libéllé "001"

J'ai essayé "00" & X -> ne fonctionne pas
J'ai essayé chr(048) & chr(048) & X -> ne fonctionne pas non plus !

With cboJour_A
.AddItem "00" & X
.AddItem Chr(48) & Chr(48) & X
End With

Comment faire pour afficher "001", "002", .., "031"

Je ne rencontre pas le problème que tu décris. Cependant si tu veux un
combobox avec les jours de 1 à 311, j'utiliserai plutôt :

With cboJour_A
For X = 1 To 31
.AddItem Format(X, "000")
Next X
End With


--
Cordialement,

Jacques.

Bonjour,

Tes trucs semblent bons, ne serait-ce pas ton
X qui serait vide, affiche ton X:

msgBox X

Sinon: chr(48) ' devrait lui suffire...

Le plus simple : "00" & X

Mais, si tu fais ça, c'est que tu veux aligner
sur 3 quand il n'y a pas toujours 3, si c'est le
cas, tu peux le faire avec un traitement plus
approprié (on garde X), exemple parmi d'autres:

- police proportionnelle fixe genre "couRier News"
select case len(X)
case 1: list1.Additem "00" & X
case 2: list1.Additem "0" & X
case 3: list1.Additem X
end select

NB: Si ça ne marche pas à cause de fait que c'est
une valeur numérique, tu transvase dans une
variable texte avec retassement avant de calculer:
dim valeur as string
valeur = Cstr(x)
valeur= trim(valeur)
... len(valeur)...

OU, sas "0"

dim e as byte
e = 3 - len(X)
List1.AddItem space(e) & X

--
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Jacques" <jac_be@hotmail.com> a écrit dans le
message de news:
%2355ovBPeIHA.3724@TK2MSFTNGP02.phx.gbl...
| Bonjour,
|
| J'aimerai afficher dans une combobox le libéllé
"001"
|
| J'ai essayé "00" & X -> ne fonctionne pas
| J'ai essayé chr(048) & chr(048) & X -> ne
fonctionne pas non plus !
|
| With cboJour_A
| .AddItem "00" & X
| .AddItem Chr(48) & Chr(48) & X
| End With
|
| Comment faire pour afficher "001", "002", ..,
"031"
|
| Merci de vos réponses
|
|
| Jacques
|
|

Bonjour

Je te propose simplement ceci.


Dim i As Integer
Dim x As Integer

x = 100

For i = 1 To x
Combo1.AddItem Format(Format(i, "000"), "@@@")
Next i


bomme journée

Salva

"Jacques" <jac_be@hotmail.com> a écrit dans le message de groupe de
discussion : #55ovBPeIHA.3724@TK2MSFTNGP02.phx.gbl...

Bonjour,

J'aimerai afficher dans une combobox le libéllé "001"

J'ai essayé "00" & X -> ne fonctionne pas
J'ai essayé chr(048) & chr(048) & X -> ne fonctionne pas non plus !

With cboJour_A
.AddItem "00" & X
.AddItem Chr(48) & Chr(48) & X
End With

Comment faire pour afficher "001", "002", .., "031"

Merci de vos réponses


Jacques

Bonjour,


et merci à tous !!


Jacques


"Salva" <hotmerlino@hotmail.com> a écrit dans le message de
news:A2892046-73BA-4F9F-9B40-A0CB348DC806@microsoft.com...

Bonjour

Je te propose simplement ceci.


Dim i As Integer
Dim x As Integer

x = 100

For i = 1 To x
Combo1.AddItem Format(Format(i, "000"), "@@@")
Next i


bomme journée

Salva

"Jacques" <jac_be@hotmail.com> a écrit dans le message de groupe de
discussion : #55ovBPeIHA.3724@TK2MSFTNGP02.phx.gbl...
> Bonjour,
>
> J'aimerai afficher dans une combobox le libéllé "001"
>
> J'ai essayé "00" & X -> ne fonctionne pas
> J'ai essayé chr(048) & chr(048) & X -> ne fonctionne pas non plus !
>
> With cboJour_A
> .AddItem "00" & X
> .AddItem Chr(48) & Chr(48) & X
> End With
>
> Comment faire pour afficher "001", "002", .., "031"
>
> Merci de vos réponses
>
>
> Jacques
>
>