Calcul d'une remise commerciale
A
Bonsoir,
Petit soucis avec ce code :
Private Sub PRIXTOTREM_change()
Call PRIXTOTREMCalcul
End Sub
Private Sub PRIXTOTREMCalcul() 'Calcul le Prix total * Remise
If zero.Value = True Then
PRIXTOTREM.Value = PRIXTOT * 1
ElseIf dix.Value = True Then
PRIXTOTREM.Value = PRIXTOT * 0.9
ElseIf vingt.Value = True Then
PRIXTOTREM.Value = PRIXTOT * 0.8
ElseIf trente.Value = True Then
PRIXTOTREM.Value = PRIXTOT * 0.7
Else
PRIXTOTREM = PRIXTOT
End If
End SubAffichage "Erreur Excécution type 13 : Incompatibilité de type" et ca me met en surbrillance la zone de calcul que j'ai utilisé pour calculé le prix total remisé.
Mon code est-il erroné ?
Merci de votre aide
Bonjour,
Merci de joindre un fichier.
Cdlt