Calcul commission

Bonjour,

Pourriez-vous donner un code VBA afin de calculer une commision

Dans un textbox , je saisi le Chiffre d'affaires et je voudrais dans un autre textbox le calcul automatique de la commission.

La commission est la suivante

Si CA compris entre 0 et 200 alors commission de 7% du CA

Si Ca compris entre 200 et 400 alors commission de 6% (CA-200) en plus de la tranche 0-200 à 7%

Si CA compris entre 400 et 800 alors comm de 5% (CA - 400) en plus des tranches 0.200 à 7% et 200-400 à 6%

Si CA compris entre 800 et 2000 alors comm de 4% (CA-800) en plus des 3 tranches précitées

si CA > 2000 alors comm de 3% en plus des tranches 4 tranches précitées

Je vous remercie par avance

Bonjour le forum,

Bonjour mbbp

merci pour ton fichier Excel mais pour une macro VBA ?

edit : j'ai fait une erreur ➯ j'ai supprimé mon fichier

dhany

Merci pour ton fichier

je regarde...mais a priori pour CA de 5 000, la commission est de 184 et pas 1 126

Merci pour ton aide

bonjour,

une solution via une fonction vba

Function commission(ca)
    c = 0
    cat = ca
    taux = Array(0.03, 0.04, 0.05, 0.06, 0.07)
    tranche = Array(2000, 800, 400, 200, 0)
    For i = LBound(taux) To UBound(taux)
        If cat > tranche(i) Then c = c + (cat - tranche(i)) * taux(i): cat = tranche(i)
    Next i
    commission = c
End Function

H2So4

Merci de ta réponse. Tu peux me donner un fichier Excel pour exemple

@fabguilb

tu a écrit :

mais a priori pour CA de 5 000, la commission est de 184 et pas 1 126

* tu as raison ; j'ai fait une erreur (et même une erreur importante) ➯ j'ai supprimé le fichier de mon post précédent.

* il vaut mieux que tu prennes la solution de h2so4 (salut).

dhany

@fabguilb

suite à ta demande en MP, voici un fichier exemple avec la macro de h2so4 :

comme c'est sa macro, pense à lui mettre un ♡ !

dhany

Parfait

Merci pour votre code mais comment intégrer ce code VBA dans un userform contenant

1 / un textbox1 ou j'ai saisi le montant du CA

2 / un textbox2 ou le calcul de la commission doit être fait automatiquement à partir du montant saisi dans textbox1

Merci

bonjour,

à mettre dans ton module userform

Function commission(ca)
    c = 0
    cat = ca
    taux = Array(0.03, 0.04, 0.05, 0.06, 0.07)
    tranche = Array(2000, 800, 400, 200, 0)
    For i = LBound(taux) To UBound(taux)
        If cat > tranche(i) Then c = c + (cat - tranche(i)) * taux(i): cat = tranche(i)
    Next i
    commission = c
End Function

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox2 = commission(TextBox1)
End Sub

dhany

Merci bcp