Format de nombre sous VB...

[i0raek]

Bonjour à tous !!!

Je souhaite changer le caption d'un label présent sur une UserForm. Celui-ci doit prendre la valeur numérique d'une cellule. Jusqu'ici tout va bien !

Mon problème est le suivant : je n'arrive pas à trouver le code pour qu'il sépare les milliers. Voici ce que j'ai tapé et ce qu'il me retourne

Format(Feuil1.range("A1").value,"#0") -> 1000000
Format(Feuil1.range("A1").value,"# ##0") -> 1000 000

Existe-t-il un format qui permette de séparer les milliers quelque soit le nombre soit être obligé d'écrire : "# ### ### ### ##0" ?

J'exagère mais dans l'idée c'est ce que je suis contraint de faire aujourd'hui... 🙁

Si quelqu'un a une idée !!!
Merci pour votre aide !

 

[tototiti2008]

Re : Format de nombre sous VB...

Bonjour i0raek,

essaye :

Format(Feuil1.range("A1").value,"#,##0")

 

[pierrejean]

Re : Format de nombre sous VB...

bonjour iOraek

Inspires-toi de ceci:

Me.Label1.Caption = Format(Sheets("Feuil1").Range("A1"), "#,##0")

 

[Robert]

Re : Format de nombre sous VB...

Bonjour i0raek, bonjour le forum,

Essaie comme ça :

Feuil1.Range("A1").NumberFormat = "#,##0.00"

Édition :

Bonjour Tototiti, Pierrjean on s'est croisés.

 

[gilbert_RGI]

Re : Format de nombre sous VB...

Bonjour

peut-être en formatant dès le départ votre colonne

 Columns("A:A").Select
    Selection.NumberFormat = "###,###,###,###,##0"

ou en mettant le code du format en constante

Const f = "### ### ### ### ##0"
Sub test()
Cells(1, 1).Value = Format(Feuil2.Range("A1").Value, f)
End Sub

Salutations

Gilbert_RGI

 

[i0raek]

Re : Format de nombre sous VB...

Re Forum, bonjour tototiti2008, pierrejean, Robert, gilbert_RGI !

Merci pour toutes vos réponses : c'est exactement ce qu'il me fallait !
le #,##0 fonctionne à merveille !

Encore merci pour votre aide et votre réactivité !!!