donald
-
28 janv. 2000 à 12:35
cs_Sator
Messages postés351Date d'inscriptionsamedi 7 février 2004StatutMembreDernière intervention 6 octobre 2010
-
3 avril 2008 à 10:18
je suis en train de faire une petite calculette...
Et je butte sur un problème de clavier.
Si je tape 77.12 ça marche pas !
Mais si je tape 77,12 ça marche.
En fait Vbasic utilise comme séparateur des nombres décimal la virgule.
Alors ma question est la suivante :
Comment changer le point en virgule de la variable "nombre".
Tu peux toujours essayer le code suivant:( attention, il remplace tous les points décimaux présents dans la variable nombre...
Dim Nombre as string,X
Nombre="3.14" ' Par exemple
X=instr(Nombre,".") ' Cherche le point décimal dans la variable Nombre
While X>0
Mid(Nombre,X,1)="," ' Remplace le point trouvé par une virgule
X=Instr(Nombre,".") ' Cherche le point suivant
Wend
ce n'est pas VB qui utilise la virgule comme séparateur décimal mais Windows !! si tu vas dans le panneau de configuration et dans les parametres régionaux, dans l'onglet nombre il suffit de changer le séparateur décimal et de mettre le point à la place de la virgule. ton programme tournera sans problème. mais attention cette modif aura des conséquences sur tous les programmes ( excel, msworks, access..)
cs_Sator
Messages postés351Date d'inscriptionsamedi 7 février 2004StatutMembreDernière intervention 6 octobre 2010 3 avril 2008 à 10:18
Private Sub Text13_KeyPress(KeyAscii As Integer)
Dim O As Integer
O = 0If KeyAscii 44 Then KeyAscii 46
If ((KeyAscii < 46) Or (KeyAscii > 59)) Then KeyAscii = 0
For i = 1 To Len(Text13.Text) If KeyAscii 46 Then O O + 1
NextIf O >2 Then KeyAscii 0
End Sub
voilà... si ça peut te rendre service....
:)Sator :)
ps: si il ni avait pas de faute d'orthographe dans ce texte, il y a fort à parier que ce texte ne serait pas de moi...