erreur d'execution 13 incompatibilité de type

Amis du forum bonjour :P,

Je souhaiterai solutionner un détail sur la ligne de code suivante :

Code:

---

1 2 3 4 5 6 7 8

Private Sub ZtxtQte_Change()   If ZtxtPrxUnit.Value = "" Then ZtxtMontant.Value = "" Else ZtxtMontant.Value = ZtxtPrxUnit.Value * ZtxtQte.Value End If End Sub

---

Les formats de ZtxtMontant et ZtxtPrxUnit sont définit comme suit :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ZtxtMontantDu_Change()   ZtxtMontantDu.Value = Format(ZtxtMontantDu, "0.00") End Sub   Private Sub ZtxtPrxUnit_Change()   ZtxtPrxUnit.Value = Format(ZtxtPrxUnit, "0.00") End Sub

---

Voici mon problème :
Lorsque je saisie une valeur 0,0 dans le champ de texte (ZtxtQte) tout va bien, mais lorsque je souhaite écrire cette même valeur sous le format 0.0, un message d'erreur apparait : Erreur d'exécution 13 incompatibilité de type.

La solution doit être simple, mais vu mon niveau débutant je ne la connais pas.

Quelqu'un a t-il une piste?

Merci.

Apparemment, tu fais des opérations arithmétiques avec des valeurs texte. Je ne sais pas quelle ligne est en erreur. Utilise :

Code:

---

CDbl(ZtxtMontant.Value) = CDbl(ZtxtPrxUnit.Value) * CDbl(ZtxtQte.Value)

---

PS. avec VBA, il faut utiliser le point comme symbole décimal, la virgule étant le symbole des milliers.

Merci Daniel.C pour ta réponse

La ligne qui induit une erreur est la suivante :

Code:

---

ZtxtMontant.Value = ZtxtPrxUnit.Value * ZtxtQte.Value

---

avec ta modife j'ai une erreur de compilation erreur de synthaxe.

Il me manque peut être des instructions ?
je n'ai jamais utilisé CDbl...

Code:

---

1 2 3 4 5 6 7 8

Private Sub ZtxtQte_Change()   If ZtxtPrxUnit.Value = "" Then ZtxtMontant.Value = "" Else CDbl(ZtxtMontant.Value) = CDbl(ZtxtPrxUnit.Value) * CDbl(ZtxtQte.Value) End If End Sub

---

Peux-tu m'aiguiller ?

Au temps pour moi :

Code:

---

ZtxtMontant.Value = CDbl(ZtxtPrxUnit.Value) * CDbl(ZtxtQte.Value)

---

Bonjour

Citation:

---

Envoyé par Daniel.C

PS. avec VBA, il faut utiliser le point comme symbole décimal, la virgule étant le symbole des milliers.

---

Pas forcement, sa depend de la version de ton systeme. Et tu peux même la modifier dans Option>Avancé>Utiliser séparateur système, ou autre

Donc rattus(c'est pas un héro de livre pour enfant?), je te suggère de vérifier quel est ton spérateur

Bonjour nchal,

Je ne parle pas d'Excel mais de VBA. Ce dernier utilise les symboles US et ce n'est pas négociable :( Par contre, le point décimal VBA sera automatiquement traduit dans Excel suivant ce qui est défini soit dans les options régionales de Windows, ou dans les options Excel.