Format Nombre dynamique

[Spitnolan08]

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]

Re spitnolan 🙂

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

Peut-être comme ceci??

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

 

[Si...]

Bonsoir

Ce qui est simple pour l’un peut ne pas l’être pour l’autre et réciproquement.

Dis moi ce que tu as fait, je te dirai (peut-être) ce que je ferai 😉 !

 

[Lone-wolf]

Bonsoir Si... 🙂

Je viens de manger des fraises avec beaucouuuuppp de chantilly 😀 . Qu'est que tu va faire?? 😱😱😱

 

[Spitnolan08]

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...