Séparateur millliers

fanch55

XLDnaute Barbatruc

• 29 Août 2021

• #2

Bonjour
Essayez avec les codes ci-dessous :

VB:

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

 

Vote positif 0 Vote négatif

M

mythotem

XLDnaute Junior

• 29 Août 2021

• #3

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

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 29 Août 2021

• #4

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

 

Vote positif 0 Vote négatif

M

mythotem

XLDnaute Junior

• 29 Août 2021

• #5

Userform

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 29 Août 2021

• #6

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

 

Vote positif 0 Vote négatif

M

mythotem

XLDnaute Junior

• 30 Août 2021

• #7

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 30 Août 2021

• #8

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.

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 30 Août 2021

• #9

Dans le code du Userform:

VB:

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 30 Août 2021

• #10

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

 

Vote positif 0 Vote négatif