XL 2019 Formule de calcul automatique de l'impôt sur le revenu

[Bana XIII]

Bonjour

Je sollicite toute aide pour l'élaboration d'une formule de calcul automatique de l'impôt sur le revenu.

Tous les détails de ma quête sont résumés dans le fichier PDF joint.

Merci cordialement!

 

[soan]

Bonjour Bana XIII,

Je te laisse lire mon post #3.

soan

 

[sylvanu]

Bonjour Bana,Soan,
En PJ un essai à vérifier.

 

[soan]

Bonjour Bana XIII, sylvanu,

Même si ce sujet est ancien et date du 21 septembre 2020, je propose quand même le fichier ci-joint.​

Image qui est à la fin de ton fichier pdf :

* saisis en E9 : 97 000 ➯ en F9 : 1 540
* saisis en E9 : 213 000 ➯ en F9 : 9 660
* saisis en E9 : 760 000 ➯ en F9 : 108 083
* saisis en E9 : 829 000 ➯ en F9 : 125 333

* efface E9 (touche Suppression) ➯ rien en F9

formule en F9 : =SI(E9="";"";Impôt(E9))

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

soan

 

[JBARBE]

Bonjour à tous,
Je faisais des formules chaque année suivant les critères que les impôts nous donnait !
Je ne le fait plus car ses critères changent tout le temps et ne le sont pas toujours dans la feuille d'impôts !
Bonne journée !

 

[JBARBE]

Re,
Un fichier qui me servait pour le calcul de l'impôt jusqu'en 2016 puisqu' ensuite il était impossible d'avoir les critéres pour faire ses calculs !
Bonne journée !