none
VBA Calcul RRS feed

  • Question

  • Bonjour,

    J'ai 4 codes dont 3 qui fonctionnes.

    montant= OK

    tps= OK

    tvq= OK

    total = je ne réussi pas à faire l'addition de montants, tps et tvq

    'Montant

    Private Sub montant_AfterUpdate()
    Me.montant.Value = Format(Me.montant.Value, "# ###.00$")
    End Sub
    
    'Calcul de la TPS
    Private Sub tpspourc_AfterUpdate()
        If Me.tpspourc <= 99 Then
        Me.tpspourc.Value = "0." & Format(Me.tpspourc.Value, "####00") & "%"
        Me.tps = Val(Me.montant) * Val(Left(Me.tpspourc, Len(Me.tpspourc) - 1))
        Me.tps.Value = Format(Me.tps.Value, "# ###.00$")
        Else
        MsgBox ("Vous avez entr? le mauvais format de % !")
        Me.tpspourc = ""
        End If
    End Sub
    'Calcul de la TVQ
    Private Sub tvqpourc_AfterUpdate()
        If Me.tvqpourc <= 9999 Then
        Me.tvqpourc.Value = "0.0" & Format(Me.tvqpourc.Value, "#####00") & "%"
        Me.tvq = Val(Me.montant) * Val(Left(Me.tvqpourc, Len(Me.tvqpourc) - 1))
        Me.tvq.Value = Format(Me.tvq.Value, "# ###.00$")
        Else
        MsgBox ("Vous avez entr? le mauvais format de % !")
        Me.tvqpourc = ""
        End If
    End Sub
    
    'Somme total
    Private Sub total_AfterUpdate()
    Me.total = Val(Me.montant) + Val(Me.tps) + Val(Me.tvq)
    Me.total.Value = Format(Me.total.Value, "#####.00$")
    End Sub


    Avez-vous une idée de ce qui cloche?


    lundi 6 mai 2019 22:09