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))
VB:
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
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 !
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 !