Problème de séparateur des milliers vba

Résolu
LANGAZOU Messages postés 95 Date d'inscription   Statut Membre Dernière intervention   -  
LANGAZOU Messages postés 95 Date d'inscription   Statut Membre Dernière intervention   -
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

cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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



0
LANGAZOU Messages postés 95 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup ;)
0