Problème de séparateur des milliers vba

[Résolu/Fermé]
Signaler
Messages postés
95
Date d'inscription
vendredi 16 janvier 2015
Statut
Membre
Dernière intervention
8 novembre 2015
-
Messages postés
95
Date d'inscription
vendredi 16 janvier 2015
Statut
Membre
Dernière intervention
8 novembre 2015
-
Bonjour,

je veux que lorsque je tape des montants dans mes textbox, ils affichent le séparateur des milliers au fur et à mesure.

Merci pour votre réponse

2 réponses

Messages postés
7462
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
29 juillet 2021
644
Bonjour,

Voici un exemple à adapter:

Option Explicit
Private Sub TextBox1_Change()
Dim Valeur As Byte
TextBox1.MaxLength = 10 'nb caracteres maxi dans textbox
Valeur = Len(TextBox1)
If Valeur = 3 Or Valeur = 7 Then TextBox1 = TextBox1 & "," 'a adapter "," ou "."
End Sub
'valeurs numériques uniquement
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii)) And Not Chr(KeyAscii) = ":" Then KeyAscii = 0
End Sub



Messages postés
95
Date d'inscription
vendredi 16 janvier 2015
Statut
Membre
Dernière intervention
8 novembre 2015

Merci beaucoup ;)