FORUM Tom's Hardware » Programmation » VB / VBA / VBS » Programme VBA de calcul d'impots
 

Programme VBA de calcul d'impots

Il y a 317 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici
Ajouter une réponse



 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet : Programme VBA de calcul d'impots
 
Plus d'informations

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??

Horizon pas net, reste à la buvette
Plus d'informations

Salut ,
Si j'ai un peu de temps je veux bien te donner un coup de pouce.
Quel est ton problème

Plus d'informations

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
 

zeb
Profil : Modérateur libre
Plus d'informations

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.


---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
Plus d'informations

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  

Code :
  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 :  
 

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


 
Ou  

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


 
 
Ensuite quelques trucs qui cloque :
 

Code :
  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)
 

Code :
  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


---------------
S'il n'y a pas de solution c'est qu'il n'y pas de problème
Plus d'informations

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)


Aller à :
Ajouter une réponse
  FORUM Tom's Hardware » Programmation » VB / VBA / VBS » Programme VBA de calcul d'impots
 

Annonces Google
Publicité
Les ressources relatives