Problème de séparateur des milliers vba
Résolu
LANGAZOU
Messages postés
100
Statut
Membre
-
LANGAZOU Messages postés 100 Statut Membre -
LANGAZOU Messages postés 100 Statut Membre -
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
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
-
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
-
