[VBA] calcul dans un formlaire

Version imprimable

Bonjour,
Voici mon problème.

J'ai besoin d'effectuer des calculs à partir d'un formulaire qui parcourt tous les enregistrements d'une table.
Sur ce formulaire j'ai un champ resultat correspondant à un champs de la table et j'aimerai que chaque fois que le formulaire arrive sur un enrigistrement, le calcul de resultat se fasse et naturellement le champs resultat sera rempli.

Le resultat est calculé suivant une condition

Voici le code que j'ai écrit mais je constate que les resultats par tranches ne sont pas exacts. Quelqu'un peut m'aider à améliorer.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
Private Sub Form_Current()
Select Case Me.CHAMPSTEST .Value
 
    Case Is <= 6000 '3%
        Me.Resultat.Value = Me.CHAMPSTEST .Value * 0.03
 
    Case Is >= 6001 <= 10500 '5%
 
     Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 6001) * 0.05) + 180
 
    Case Is >= 10501 <= 17400 '10%
 
        Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 10501) * 0.1) + 404.35
 
    Case Is >= 17401 <= 27500 '15%
 
        Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 17401) * 0.15) + 1094.85
 
    Case Is >= 27501 <= 41500 '20%
 
        Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 27501) * 0.2) + 2609.7
 
    Case Is >= 41501 <= 65700 '25%
 
        Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 41501) * 0.25) + 5409.5
 
    Case Is >= 65701 <= 100000 '30%
 
        Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 65701) * 0.3) + 11459.25
 
    Case Is >= 100001 <= 140500 '35%
 
         Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 100001) * 0.35) + 21748.95
 
    Case Is >= 100001 <= 140500 '40%
 
        Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 100001) * 0.4) + 21748.95
 
    Case Is >= 174301 <= 194300 '45%
 
        Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 174301) * 0.45) + 49443.2
 
    Case Is > 194300 '50%
 
        Me.Resultat.Value = Me.CHAMPSTEST .Value * 0.3
 
End Select
 
End Sub

Merci d'avance pour votre aide.

14/04/2007, 15h06
vodiem

le plus logique serait de faire une requete
sinon un champ avec des vraifaux qui contiendrait ton calcul
mais si tu persistes:
utilise une boucle avec:

Code:

DoCmd.GoToRecord , , acFirst

next...
sur tous le enregistrement sinon:

Citation:

j'aimerai que chaque fois que le formulaire arrive sur un enrigistrement

sur l'événement 'sur activation' du form là c'est carrément: :sm:
14/04/2007, 15h20
lucienkany

Citation:

Envoyé par vodiem

sur l'événement 'sur activation' du form là c'est carrément: :sm:

Merci vodiem mais je suis désolé de te dire que je n'ai pas bien compris ce que tu a dis.

Je précise que mon formulaire parcourt bien tous les enregistrements du début à la fin. Mais les résultats des calculs ne sont pas exacts.

Bonjour.

Il y a plusieurs erreurs dans ta procédure, si j'ai compris ce que tu veux faire. Une fois corrigé de ce que j'ai vu cela donne :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub Form_Current()
Select Case Me.CHAMPSTEST .Value
 
    Case Is <= 6000 '3%
        Me.Resultat.Value = Me.CHAMPSTEST .Value * 0.03
 
    Case Is >= 6001 <= 10500 '5%
 
     Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 6000) * 0.05) + 180
 
    Case Is >= 10501 <= 17400 '10%
 
        Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 10500) * 0.1) + 404,95
 
    Case Is >= 17401 <= 27500 '15%
 
        Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 17400) * 0.15) + 1094.85
 
    Case Is >= 27501 <= 41500 '20%
 
        Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 27500) * 0.2) + 2609.7
 
    Case Is >= 41501 <= 65700 '25%
 
        Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 41500) * 0.25) + 5409.5
 
    Case Is >= 65701 <= 100000 '30%
 
        Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 65700) * 0.3) + 11459.25
 
    Case Is >= 100001 <= 140500 '35%
 
         Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 100000) * 0.35) + 21748.95
 
    Case Is >= 140501 <= 174300 '40%
 
        Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 140500) * 0.4) + 37498,60
 
    Case Is >= 174301 <= 194300 '45%
 
        Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 174300) * 0.45) + 49218.2
 
    Case Is > 194300 '50%
 
        Me.Resultat.Value = (Me.CHAMPSTEST .Value - 194300) * 0.5 + 58217,75
 
End Select
 
End Sub

Si ça ne marche toujours pas, c'est que je n'ai pas tout vu...

PGZ

14/04/2007, 16h20
lucienkany

Merci pgz

Mais peux-tu m'indiquer là où tu as modifié, je n'ai pas trouvé de différence avec mon code.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub Form_Current()
Select Case Me.CHAMPSTEST.Value
 
    Case 0 To 6000 '3%
        Me.Resultat.Value = Me.CHAMPSTEST.Value * 0.03
 
    Case 6001 To 10500 '5%
        Me.Resultat.Value = ((Me.CHAMPSTEST.Value - 6001) * 0.05) + 180
 
    Case 10501 To 17400 '10%
        Me.Resultat.Value = ((Me.CHAMPSTEST.Value - 10501) * 0.1) + 404.35
 
    Case 17401 To 27500 '15%
        Me.Resultat.Value = ((Me.CHAMPSTEST.Value - 17401) * 0.15) + 1094.85
 
    Case 27501 To 41500 '20%
        Me.Resultat.Value = ((Me.CHAMPSTEST.Value - 27501) * 0.2) + 2609.7
 
    Case 41501 To 65700 '25%
        Me.Resultat.Value = ((Me.CHAMPSTEST.Value - 41501) * 0.25) + 5409.5
 
    Case 65701 To 100000 '30%
        Me.Resultat.Value = ((Me.CHAMPSTEST.Value - 65701) * 0.3) + 11459.25
 
    Case 100001 To 140500 '35%
         Me.Resultat.Value = ((Me.CHAMPSTEST.Value - 100001) * 0.35) + 21748.95
 
    Case 140501 To 174300 '40%
        Me.Resultat.Value = ((Me.CHAMPSTEST.Value - 140501) * 0.4) + 21748.95
 
    Case 174301 To 194300 '45%
        Me.Resultat.Value = ((Me.CHAMPSTEST.Value - 174301) * 0.45) + 49443.2
 
    Case Is > 194300 '50%
        Me.Resultat.Value = Me.CHAMPSTEST.Value * 0.3
End Select
 
End Sub

j'ai remplacé is.. par des to (je trouve plus simple mais c'est pas forcement utile)
tu avais une erreur sur le 40% c'était le meme que le 35%
et plein d'espace entre Me.CHAMPSTEST(espace).Value

ps:comment as tu déterminer ces tranches et la formule de calcul?

Voici une copie de ton code avec les erreurs détectées soulignées

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub Form_Current()
Select Case Me.CHAMPSTEST .Value
    
    Case Is <= 6000 '3%
        Me.Resultat.Value = Me.CHAMPSTEST .Value * 0.03
    
    Case Is >= 6001 <= 10500 '5%
    
     Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 6001) * 0.05) + 180
    
    Case Is >= 10501 <= 17400 '10%
 
        Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 10501) * 0.1) + 404.35
    
    Case Is >= 17401 <= 27500 '15%
 
        Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 17401) * 0.15) + 1094.85
 
    Case Is >= 27501 <= 41500 '20%
    
        Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 27501) * 0.2) + 2609.7
        
    Case Is >= 41501 <= 65700 '25%
    
        Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 41501) * 0.25) + 5409.5
    
    Case Is >= 65701 <= 100000 '30%
    
        Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 65701) * 0.3) + 11459.25
        
    Case Is >= 100001 <= 140500 '35%
        
         Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 100001) * 0.35) + 21748.95
        
    Case Is >= 100001 <= 140500 '40%
    
        Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 100001) * 0.4) + 21748.95
    
    Case Is >= 174301 <= 194300 '45%
    
        Me.Resultat.Value = ((Me.CHAMPSTEST .Value - 174301) * 0.45) + 49443.2
        
    Case Is > 194300 '50%
    
        Me.Resultat.Value = Me.CHAMPSTEST .Value * 0.3        
End Select
 
End Sub

par ailleurs, je te propose une autre façon de calculer plus complexe mais plus sûre après mise au point

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Form_Current()
Dim Tranches As Variant, Taux As Variant, Reports As Variant
 
Tranches = Array(0, 6000, 10500, 17400, 27500, 41500, 65700, 100000, 145000, 174300, 194300)
Taux = Array(0.03, 0.05, 0.1, 0.15, 0.2, 0.25, 0.3, 0.35, 0.4, 0.45, 0.5)
Reports = Array(0, 180, 404.95, 1094.85, 2609.7, 5409.5, 11459.25, 21748.95, 37498.6, 49218.2, 58217.75)
 
 
For i = 1 To UBound(Tranches)
    If Me.ChampTest>= Tranches(i - 1) And Me.ChampTest < Tranches(i) Then Exit For
Next i
 
Me.resultat =  (Me.ChampTest- Tranches(i - 1)) * Taux(i - 1) + Reports(i - 1)
 
 
End Sub

Bon courage,

PGZ

14/04/2007, 17h17
vodiem

oula effectivement pgz, j'avais regardé seulement les tranches pas la partie calcul.

ta solus est pas mal encore que je pense qu'il serait préférable de mettre dans une table pour ainsi pouvoir changer plus facilement les données.

toutefois je pense que les valeurs sont le produit d'une formule logique je ne pense pas qu'ils s'agissent de valeur aléatoire. il doit être possible de tout mettre ca en une seul ligne.
14/04/2007, 17h22
pgz

Hello Vodiem!

Citation:

il doit être possible de tout mettre ca en une seul ligne.

Tu m'intéresses.

Tu montres comment tu fais?

Sinon effectivement Reports se calcule avec Tranches et taux. Mais ces deux erniers sont indépendants.

A plus,

PGZ
14/04/2007, 17h38
philben
bonjour,

une erreur avec l'utilisation de <case Is>... voir aide d'Access
Mettre plutot case XX to YY

exemple :
Code:

1 2 3 4 5 Case Is <= 6000 '3% ... Case 6001 To 10500 '5% ...
cordialement,

Philippe

Merci pgz

J'ai utilisé ton code avec les tableaux, ça marche à merveille :king: mais maintenant le formulaire ne s'arrete pas au dernier enregistrement.

Y a-t-il un probleme dans ce code.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Function ParcourirFormulaire(s As String) On Error GoTo erreur DoCmd.OpenForm s 'ouverture du formulaire Do DoCmd.GoToRecord acDataForm, s, acNext 'enregistrement suivant Loop Exit Function erreur: If Err = 2105 Then DoCmd.Close acForm, s 'fermeture sur erreur End Function
dans mon formulaire
Code:

1 2 3 4 Private Sub BtnLancer_Click() ParcourirFormulaire ("MonFrm") End Sub
Merci de regarder.

14/04/2007, 18h03
lucienkany

pgz

J'ai du modifier cette ligne pour que conformer à la logique de calcul.

Code:

Me.Calcul_test = ((Me.TAXABLE - Tranches(i - 1)) * Taux(i - 1)) + Reports(i - 1)

Citation:

mais maintenant le formulaire ne s'arrete pas au dernier enregistrement.

Il s'arrêtait avant?

Je te conseillerait de faire plutôt ainsi :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Public sub ParcourirFormulaire(s As String) Dim rst as DAO.RecordSet, frm as form DoCmd.OpenForm s 'ouverture du formulaire set frm = Forms(s) set rst = frm.RecordsetClone rst.Movefirst while not rst.EOF frm.Bookmark = rst.Bookmark rst.MoveNext Wend end sub
et donc bien sûr
Code:

1 2 3 Private Sub BtnLancer_Click() Call ParcourirFormulaire ("MonFrm") End Sub
PGZ

PGZ> Hello!

Citation:

Tu montres comment tu fais?

je disais:

Citation:

je pense que les valeurs sont le produit d'une formule logique je ne pense pas qu'ils s'agissent de valeur aléatoire.

si tu regarde un peu de plus près: les valeurs suivent une belle courbe logique autant pour les tranches que pour les reports.
soit: champ=f(x) on retrouve x=f-1(x) en prenant sont entier x0=ent(x), on obtient la valeur de base pour le calcul:
g(x)=(f(x)-f(x0))*p(x0)+h(x0)
g(x):résultat
p(x):pourcentage en fonction de x
h(x):report en fonction de x
x0: ent(f-1(x))

si lucienkany applique une certaine logique on pourrait avoir ces fonctions et obtenir le résultat en une seul ligne.

toutefois sans vouloir faire cela tu as une autre solution pour obtenir cela en une seule ligne avec la fonction VraiFaux (je suppose que tu connais :lol: donc je t'apprendrais rien):
Code:

1 2 3 4 =VraiFaux((X>=0) AND (X<=6000); Me.CHAMPSTEST.Value * 0.03; VraiFaux((X>6000) AND (X<=10500); Me.CHAMPSTEST.Value - 6001) * 0.05) + 180; VraiFaux((X>10500) AND (X<=10500); Me.CHAMPSTEST .Value - 10501) * 0.1) + 404.35; ....)))))
ca c'est pour le fun, histoire de dire que c'est fait sur une ligne ;) ... parceque pour la maj de nouvelles valeurs...:?
mais c'est mieux que de parcourir tous les enregistrements ;)

sinon si cela vous interesse random avait posté dans une discution ici
en date du 05/04/2007, 09h32
une solution pour établir des tranches aléatoires
en s'inspirant de cette logique il est possible d'obtenir une fonction qui donne le calcul par requete.
encore que... je dirais plus: il est possible d'obtenir le calcul uniquement par requete.
et ainsi disposer uniquement d'une table pour les valeurs.

mais bon sont prob est visiblement résolu bien que je ne pense pas que cela soit la meilleur facon de procéder.

15/04/2007, 11h37
pgz

Hello Vodiem.

J'ai l'impression qu'on envahit un peu la discussion de Lucien!
J'ai compris maintenant ce que tu voulais dire. Mais si on y va par là, je préfèrerais encore faire autrement :
- soit n'enregistrer que les valeurs "champtest", et calculer résultat qd j'en ai besoin,
- soit calculer et enregistrer chaque résultat à la saisie de chaque valeur de "champtest",
suivant le contexte de l'application. Et faire bien sûr la fonction de calcul avec passage du paramètre en valeur.

Bon dimanche,

PGZ
15/04/2007, 14h21
vodiem

Hello pgz, lucienkany (et les autres qui nous lit)
oui mais c'est pas incompatible avec le fait de faire en requete:

Citation:

- soit n'enregistrer que les valeurs "champtest", et calculer résultat qd j'en ai besoin

un champ calcul dans une requete, pas de stockage et le calcul se fait qd t'as besoin.

Citation:

- soit calculer et enregistrer chaque résultat à la saisie de chaque valeur de "champtest"

stoker le champ calcul de la requete par une requete "INSERT INTO" après saisie.:lol:

entre nous, faire une boucle sur l'ensemble des enregistrements à l'ouverture du form c'est le boulot d'une requete ;)

en clair pour toutes les manipulations des données je privilégie le SQL si vraiment je ne peux pas alors DAO
et je réserve le codage pour de chose plus épineux.

Bon dimanche à vous aussi.
16/04/2007, 13h50
lucienkany

Bonjour,

Après tout ce que je viens de découvrir, je suis poussé à ne plus me retenir de poser cette question.

Et si j'enregistre les taux et reports dans une table?

Comment sera le code?

Merci de m'éclairer
16/04/2007, 14h08
lucienkany

vodiem;
Je n'ai pas vu ton post avant de poster (j'ai laissé la page ouverte pendant des heures, désolé)

Citation:

faire une boucle sur l'ensemble des enregistrements à l'ouverture du form c'est le boulot d'une requete

En effet, c'est la solution que j'utilise mais ce cas était difficile pour moi;

Je m'explique:

Je travaille sur une base de données de calcul de la paie, dans laquelle je calcule aussi les provisions congés et les préavis, dans les trois cas une taxe(champstest) est prélevée et vous avez vu les taux par tranches et les reports(je n'en ai pas parlé au début mais tu l'as découvert:king: c'est ça qui me plait sur ce forum)

J'ai donc procédé comme suit (vu mon niveau en VBA)

J'ai crée une requête selection pour chaque tranche et chaque cas
11 pour la paie mensuelle
11 pour les congés
11 pour les préavis
Puis j'ai crée une requête action pour chaque tranche et chaque cas qui ajoute les données de chaque cas dans une table.

ce qui fait au total 66 requêtes.

Et lorsque je modifie quelque chose, je suis obligé de passer sur au moins 11 requêtes.

Si quelqu'un peut m'aider à écrire une seule requête par cas!

Merci encore pour votre aide
16/04/2007, 19h14
vodiem

effectivement c'est pas l'idéale, en général tant que ca marche je dirais faut pas trop se prendre la tête.

mais si tu veux vraiment tout chanbouler:
il te faut :
.une requete avec un champ supplémentaire:tranche (c'est là que réside le pb: soit par fonction soit par vraifaux soit par une autre requete)
.une autre requete qui reprend la requete précédente et qui va lier tranche avec la table contenant les taux,... par tranches. un champ supplémentaire calcul contenant la formule.

c'est pas si compliqué que ca en a l'air si tu n'arrives pas mets nous les noms des tables, le nom de leur champ.