XL 2019 Reformuler plusieurs formules SI

fanfan38

XLDnaute Barbatruc

• 5 Février 2021

• #2

Bonjour
Si j'ai tout compris en F3
=SI(A3<=350000;2000;SI(A3<=400000;A3*5/100;SI(A3<=500000;A3*10/100;SI(A3<=600000;A3*15/100;A3*20/100))))

A+ François

 

Vote positif 0 Vote négatif

kdet

XLDnaute Occasionnel

• 5 Février 2021

• #3

fanfan38 à dit:

Bonjour
Si j'ai tout compris en F3
=SI(A3<=350000;2000;SI(A3<=400000;A3*5/100;SI(A3<=500000;A3*10/100;SI(A3<=600000;A3*15/100;A3*20/100))))

A+ François

Cliquez pour agrandir...

Re,

Merci à vous François de votre réponse mais je n'obtiens pas le même résultat. j'ai mis un nouveau exemple dans le fichier joint.

Kdet

 

Pièces jointes

• Simulation Calcul IRSA.xlsx

  23.9 KB · Affichages: 5

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 5 Février 2021

• #4

Bonjour kdet, François,

Je propose le fichier Excel ci-joint.

VB:

Function Impôt(R@) As Currency
  Dim B@, T@, I@, n As Byte
  Do
    With [B4].Offset(n)
      T = .Value: B = WorksheetFunction.Min(T, R)
      I = I + (B - Val(.Offset(-1))) * .Offset(, 1) / 100
    End With
    n = n + 1
  Loop Until R < T Or T = 0
  Impôt = Round(I, 2)
End Function

soan

 

Pièces jointes

• Exo kdet.xlsm

  16.2 KB · Affichages: 3

Vote positif 0 Vote négatif

kdet

XLDnaute Occasionnel

• 5 Février 2021

• #5

re,

Merci Soan pour votre réponse. Méthode rapide avec VBA. peut-être que je me suis mal exprimer. Dans mon fichier j'ai effectué des calculs IRSA à partir d'un tableau (comme dans l'exemple dans mon fichier). mon souci c'est que je n'arrive pas, à partir des formules dans le tableau, tout en reprenant les formules dans l'exemple pour les remettre en ligne (en additionnant ou autres méthodes) car il y a plusieurs salariés.

Merci à vous

kdet

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 5 Février 2021

• #6

@kdet

Comme y'a plusieurs salariés, il suffit de recopier la formule vers le bas. Je te propose d'envoyer un fichier plus représentatif, sans données confidentielles, avec plusieurs salariés dont tu auras mis des données fictives.

Note que mon fichier précédent avec 2 exemples était déjà valable pour 2 salariés, en E7:F8 ; si tu envoies ton fichier, j'essayerai de faire l'adaptation adéquate.​

edit : voilà, c'est fait dans mon post #12.

soan

 

Dernière édition: 5 Février 2021

Vote positif 0 Vote négatif

kdet

XLDnaute Occasionnel

• 5 Février 2021

• #7

re,

Je vous joins mon nouveau fichier et vous remercie de votre aide.

kdet

 

Pièces jointes

• Simulation Calcul IRSA.xlsx

  25.5 KB · Affichages: 4

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 5 Février 2021

• #8

Bonjour à tous,

J'ai essayé de n'utiliser que la base imposable en "A3", à vérifier.

VB:

=SI($A$3<350001;2000;SOMMEPROD(({350001;400001;500001;600001}<=$A$3)*(({400000;500000;600000;1000000}<$A$3)*{0,05;0,1;0,15;0,2})*({400000;500000;600000;1000000}-{350001;400001;500001;600001}))+($A$3-INDEX($B$4:$B$7;EQUIV(A3;{350001;400001;500001;600001})))*CHOISIR(EQUIV(A3;{350001;400001;500001;600001});0,05;0,1;0,15;0,2))

JHA

 

Pièces jointes

• Simulation Calcul IRSA.xlsx

  18.8 KB · Affichages: 2

Vote positif 0 Vote négatif

kdet

XLDnaute Occasionnel

• 5 Février 2021

• #9

@ JHA,

Merci de votre aide. je regarde et reviens vers vous dès que possible.

kdet

 

Vote positif 0 Vote négatif

kdet

XLDnaute Occasionnel

• 5 Février 2021

• #10

@ JHA,

je reviens vers car il y un hic. je joins mon fichier.

 

Pièces jointes

• Simulation Calcul IRSA.xlsx

  24.3 KB · Affichages: 3

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 5 Février 2021

• #11

Bonjour à tous,

En effet, je m'étais arrêté à 1 000 000 j'ai modifié à 10 000 000.
Qui gagne tout cela?

JHA

 

Pièces jointes

• Simulation Calcul IRSA (1).xlsx

  18.8 KB · Affichages: 3

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 5 Février 2021

• #12

@kdet

Je te retourne le fichier de ton post #7.

VB:

Function Impôt(R@) As Currency
  Dim B@, T@, I@, n As Byte
  Do
    With [Simulation!A16].Offset(n)
      T = .Value: B = WorksheetFunction.Min(T, R)
      I = I + (B - Val(.Offset(-1))) * .Offset(, 1) / 100
    End With
    n = n + 1
  Loop Until R < T Or T = 0
  Impôt = Round(I, 2)
End Function

soan

 

Pièces jointes

• Simulation Calcul IRSA v3.xlsm

  26.7 KB · Affichages: 3

Dernière édition: 5 Février 2021

Vote positif 0 Vote négatif

kdet

XLDnaute Occasionnel

• 5 Février 2021

• #13

@ JHA

Vous remercie pour votre retour. je teste et reviens vers vous.

A+
kdet

 

Vote positif 0 Vote négatif

kdet

XLDnaute Occasionnel

• 5 Février 2021

• #14

@ soan,

Merci de ton aide. je vais essayer de ton comprendre ton code car le VBA c'est pas mon point fort.

kdet

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Février 2021

• #15

Bonjour.
Vérifiez à tout hasard si cette formule ne donnerait pas le résultat que vous voudriez obenir, le montant à analyser étant supposé en B51 :
En C51 :

Code:

=MAX(2000;5%*$B51-15500;10%*$B51-35500;15%*$B51-60500;20%*$B51-90500)

 

Vote positif 0 Vote négatif