pb de calcul

[Christ33]

bonjour à tous,

je me permet une nouvelle fois de venir vers vous, car j'ai un pb de calcul.

voici mon code

'**********************************************************************************
' Commande de l'onglet coût
'**********************************************************************************

Private Sub cout_destruction_Change() 'Permet de renseigner sur le coût en cas _
de Destruction

End Sub

Private Sub TextBox2_Change() 'Permet d'entrer le nombre de pièce _
défectueuse
End Sub

Private Sub Prix_unitaire_Change() 'Permet d'entrer le coût unitaire de _
la pièce
End Sub

Private Sub Cout_MO_Change() 'Permet de rentrer la valeur du coût _
de la main d'oeuvre
End Sub

Private Sub Frais_admin_Change() 'Permet de rentrer la valeur des _
frais administratif
End Sub

Private Sub Montant_HT_Change() 'Indique le montant HT

Montant_HT = Montant_HT.Text

End Sub

Private Sub Calcul_Click() 'Bouton de calcul( effectue le calcul _
des éléments précédents)

Montant_HT = (TextBox2.Value * Prix_unitaire.Value) + Cout_MO.Value + Frais_admin.Value + cout_destruction.Value

Montant_TTC = Montant_HT * "1,196"

Montant_TTC_USD = Montant_HT * 1.4529

End Sub

Private Sub Montant_TTC_Change() 'Indique la valeur TTC du montant en €

Range("d177") = Montant_TTC.Value 'Renseigne la valeur TTC du montant en _
€ sur le rapport
End Sub

Private Sub Montant_TTC_USD_Change() 'Indique la valeur TTC du montant en $

Range("h177") = Montant_TTC_USD.Value 'Renseigne la valeur TTC du montant en _
$ sur le rapport
End Sub

lors de l'affichage il m'indique 4.76 pour le montant TTC € avec les valeurs:1,1,1,1,1 ce qui est correct

mais lors de l'affichage dans la cellule c 177 il m'indique 4760 €

J'ai besoin d'aide merci pour mettre la cellule c 177 à 4.760

 

[kjin]

Re : pb de calcul

Bonjour,
Il me semble qu'en lisant Lien supprimé avant de poster tu augmenteras tes chances d'obtenir une réponse claire
A+
kjin