Problème de séparateur des milliers vba

Résolu/Fermé

LANGAZOU Messages postés 95 Date d'inscription vendredi 16 janvier 2015 Statut Membre Dernière intervention 8 novembre 2015 - 26 janv. 2015 à 21:37
LANGAZOU Messages postés 95 Date d'inscription vendredi 16 janvier 2015 Statut Membre Dernière intervention 8 novembre 2015 - 28 janv. 2015 à 12:45

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

A voir également:

Problème de séparateur des milliers vba
Vba attendre 1 seconde ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide
Vba range avec variable ✓ - Forum VB / VBA
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
27 janv. 2015 à 13:40

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

Réponse 2 / 2

LANGAZOU Messages postés 95 Date d'inscription vendredi 16 janvier 2015 Statut Membre Dernière intervention 8 novembre 2015
28 janv. 2015 à 12:45

Merci beaucoup ;)

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

WORD Séparateur de milliers champs fusionné

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel