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?