Contenue d'un label AVEC séparateur de milliers

Question

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

cs_PROGRAMMIX · Answer

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

KaViDee · Answer

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

cs_PROGRAMMIX · Answer

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

cs_lionel4 · Answer

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

cs_lionel4 · Answer

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

KaViDee · Answer

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

cs_PROGRAMMIX · Answer

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

cs_lionel4 · Answer

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

cs_PROGRAMMIX · Answer

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

Contenue d'un label AVEC séparateur de milliers

9 réponses

Discussions similaires