Exemple de programme dans Excel VBA qui calcule l’impôt sur un revenu

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.

S’abonner
Notifier de
0 Commentaires
le plus ancien
le plus récent le plus populaire
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x