Format décimales

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

fais pluto ta sub ds l'évenement validate du textbox !

++
juva

Retrouvez une équipe de développeurs confirmés sur le tchate:
serveur : bastia..net
port : 6667
chan : #programmation

Pour ton pb, ça donne pas ce que tu veux si tu mets le format en :

var = Format(var, "####0.00")

?

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ô :)