Se connecter avec
S'enregistrer | Connectez-vous

Programme VBA de calcul d'impots

Dernière réponse : dans Programmation

Bonsoir!

Pour mon projet d'info dans mon école d'ingé, je dois créer une application sous VBA excel qui calcul l'impôt sur le revenu. En tant qu'élève sérieux ( ;-) ) j'ai voulu tout faire tout seul. Mais voila mon programme ne fonctionne pas alors que le compilateur n'affiche pas d'erreur de syntaxe!!! Ca fait 4 jours que jsui dessus....Quelqu'un peut il m'aider??

Autres pages sur : programme vba calcul impots

Lassé par la pub ? Créez un compte

Bonsoir!
Je te réponds un peu tard mais j'ai eu des problèmes de connexion internet. Mon problème est que mon userform ne calcule rien alors que je suis quasiment sur que mon code est bon!!! Le plus simple serait que jt'envoie par mail mon userform et le code associé.... mais voila le code associé a mon userform ( les applications sont le désordre) Merci bcp d'avance!!!

Private Sub parts_Initialize()
parts = "1"
End Sub






Private Sub abattements_Change()
abattements.Value = (salairetotal.Value) / 10

End Sub


Private Sub Calculez_Click()
If calculez.Value = False Then montantfinal.Value = ""
Else: If calculez.Value = True Then montantfinal.Value = Impotbrut.Value - reductions.Value
End Sub

Private Sub Impotbrut_Change()
If quotient_familial.Value < 4412 Then Impotbrut.Value = 0
ElseIf quotient_familial.Value > 4412 & quotient_familial.Value < 8677 Then Impotbrut.Value = (Revenuimposable.Value * 0.0683) - (301.34 * parts.Value)
ElseIf quotient_familial.Value > 8677 & quotient_familial.Value < 15274 Then Impotbrut.Value = (Revenuimposable.Value * 0.1914) - (1369.48 * parts.Value)
ElseIf quotient_familial.Value > 15274 & quotient_familial.Value < 24731 Then Impotbrut.Value = (Revenuimposable.Value * 0.2826) - (2762.47 * parts.Value)
ElseIf quotient_familial.Value > 24731 & quotient_familial.Value < 40241 Then Impotbrut.Value = (Revenuimposable.Value * 0.3738) - (5017.93 * parts.Value)
ElseIf quotient_familial.Value > 40241 & quotient_familial.Value < 49624 Then Impotbrut.Value = (Revenuimposable.Value * 0.4262) - (7126.56 * parts.Value)
ElseIf quotient_familial.Value > 49264 Then Impotbrut.Value = (Revenuimposable.Value * 0.4809) - (9841 * parts.Value)


End Sub



Private Sub parts_Change()
If Conjoint.Value = True Then parts.Value = Int(enfants.Value / 2) + 2
Else
If Conjoint.Value = False Then
parts.Value = Int(enfants.Value / 2) + 1
End Sub




Private Sub Quitter_Click()
Unload UserForm1

End Sub

Private Sub quotient_familial_Change()
quotient_familial.Value = Revenuimposable.Value / parts.Value
End Sub



Private Sub Revenuimposable_Change()
Revenuimposable.Value = salairetotal.Value - abattements.Value
End Sub

Private Sub salairetotal_Change()
If Salairevous.Value = "" & Salaireconjoint.Value = "" & Salaireenfant.Value = "" Then salairetotal.Value = ""
Else
Salaireconjoint.Value Salaireenfant.Value + Salairevous.Value = salairetotal.Value
End Sub

Expert Programmation

1°) Tu te permets de poster ton code, comme ça, sans mise en forme, au mépris des règles du forum !

2°) Tu veux un échange par mail !!!! M'enfin, c'est un site d'entraide ici, pas un forum de rencontre.


Ce n'est pas grave. Tu peux aller lire les règles et les respecter. Rafkinen ou d'autres peuvent t'aider, mais en ligne, sur le forum.

Alors déjà quelques trucs de base sur Excel.

- Tu compiles tant que tu veux mais encore faut il préciser au compilateur que tu veux une vérification "pointue", donc au début de ton form rajoute
  1. Option Explicit

Et compile, déjà tu devras déclarer tes variables.

- Le & est un opérateur de concaténation et certainement pas un ET logique. donc remplace par and.

- Les conditions If :

  1. If .... Then
  2. Else
  3. End if


Ou
  1. If ... Then
  2. Elseif then
  3. elseif then
  4. else
  5. end if



Ensuite quelques trucs qui cloque :

  1. Private Sub parts_Initialize()
  2. parts = "1"
  3. End Sub
  4. ...
  5. parts.Value = Int(enfants.Value / 2) + 1


Etre un nombre ou ne pas être telle est la question...(voir déclaration de variable)

  1. Salaireconjoint.Value Salaireenfant.Value + Salairevous.Value = salairetotal.Value


Cette ligne fait peur... si tu veux remplir salairetotal comme je l'imagine ben il va à gauche comme si c'était la phrase

Salairetotal prend pour valeur conjoint + enfant + vous.

Après toutes ses corrections, ca devrait commencer à fonctionner.
Bon courage

Bonjour,

Je m'adresse tout particulièrement à Johann, car j'aimerais savoir si tu peux m'envoyer ton programme (=codage) en VBA sur le calcul d'impôts. Ou sinon, pourrais tu le publier directement sur le forum pour que tout le monde puisse voir comment tu procèdes.

D'avance je te remercie

Guillaume (gurkhaz@hotmail.com)
Lassé par la pub ? Créez un compte