Calcul commission Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
f
fabguilb
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 6 décembre 2018
Version d'Excel : 365

Message par fabguilb » 11 février 2019, 15:08

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
Avatar du membre
mbbp
Passionné d'Excel
Passionné d'Excel
Messages : 6'351
Appréciations reçues : 236
Inscrit le : 29 mars 2014
Version d'Excel : 2007 FR

Message par mbbp » 11 février 2019, 15:29

Bonjour le forum,
Barème par tranches.xlsx
(10.42 Kio) Téléchargé 9 fois
f
fabguilb
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 6 décembre 2018
Version d'Excel : 365

Message par fabguilb » 11 février 2019, 15:49

Bonjour mbbp

merci pour ton fichier Excel mais pour une macro VBA ?
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 6'698
Appréciations reçues : 646
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 11 février 2019, 16:23

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

dhany
Modifié en dernier par dhany le 11 février 2019, 17:08, modifié 1 fois.
f
fabguilb
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 6 décembre 2018
Version d'Excel : 365

Message par fabguilb » 11 février 2019, 16:40

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
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 7'945
Appréciations reçues : 240
Inscrit le : 16 juin 2013
Version d'Excel : 2013 UK Windows 10

Message par h2so4 » 11 février 2019, 16:49

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
3 membres du forum aiment ce message.
f
fabguilb
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 6 décembre 2018
Version d'Excel : 365

Message par fabguilb » 11 février 2019, 17:03

H2So4

Merci de ta réponse. Tu peux me donner un fichier Excel pour exemple
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 6'698
Appréciations reçues : 646
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 11 février 2019, 17:11

@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
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 6'698
Appréciations reçues : 646
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 11 février 2019, 17:36

@fabguilb

suite à ta demande en MP, voici un fichier exemple avec la macro de h2so4 :
Exo fabguilb.xlsm
(14.79 Kio) Téléchargé 7 fois
comme c'est sa macro, pense à lui mettre un !   ;;)

dhany
1 membre du forum aime ce message.
f
fabguilb
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 6 décembre 2018
Version d'Excel : 365

Message par fabguilb » 11 février 2019, 17:46

Parfait
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message