Discussion :

[ibowl77]

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

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Bonsoir,
j'ai copié/collé et testé, les Max1, max2, etc. ne sont pas déclarés ou prennent t'ils leur valeurs ?

[Zekraoui_Jakani]

j'ai la même question que casefayere; en plus je constate que les variables sont soit de type LONG, soit DOUBLE, pourquoi les déclarer comme string ?

Quoi qu'il en soit, en insérant un bouton (form controls) dans ta feuille, XL va te demander de lui assigner ton code/macro, en supposant que tu as l'option "developer" (je m'excuse, j'ai une version US de XL) dans le ruban/menu. Cette option est activable via les options de XL (rubrique customize Ribbon).

[Menhir]

Sous Access ou Excel, ça, ça ne peut pas marcher :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Max1 < Range("I5") < Max2 Then

On ne peut mettre qu'un seul comparateur par comparaison.

Il faut écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Max1 < Range("I5") And  Range("I5") < Max2 Then

Idem, bien sûr, pour les lignes suivantes.

Mais il vaudrait mieux mettre une structure Select Case, ce serait plus clair (ou, au pire, des Else If).

Autre détail : tu ne traites pas le cas < Max1.

Beaucoup plus gênant : tu ne traites pas non plus le cas où ton Range est = à l'un des Max.
Attention aux effets de bord.