Virgule et point

Question

Salut,
j'ai beau chercher je trouve pas de soluce qui fonctionne pour mon problème:
je saisie une valeur dans un textbox, si je met 12,23 no pb mais si je met 12.23 erreur d'exécution 13 type incompatible, mais en essayant les propositions que j'ai trouvé ça fonctionne pas.
Je précise que je fait un calcul (multiplication par un nombre fixe après)

Est ce qu'il faut mettre un type de variable spécifique ?

Merci d'avance pour vos réponses.

gibozsec · Answer

Dim maVariable as currency

maVariable=val(text1.text)



Ca convertira le point en virgule

 ?-) Grrrrrrrrrrr ?-)

cs_fuck · Answer

Sinon tu fais pour que tout le points soient remplacer par une virgule en ajoutant ce code :

Dim res As Long ' Variable pour la recherche
res = InStr(1, Text1, ".") ' effectue une recherche
If res <> 0 Then
Text1.SelStart = res - 1 ' possitionne la selection au point
Text1.SelLength = 1 ' Selectionne qu'un seul carractères
Text1.SelText = "," ' change  la selection (le point) par la virgule
End If
Text1.SelStart = 0
Text1.SelLength = 0


Change Text1 par le nom de  ton TextBox

Voila ;)

cs_retorik · Answer

Ya plus simple je pense ke ca c bon :
Text2.Text = Replace(Text1.Text, ".", ",") * 2

cs_rene38 · Answer

ou bien  Text1.Text = Replace(Text1.Text, ".", ",") si le "texte" (le nombre dans la textbox) arrive par le code

Si on saisit le nombre,
Private Sub Text1_KeyPress(KeyAscii As Integer)   If KeyAscii 46 Then KeyAscii 44
   ' écrit une virgule si on saisit un point
End Sub

cs_alantha · Answer

le pb en mettant val(text1.text) est que dans ce k si l'utilisateur entre une "," alors vb calculera avec les chiffres avant la virgule et n'affichera aucun message d'erreur. Pour ma part bien que cela est l'air moins prof je pref passer par le remplacement du "." par une virgule, ça limite le champs d'erreur je pense

Virgule et point

5 réponses

Discussions similaires