Erreur d'execution sur un posteRésolu

Question

Bonjour, j'ai un probl&#232;me en visual basic :

Je suis entrain de developper un programme pour ma boite, probl&#232;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&#233;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 !

crenaud76 · Accepted Answer

Peut-&#234;tre li&#233; &#224; tes parametres r&#233;gionaux r&#233;gl&#233;s dans Windows (Panneau de config). Une histoire sur le s&#233;parateur d&#233;cimal et/ou des milliers.

&#160;Christophe R

Atomos83 · Answer

Merci beaucoup, c'&#233;tais bien le probleme !!!!

Erreur d'execution sur un poste

2 réponses

Discussions similaires