Nous examinerons un programme dans Excel VBA qui calcule l’impôt sur un revenu. Les taux d’imposition suivants s’appliquent aux particuliers.
Revenu imposable | Impot sur les Revenu |
0-6000 | Néant |
6,001 $ – 35,000 $ | 15c pour chaque 1 $ de plus de 6 000 $ |
35,001 $ – 80,000 $ |
4350 $ plus 30c pour chaque 1 $ de plus de 35000 $
|
80,001 $ – 180,000 $ | 17 850 $ plus 38c pour chaque 1 $ de plus de 80 000 $ |
180 001 $ et plus | 55 850 $ plus 45 $ pour chaque 1 $ de plus de 180 000 $ |
1. Premièrement, nous déclarons deux variables Double. Une variable que nous appelons revenu, et une variable que nous appelons impôt.
Dim revenu As Double Dim impot As Double
2. Nous initialisons la revenu variable avec la valeur de la cellule A2 et l’arrondissons.
Revenu = Round(Range("A2").Value)
3. Nous plaçons à nouveau la valeur arrondie dans la cellule A2.
Range("A2").Value = Revenu
4. Nous utilisons l’instruction Select Case pour calculer l’impôt sur un revenu. Excel VBA utilise le revenu pour tester chaque instruction Case suivante pour voir si le code sous l’instruction Case doit être exécuté.
Select Case revenu Case Is >= 180001 impot = 55850 + 0.45 * (revenu - 180000) Case Is >= 80001 impot = 17850 + 0.38 * (revenu - 80000) Case Is >= 35001 impot = 4350 + 0.3 * (revenu - 35000) Case Is >= 6001 impot = 0.15 * (revenu - 6000) Case Else impot = 0 End Select
5. Nous écrivons la valeur de la variable impot dans la cellule B2.
Range("B2").Value = impot
6. Placez ce code dans un bouton de commande et testez-le.