Contenue d'un label AVEC séparateur de milliers

Salut,

voila mon prob, en fait, j'ai des très grand nombres (million voir milliard) que je sauvegarde dans un fichier INI. Lorsque je rouvre le programme, il cherche les valeurs, les affiche dans un label mais il n'y a aucun séparateur de millier ! :|

Donc je me retrouve avec des label affichant 5000000 alors que ce que j'aimerais, c'est 5 000 000 (adméttait que c'est plus lisible :P)

Je ne pense pas que ce soit bien compliqué mais j'ignore comment faire.

Merci d'avance.


Lionel4 - noob

MonLabel.Caption = Format(MonNombre, "# ### ##0")

Programmix

Function Milliers(ByVal Nombre As String) As String
Dim Apres As String
Apres = Nombre
Do
Milliers = Right(Apres, 3) & Space(1) & Milliers
If Len(Apres) < 3 Then
Exit Do
Else
Apres = Left(Apres, Len(Apres) - 3)
End If
Loop
End Function

'At using
Label = Milliers(Nombre)

:)
++
KaViDee

Correction à apporter à ma précédente réponse

Me.Label1.Caption = Format(x, "Standard")

Ainsi, le nombre sera affiché en utilisant le séparateur de millier.

Programmix

Ok merci programmix le seul ennui c que j'ai de nouveau des nombres décimaux. Comment je peux virer la virgule ?


Lionel4 - noob

PS merci egalement à KaViDee

Ca va j'ai utiliser ton premier code, ca marche a merveille Programmix.

Lionel4 - noob

Pour info ce code ne marche pas completement pour de tres grands nombres:
MonLabel.Caption = Format(MonNombre, "# ### ##0")

a toi de voir ;)
@+

Effectivement et c'est pour cela que j'ai modifié ma réponse...

Programmix

Ca va jusq'ou les "très grand nombres" ?
Pour moi faut que ca aille jusqu'au milliard.

Sinon faudrait me donner qqch entre le standard mais qui vire les décimal :) Merci


Lionel4 - noob

Pour virer les décimales

Dim S as String
S = Format(x, "Standard")
Me.Label1.Caption = Left(S, Len(S)-3) '-3 pour enveler le ",00"

Programmix