Affichage 001

Le
Jacques
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacques93
Le #15370291
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.
LE TROLL
Le #15370271
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" message de news:
%
| 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
|
|
Salva
Le #15370201
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" discussion : #
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




Jacques
Le #15370181
Bonjour,


et merci à tous !!


Jacques


"Salva" news:
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" discussion : #
> 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
>
>


Publicité
Poster une réponse
Anonyme