Séparateur millliers

[mythotem]

Bonjour à tous,

Ma formule : TextBox6.Text = Math.Round(TextBox6.Text, 2)
Je voudrais que le résultat sur mon tableau soit avec un séparateur de milliers : 123456 ===> 123 456.

Merci d'avance.

mythotem

 

[fanch55]

Bonjour
Essayez avec les codes ci-dessous :

Private Sub TextBox6_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then TextBox6_LostFocus
End Sub

Private Sub TextBox6_LostFocus()
    TextBox6 = Format(Math.Round(TextBox6, 2), "#,##0")
End Sub

 

[mythotem]

Merci fanch55 , mais çà ne fonctionne pas correctement : pas de séparation des milliers, et beaucoup de chiffres après la virgule.

 

[fanch55]

C'est un textbox dans une feuille ou un Userform ?

 

[mythotem]

Userform

 

[Dranreb]

Bonsoir.
Et vous avez un tableau dans votre UserForm ? Pour une ListBox alors ?

 

[mythotem]

oui, mais je tiens à vous dire que je suis un peu novice en VB

 

[Dranreb]

Comme tous les contrôles affichant une information, une ListBox ne contient que des textes.
Ce serait pour renseigner des cellules qu'il vaudrait mieux veiller à convertir en nombres les textes issus de contrôles.

 

[fanch55]

Dans le code du Userform:

Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox6 = Format(Math.Round(TextBox6, 2), "#,##0")
  '  ListBox1.List(0, 1) = TextBox6.Value
End Sub

Private Sub TextBox6_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim Cancel As MSForms.ReturnBoolean
    
    If KeyCode = vbKeyReturn Then TextBox6_Exit Cancel

End Sub

 

[Dranreb]

Bonjour
@mythotem, qu'est-ce que vous attendez pour utiliser le bouton📎Joindre un fichier ? Préparez un modèle anonymisé de votre classeur reproduisant le problème, pour qu'on y voie plus clair.