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)