voila, j'ai developpe un petit convertisseur euro pour ma boite
 
j'ai toutes mes variables en currency et il me semble qu'elles sont limitees a 2 chiffres apres la virgule. Or, il m'en affiche toute une famille
 
je voudrais savoir comment changer ca ...
 
merci de votre aide precieuse (comme a l'habitude )
 
voici mon code :
 

Dim Actif As String
 
// ca c'est une image pour fermer le programme
Private Sub Picture7_Click()
    Unload Me
End Sub
//
 
Private Sub txtRecu_GotFocus()
    txtRecu.Text = ""
    txtEuro.Text = ""
    txtFranc.Text = ""
End Sub
 
Private Sub txtEuro_Change()
    Dim Euro As Currency
    Dim Franc As Currency
    Dim Recu As Currency
     
    If txtEuro.Text <> "" And Actif = "Euro" Then
        Euro = txtEuro.Text
        txtFranc.Text = Euro * 6.55957
        Franc = txtFranc.Text
        Recu = txtRecu.Text
        txtfranc2.Text = Recu - Franc
        txteuro2.Text = (Recu / 6.55957) - Euro
    ElseIf Actif = "Euro" Then
        txtFranc.Text = ""
    End If
End Sub
 
Private Sub txtEuro_GotFocus()
    Actif = "Euro"
    txtEuro.Text = ""
    txtFranc.Text = ""
End Sub
 
Private Sub txtFranc_Change()
    Dim Franc As Currency
    Dim Euro As Currency
    Dim Recu As Currency
    If txtFranc.Text <> "" And Actif = "Franc" Then
        Franc = txtFranc.Text
        txtEuro.Text = Franc / 6.55957
        Euro = txtEuro.Text
        Recu = txtRecu.Text
        txtfranc2.Text = Recu - Franc
        txteuro2.Text = (Recu / 6.55957) - Euro
    ElseIf Actif = "Franc" Then
        txtEuro.Text = ""
    End If
End Sub
 
Private Sub txtFranc_GotFocus()
    Actif = "Franc"
    txtEuro.Text = ""
    txtFranc.Text = ""
End Sub

[edtdd]--Message édité par Batman-Fr--[/edtdd]

Heu, t es sur que :  
 
Euro * 6.55957    ca reste en currency ca ???
 
j ai pas le temps (et surtout la flemme) mais je jetterai un coup d oeil la dessus a ta place
sinon tu peux toujours caster le nombre en sortie ...
 
 

 
 
et si je mais mon 6.55957 dans une variable en currency .
 
je vais essayer ca

bon bah ca change rien ...
 
c'est quoi ce caste magique ??

Le currency a une precision de 4 décimale .... Or pour convertir en euro on te demande un precision sur 5 decimale (6.55957).
Il faut que tu convertisse en doucle par exple pour avoir la bonne precision : CDbl(nynumber)

 
 
ok, en effet, le probleme venait de la
 
en passant toutes mes variables de calcul en Double et en placant mon resultat dans une variable Currency et affichant cette derniere, ca passe
 
sauf que je croyais que le Currency etait sur 2 decimales
du coup, ca marche mais comme pas il faudrait ...
 
comment limiter a 2 decimales ?
 
merci d'avance de votre aide

[edtdd]--Message édité par Batman-Fr--[/edtdd]

tu peux utiliser ca  :
MyStr = Format(334.9, "###0.00" )   ' Returns "334.90".

 
   
 
ca marche impeccable    
 
ca doit etre une fonction assez banale celle la ... je debute totalement en VB avec ce micro-projet
 
maintenant que je suis chaud, comment lui faire accepter un point ( . ) au lieu de la virgule ( , ) quand je tape un montant ? pcq la, il me sort le debugeur  
 
merci merci a vous  

La je veux pas dire de c.. mais je pense que ca depend des params regionaux de windaube
Si c est bien ca, ca devient plus chaud, faut ptet bien faire une gestion specifique en amont  ...

mer**    
 
pcq c'est lourd de devoir retourner sur la touche , alors que tout le reste se tape avec le pave numerique ... le . est bcp simple du coup ...