Discussion :

[rattus34]

Amis du forum bonjour ,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Daniel.C]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[rattus34]

Merci Daniel.C pour ta réponse

La ligne qui induit une erreur est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Daniel.C]

Au temps pour moi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nchal]

Bonjour

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

[Daniel.C]

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.