Format Textbox automatique en fonction de sa valeur

Bonjour le forum,

Je dois introduire le poids d'une personne dans un Texbox :

Je désirais avoir le format les formats suivant automatique:

Entre 0 et 9,9 kg----> ex : 5,20 kg

Entre 10 et 99 kg-----> ex : 52,00 kg

Entre 100 et 300 kg----->ex : 152,00 kg

en fait déplacer la virgule en fonction des chiffes encodés.

Merci beaucoup

OLi

Bonjour,

L'idée est d'afficher ce format dans la TextBox ou dans la cellule de destination de son contenu ?

Bonjour Pedro22,

C'est pour afficher le format dans le TexBox, comme cela encodage pareille pour tout le monde et bon format directement....

Merci d'avance

OLi

Je ne suis pas sûr d'avoir bien saisie l'idée, au final... L'information saisie dans la TextBox, c'est quoi ? Un poids ?

Si c'est le cas, je ne vois pas ce qui diffère au niveau du format entre les 3 cas de figures évoqués plus haut...

Un exemple possible pour changer le nombre de décimales affichées :

Private Sub TextBox1_AfterUpdate()

With TextBox1
    Select Case .Value
        Case 0 To 9.99
            .Value = Format(.Value, "0.00") & " kg"
        Case 10 To 99.99
            .Value = Format(.Value, "0.0") & " kg"
        Case Is >= 100
            .Value = Format(.Value, "0") & " kg"
        Case Else 
            .Value = "Nombre négatif ou non reconnu !"
    End Select
End With

End Sub

PS : Transféré directement dans une cellule, le contenu de la TextBox sera reconnu comme du texte et non comme un nombre valide.

re,

c'est une idée,

ce que je voulais c'est que si j écris par ex 1 la virgule se met juste après, si un j'ai deuxième chiffre la virgule juste après, jusqu'au 3 chiffres et limiter les décimales à 2

Oli

thespeedy20 a écrit :

re,

c'est une idée,

ce que je voulais c'est que si j écris par ex 1 la virgule se met juste après, si un j'ai deuxième chiffre la virgule juste après, jusqu'au 3 chiffres et limiter les décimales à 2

Oli

Et bien c'est encore plus simple...

Private Sub TextBox1_AfterUpdate()

With TextBox1
        .Value = Replace(Format(.Value, "0.00") & " kg",".",",")
End With

End Sub

Mon commentaire précédent est toujours valable : cet affichage ne permet pas d'utiliser le nombre pour des calculs, étant stocké sous forme de texte...

Re, Pedro22

Impeccable, je te remercie pour les solutions proposées....

je clôture le poste...

Excellente journée

Et encore Merci pour la solution....

OLi