Decimales dans label

[Nicko]

bonjour,

J'ai un calcul qui s'opere dans un Userform:

Un TextBox dans lequel l'uitisateur entre une valeur.
Un label dans lequel un prix est defini suivant certaines conditions.
et un autre label dans lequel j'affecte le resultat de :

TextBox(utilisateur) - Label(Prix)

Le soucis, c'est que lorsque il y a un resultat avec virgule, ca plante !
😉

comment faire ????

merci

 

[JCA06]

Bonjour Nicko,

Je me souviens avoir eu des problèmes avec un calcul dont la source était la valeur d'un textbox et ce cher Thierry m'avait conseillé de garder la valeur dans une variable pour faire des calculs.
Mon problème était lié à un affichage arrondi et ma fonction du genre NMC = Round(AMC * (1 + VMC / 100), 2) ne fonctionnait pas lorsqu'à la place de AMC je prenait la valeur de ma textbox.

En espérant que cela pourra t'aider.

 

[Nicko]

En fait, je viens de remarquer que lorsque j'utilise le point du pavé numerique, il ne reconnait pas la virgule !

Comment faire. 🙁

 

[Eric C]

Bonjour le forum
Bonjour Nicko, bonjour JCA06

J'avais trouvé ta question étranger avec des valeurs décimales ça plante ??? Donc dans un 1er temps chez moi ça ne plantais pas à condition de saisir une virgule donc sans passer par le pavé numérique.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Label2.Caption = TextBox1.Value - Label1.Caption
End Sub

Pour répondre à ton besoin : Lorsque tu saisis le point au pavé numérique, il est transformé en virgule automatiquement.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) = '.' Then KeyAscii = Asc(',')
End Sub

@ + Eric C 😉