Format Textbox automatique en fonction de sa valeur Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
t
thespeedy20
Membre fidèle
Membre fidèle
Messages : 243
Inscrit le : 15 février 2016
Version d'Excel : 2019

Message par thespeedy20 » 13 janvier 2020, 23:48

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
Avatar du membre
Pedro22
Passionné d'Excel
Passionné d'Excel
Messages : 3'906
Appréciations reçues : 395
Inscrit le : 26 janvier 2017
Version d'Excel : 2010 FR
Version de Sheets : FR
Téléchargements : Mes applications

Message par Pedro22 » 14 janvier 2020, 08:44

Bonjour,

L'idée est d'afficher ce format dans la TextBox ou dans la cellule de destination de son contenu ?
Merci de prendre 30 sec pour lire la charte du forum.
Quelques conseils : ici
t
thespeedy20
Membre fidèle
Membre fidèle
Messages : 243
Inscrit le : 15 février 2016
Version d'Excel : 2019

Message par thespeedy20 » 14 janvier 2020, 10:10

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
Avatar du membre
Pedro22
Passionné d'Excel
Passionné d'Excel
Messages : 3'906
Appréciations reçues : 395
Inscrit le : 26 janvier 2017
Version d'Excel : 2010 FR
Version de Sheets : FR
Téléchargements : Mes applications

Message par Pedro22 » 14 janvier 2020, 10:45

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...
Merci de prendre 30 sec pour lire la charte du forum.
Quelques conseils : ici
Avatar du membre
Pedro22
Passionné d'Excel
Passionné d'Excel
Messages : 3'906
Appréciations reçues : 395
Inscrit le : 26 janvier 2017
Version d'Excel : 2010 FR
Version de Sheets : FR
Téléchargements : Mes applications

Message par Pedro22 » 14 janvier 2020, 10:54

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.
Merci de prendre 30 sec pour lire la charte du forum.
Quelques conseils : ici
t
thespeedy20
Membre fidèle
Membre fidèle
Messages : 243
Inscrit le : 15 février 2016
Version d'Excel : 2019

Message par thespeedy20 » 14 janvier 2020, 11:09

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
Avatar du membre
Pedro22
Passionné d'Excel
Passionné d'Excel
Messages : 3'906
Appréciations reçues : 395
Inscrit le : 26 janvier 2017
Version d'Excel : 2010 FR
Version de Sheets : FR
Téléchargements : Mes applications

Message par Pedro22 » 14 janvier 2020, 11:15

thespeedy20 a écrit :
14 janvier 2020, 11:09
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...
Merci de prendre 30 sec pour lire la charte du forum.
Quelques conseils : ici
t
thespeedy20
Membre fidèle
Membre fidèle
Messages : 243
Inscrit le : 15 février 2016
Version d'Excel : 2019

Message par thespeedy20 » 14 janvier 2020, 16:30

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message