Calcul de commission par tranches

 
Bonjour Tominou64,

Tu as écris : « Le calcul de la colonne commission est illogique. » ; or c'est normal
si yg_be a strictement suivi les remarques incluses dans ton fichier joint, car ces
remarques ne sont pas entièrement conformes au principe d'application d'un
barème par tranches ! La 2ème solution que je t'ai proposée applique bien ce
principe, et je pense que les résultats que j'ai obtenus sont corrects.

Je te propose de lire mon message #26, qui te sera sûrement très utile,
et je compte sur toi pour me donner ton avis.

Cordialement.  😊
 

Donc comment calculer les comme puisque les conditions en colonne I
ne seront plus les mêmes

Je rajouterais qu'elles seront les conditions des trimestres suivants

Je ne connais pas Excel sur Mac, seulement sur PC ; ce que tu indiques n'est
pas arrivé sur mon Excel 2007 ; places-toi sur la cellule en question, fais < F2 >
pour passer en mode modification de cellule, ne change rien et valide par
< Entrée >, puis dis-moi si tu as un résultat plus cohérent. Si oui : c'est réglé ;
sinon : c'est peut-être une histoire de format des pourcentages ? Tu peux
aussi faire < Ctrl >< F9 > pour forcer le recalcul de la feuille. À te lire.

 
D'abord, je corrige une erreur que j'ai écris : pour forcer le recalcul de la feuille
avec mon Excel 2007, ce n'est pas < Ctrl >< F9 > mais : < Ctrl >< Alt >< F9 >
 
Dans la colonne I "Commission", j'ai ces résultats de I3 à I12 :

12 540,00 €
15 180,00 €
16 060,00 €
17 380,00 €
18 640,00 €
23 750,00 €
27 950,00 €

Soit un total de 131 500,00 €

Comme tu as écris : « c'est un chiffre en dizaines de milliards », je pense que
tu dois avoir ces mêmes nombres × 100. Pour les 4 taux de F17 à F20, si je
met un format Standard, j'ai : 0,22 ; 0,26 ; 0,32 ; 0,35. Je crois que si toi tu
mets un format Standard, tu auras sur ton Excel Mac : 22 ; 26 ; 32 ; 35.

Donc soit tu changes ces 4 nombres pour mettre 0,22 ; 0,26 ; 0,32 ; 0,35 ;
soit il faut laisser tel que et changer ainsi la macro (supprime tout le code
précédent et fais un copier coller de ce nouveau code VBA) :

Option Explicit


Function Commission(CA As Currency) As Currency
  Dim comX As Currency, com1 As Currency, com2 As Currency, com3 As Currency
  If CA < [E17] Then             ' CA < 80 000
    comX = CA * [F17] / 100      ' CA × 22 %
  Else                           ' CA >= 80 000
    com1 = [E17] * [F17] / 100   ' 80 000 × 22 % = 17 600
    If CA < [E18] Then           ' CA < 90 000
      ' 17 600 + (84 000 - 80 000) × 26 %
      comX = com1 + (CA - [E17]) * [F18] / 100
    Else                         ' CA >= 90 000
      ' (90 000 - 80 000) × 26 % = 10 000 × 26 % = 2 600
      com2 = ([E18] - [E17]) * [F18] / 100
      If CA < [E19] Then         ' CA < 100 000
        ' 17 600 + 2 600 + (95 000 - 90 000) × 32 %
        comX = com1 + com2 + (CA - [E18]) * [F19] / 100
      Else                       ' CA >= 100 000
        ' (100 000 - 90 000) × 32 % = 10 000 × 32 % = 3 200
        com3 = ([E19] - [E18]) * [F19] / 100
        ' 17 600 + 2 600 + 3 200 + (113 000 - 100 000) × 35 %
        ' 23 400 + (13 000 × 35%) = 23 400 + 4 550 = 27 950
        comX = com1 + com2 + com3 + (CA - [E19]) * [F20] / 100
      End If
    End If
  End If
  Commission = comX
End Function

Tu verras que j'ai ajouté « / 100 » après chaque [F17] à [F20].
À te lire pour savoir si ça règle ton problème.