Discussion :

[Emilie1609]

Bonjour à tous,

Je souhaiterais savoir si on peut utiliser un barème dans le générateur d'expression pour un champs calculé.
Sinon est-on obligé de recourir à une requête, et dans ce cas comment peut-on la mettre en place ?

Voici le barème en question : un taux est applicable selon une tranche de prix
- 0 jusqu'à 750 euros
- 4% pour la tranche du prix jusqu’à 50 000 euros
- 3% pour la tranche du prix comprise entre 50 000,01 euros et 200 000 euros
- 1% pour la tranche du prix comprise entre 200 000,01 euros et 350 000 euros
- 0.5% pour la tranche du prix comprise entre 350 000,01 euros et 500 000 euros
- 0.25% pour la tranche du prix excédant 500 000,01 euros.
Le montant est plafonné à 12 500 euros, soit un prix excédant 2000000 euros

Sur Excel j'utilisais la fonction Si avec beaucoup d'éléments imbriqués, mais lorsque je le transpose sur Access la taille du générateur d'expression est trop petite pour contenir toute ma formule.

Code :

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

VraiFaux([droitdesuite]=Non;0;VRAIFAUX([montantTTC]>2000000;12500; VRAIFAUX([montantTTC]> 500000;8750+([MONTANTTTC]-500000)*0,0025;VRAIFAUX([MONTANTTTC]>350000;8000+([MONTANTTTC]-350000)*0,005; VRAIFAUX([MONTANTTTC]>200000;6500+([MONTANTTTC]-200000)*0,01 ; VRAIFAUX([MONTANTTTC]>50000;2000+([MONTANTTTC]-50000)*0,03; VRAIFAUX([MONTANTTTC]>=750;[MONTANTTTC]*0,04;0))))))))

[madefemere]

Bonjour,

Question de maintenance, j'utiliserais la fonction correspondante enregistrée dans un module (à adapter bien sûr) :

Code :

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
Public Function calculBaremeIf(prPrix As Double) As Double
Dim Bareme As Double
If prPrix <= 750 Then
    Bareme = 0.05
    ElseIf prPrix <= 50000 Then
        Bareme = 0.04
        ElseIf prPrix <= 200000 Then
            Bareme = 0.03
            ElseIf prPrix <= 350000 Then
                Bareme = 0.01
                ElseIf prPrix <= 500000 Then
                    Bareme = 0.005
                    ElseIf prPrix <= 1000000 Then
                        Bareme = 0.0025
Else
    Bareme = 0
End If
calculBaremeIf = Bareme
End Function

Cordialement.

[hyperion13]

Salut
Il y aurait une autre approche.
Créer une tbl palier avec 2 valeurs d'entrée et une valeur de sortie
bMin / bMax / bareme
Et à l'aide d'une req, calculer le bareme

Code :

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

RechDom("bareme";"tblPalier";"" & Int([Montant]) & " Between bMin And bMax")

[Emilie1609]

Merci pour votre aide.
Malheureusement je n'ai pas réussi à utiliser ces solutions, j'ai encore beaucoup de choses à apprendre pour réussir utiliser ACCESS correctement.
- Pour la première solution, je ne sais pas où saisir le code pour que cela fonctionne
- Pour la seconde, j'ai essayé d'utiliser la formule mais sans succès. Je dois faire une erreur quelque part.

[hyperion13]

Salut
- le code de madefemere est à copier/coller dans un module standard dans l'environnement vba
- en pj un exemple avec tbl palier (à adapter selon ton ihm)

[Emilie1609]

Merci beaucoup, j'ai réussi avec la formule.
Mon erreur était due au fait que j'avais affiché la table avec le barème, mais comme elle n'a pas de relations avec les autres tables de la requête, cela générait une erreur. Or la formule permet d'aller rechercher l'information sans que la table n’apparaisse dans la requête.

Encore un problème résolu grâce à vous.