XL 2019 Reformuler plusieurs formules SI

[kdet]

Bonjour à tous et à toutes, le forum,

J'ai besoin de votre aide car je n'arrive pas trouver la bonne formule pour associer plusieurs formule SI. Je vous joints mon fichier.

Vous remercions d'avance de votre aide

kdet

 

[fanfan38]

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

 

[kdet]

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

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

 

[soan]

Bonjour kdet, François,

Je propose le fichier Excel ci-joint.

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

 

[kdet]

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

 

[soan]

@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

 

[kdet]

re,

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

kdet

 

[JHA]

Bonjour à tous,

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

=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

 

[kdet]

@ JHA,

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

kdet

 

[kdet]

@ JHA,

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

 

[JHA]

Bonjour à tous,

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

JHA

 

[soan]

@kdet

Je te retourne le fichier de ton post #7. 🙂

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

 

[kdet]

@ JHA

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

A+
kdet

 

[kdet]

@ soan,

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

kdet

 

[Dranreb]

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 :

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