Format décimales

Question

Salut,

J'ai soucis concernant le format 

voici  mon format : 
var = Format(var, "#####.00")

sur mon affichage de texbox je fais avoir : ,00

Lorsque je veux entrer une valeur (ex : 578,55) le curseur se place avant la virgule, je tape "5" : 5 apparait et  le curseur se place à la fin de ",00". Je dois déplacer mon curseur avec les flèches  pour saisir 78. 

POUR saisir les décimales, même phénomène , je suis éjecté à la fin pour ressaisir une décimales après l'autre.

Voici mon code keypress- Peut- il être la  cause du prob ?
If Chr(KeyAscii) "." Then KeyAscii Asc(",") ' detecte le point et la virgule et remplace
'le point par une virgule
If KeyAscii = 8 Then 'Regarde si appuyer sur BACKSPACE
KeyAscii = 8 ' Si oui ... On efface
Else
If InStr("0123456789.,", Chr(KeyAscii)) = 0 Then 'contrôle de saisie
KeyAscii = 0
MsgBox ("Saisir une valeur numérique") 'caractère incorect, donc il ne s'ecrit pas
End If
End If

juvamine · Answer

fais pluto ta sub ds l'évenement validate du textbox !

++
juva

Retrouvez une équipe de développeurs confirmés sur le tchate:
serveur : bastia.zefunChat.net
port : 6667
chan : #programmation

safarijr · Answer

Pour ton pb, ça donne pas ce que tu veux si tu mets le format en :

 var = Format(var, "####0.00")  ?

el_teedee · Answer

tu es mal barré lol... c'est la merde tu faire ca soi même mais, souvent c'est plus facile car on sait exactement ce qu'on veut.

bon, pour déplacer le curseur en début de ligne
Text1.SelStart=1

pour déplacer le curseur en fin de ligne
Text1.SelStart=Len(Text1)

pour le déplacer avant la virgule :
Text1.SelStart=Len(Text1) - 3 

(dans le cas ou tu as toujours 2 décimales après la virgule)

PS : j'ai rien testé donc c possible que ca marche pô :)

Format décimales

3 réponses

Discussions similaires