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