Erreur d'execution sur un poste

Résolu
Signaler
Messages postés
33
Date d'inscription
mercredi 23 février 2005
Statut
Membre
Dernière intervention
10 novembre 2006
-
Messages postés
33
Date d'inscription
mercredi 23 février 2005
Statut
Membre
Dernière intervention
10 novembre 2006
-
Bonjour, j'ai un problème en visual basic :

Je suis entrain de developper un programme pour ma boite, problème, le
programme tourne nikel sur n'importe quel machine SAUF la mienne, que
ce soit par le source ou en package ... ce qui est tres génant pou
faire les test :s !

Vb e sort une "erreur d'executio 13 , type incompatible" sur cette ligne :





Private Sub Txt_type_paiement_LostFocus(Index As Integer)

Dim vard_somme_type_paiement, vard_total_B As Double

Dim vard_total_AB_temp, vard_prelvt_jour_valeur, vard_verst_banque_valeur As Double

i = 1

For i = 1 To 14

If Txt_type_paiement(i).Text = "" Then

tabd_type_paiement_valeur(i) = 0

Else

-->
tabd_type_paiement_valeur(i) =
CDbl(Txt_type_paiement(i).Text) <--


vard_somme_type_paiement = CDbl(vard_somme_type_paiement) +
CDbl(tabd_type_paiement_valeur(i))

End If

Next i

vard_total_B = vard_somme_type_paiement

lbl_total_B.Caption = vard_total_B



If lbl_total_AB.Caption = "0.00" Then

lbl_total_AB.Caption = ""

End If

vard_verst_banque_valeur = CDbl(vard_prelvt_jour_valeur) + CDbl(tabd_type_paiement_valeur(0))

vard_total_AB_temp = CDbl(vard_verst_banque_valeur) + CDbl(lbl_total_B.Caption)

lbl_total_AB = vard_total_AB_temp

End Sub







Merci par avance !

2 réponses

Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
Peut-être lié à tes parametres régionaux réglés dans Windows (Panneau de config). Une histoire sur le séparateur décimal et/ou des milliers.

 Christophe R
3
Messages postés
33
Date d'inscription
mercredi 23 février 2005
Statut
Membre
Dernière intervention
10 novembre 2006

Merci beaucoup, c'étais bien le probleme !!!!
0