bon fonctionnement si "." ou "," ?

[paul87]

bonjour à tous,
j'ai une formule de calcul tres simple...et qui marche tres bien..la voici

TextBox3.Value = ((713 * TextBox1) - (1.25 * TextBox2))

seulement je souhaiterai que les utilisateurs puissent entrer dans les TextBox 1 et 2 des nombres ou le point serai accepté à la place de la virgule.
car là j'ai un message d'erreur "erreur d'éxécution 13: imcompatibilité de type".....ce qui est normal lorsque je rentre des nombres à point..
l'idéal serait que les TextBox acceptent les points et les virgules..
Merci par avance pour vos conseils.

 

[PascalXLD]

Re : bon fonctionnement si "." ou "," ?

bonjour

essaies peut-être avec

TextBox3.Value = ((713 * Val(TextBox1)) - (1.25 * Val(TextBox2)))

 

[JC de Lorient]

Re : bon fonctionnement si "." ou "," ?

salut a tous
avec ce bout de code a adapter en fonction de tes textbox :
Private Sub Textbox6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub

Ainsi ton ^point deviendra une virgule 5attention içi ça concerne le TextBox6)
bon courage

 

[ERIC S]

Re : bon fonctionnement si "." ou "," ?

Bonjour à tous

encore une piste à explorer

Private Sub TextBox1_Change()
If TextBox1.Value = "" Then Exit Sub
TextBox1.Value = Replace(TextBox1.Value, ".", ",")
Range("A1").Value = 1.25 * TextBox1.Value
End Sub

 

[paul87]

Re : bon fonctionnement si "." ou "," ?

C'est super...!!
merci pour vos conseils..MERCI