Lier un code VBA à un bouton
Bonjour,
Je voudrais effectuer un calcul d'imposition lancé par un bouton qui ressemblerait au code ci-après.
Je connais le VBA pour Access mais pas celui d'Excel !
Pour vous aider:
Fmax1 à Fmax4 sont des fourchettes et Pcent1 à Pcent5 sont les pourcentages correspondants ;
La cellule I5 contient le montant de base saisi dans la feuille ;
La variable Tax contient le résultat ;
La cellule I3 contient la valeur de Tax.
Sans vous préoccuper des formules, pouvez-vous m'indiquer la syntaxe de ce code pour qu'il soit exécuté à partir d'un bouton ?
Je vous remercie par avance.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| Private Sub CommandButton1_Click()
Dim Tax As String
Dim Fmax1 As String, Fmax2 As String, Fmax3 As String, Fmax4 As String, Fmax5 As String
Dim Pcent1 As String, Pcent2 As String, Pcent3 As String, Pcent4 As String, Pcent5 As String
Fmax1 = 7000
Fmax2 = 20000
Fmax3 = 40000
Fmax4 = 80000
Pcent1 = 0.145
Pcent2 = 0.285
Pcent3 = 0.37
Pcent4 = 0.45
Pcent5 = 0.48
If Range("I5") < Max1 Then Tax = Range("I5") * Pcent1
If Max1 < Range("I5") < Max2 Then Tax = (Fmax1 * Pcent1 + (Range("I5") - Fmax1) * Pcent2)
If Max2 < Range("I5") < Max3 Then Tax = (Fmax1 * Pcent1 + Fmax2 * Pcent2 + (Range("I5") - Fmax1 - Fmax2) * Pcent3)
If Max3 < Range("I5") < Max4 Then Tax = (Fmax1 * Pcent1 + Fmax2 * Pcent2 + Fmax3 * Pcent3 + (Range("I5") - Fmax1 - Fmax2 - Fmax3) * Pcent4)
If Range("I5") > Fmax4 Then Tax = (Fmax1 * Pcent1 + Fmax2 * Pcent2 + Fmax3 * Pcent3 + Fmax4 * Pcent4 + (Range("I5") - Fmax1 - Fmax2 - Fmax3 - Fmax3) * Pcent5)
I13 = Tax
End Sub |
