Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Format Nombre dynamique

Spitnolan08

XLDnaute Barbatruc
Bonjour le forum,

J'avais créé et posté il y a quelques années sur ce forum un fichier permettant l'application dynamique d'un format aux nombres saisis dans un TextBox. Cela avait été très formateur pour moi... mais je en suis pas sûr qu'il n'y ait pas beaucoup plus simple !

Donc, bien que j'utilise toujours cette création, je souhaiterais savoir si quelqu'un sait le faire simplement ?

Nota : Je parle bien de format dynamique appliqué à la saisie d'un nombre dans un textbox (Par exemple un format avec séparateur de milliers) et non de l'application d'un format à un nombre introduit par code.
 

Lone-wolf

XLDnaute Barbatruc
Re spitnolan

Pourrais-tu donner un exemple? Je ne vois pas trop ce que tu veux dire.

Peut-être comme ceci??

VB:
Private Sub TextBox1_Change()
Dim Valeur As Byte
  
    'nb caracteres maxi dans textbox
    TextBox1.MaxLength = 6

    Valeur = Len(TextBox1)
    If Valeur = 2 Then
        TextBox1 = TextBox1 & ","
    ElseIf Valeur > 2 And Valeur < 4 Then
        TextBox1 = Replace(",", ",", TextBox1)
    End If
End Sub
 
Dernière édition:

Spitnolan08

XLDnaute Barbatruc
Bonsoir Lone-Wolf, Si

On ne se quitte plus !

Je vais éclairer vos lanternes avec le fichier d'origine pour que vous ne finissiez pas par saler les fraises
Mais bon...
 

Pièces jointes

  • TextBoxFormatDyn1.2-Spitnolan-1000et...eme.xls
    56 KB · Affichages: 30
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…