Algo VBA Simulation PEE

**pierre24** · 10/06/2013, 15h08

Bonjour à tous,

je me casse la tête à trouver un algo qui puisse simuler un système d'abondement PEE, qui fonctionne comme suit :

- Le principe est que un salarié place mensuellement et/ou une fois par an de l'argent sur un plan d'épargne et l'entreprise abonde (rémunère) ce versement selon la règle suivante :

Tranche de 0 à 400 € = abondement à 150 %
de 401 à 700 = 135%
de 701 à 900 = 110%
de 901 à 1000 = 75%

En sachant que au delà de 1000 € de placement, l'abondement ne peut dépasser la somme de 1296.80 maxi. De plus, il faut gérer les éventuels gros placement mensuels ou ponctuels, qui concerneraient 3 tranches de rémunération (placement 13 ieme mois par exemple)

C'est sur ce dernier point que je bloque. En effet, je n'arrive apparemment pas à gérer 3 tranches sur un abondement : Mon code n'est pas très lisible dsl, je ne suis pas un pro en la matière. J'ai pensé à faire une boucle "While" plutôt que tous ces "IF" les uns en dessous mais cela me semblait plus difficile.

La fonction que j'ai crée s'appelle Abdt avec comme paramètre :

Code :

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

1
2
 
abdt(cumul versement mois M, cumul versement mois-1, montant versement, cumul abondement mois M)

Joint mon fichier. Les abréviations vrst = versement et abdt = abondement.

Restant à votre écoute.

Par avance, merci de votre aide, qui me sera précieuse, je n'en doute pas...

**pierre24** · 11/06/2013, 08h32

Je vois que mon affaire n'inspire grand monde !

Invité · 11/06/2013, 10h07

Envoyé par pierre24

Bonjour à tous,

En sachant que au delà de 1000 € de placement, l'abondement ne peut dépasser la somme de 1296.80 maxi. De plus, il faut gérer les éventuels gros placement mensuels ou ponctuels, qui concerneraient 3 tranches de rémunération (placement 13 ieme mois par exemple)

C'est sur ce dernier point que je bloque. En effet, je n'arrive apparemment pas à gérer 3 tranches sur un abondement :

Bonjour Pierre,

C'est à cause de notre cerveau lent, qu'on ne te répond pas vite....

C'est vrai que ton code gagnerait plus de lisibilité si tu utilisais des Select Case plutôt que des If then. Dans ton code, il y a certains cas qui risquent de se chevaucher. Ex : tu bordes la condition Cumul > 400 puis Cumul > 400 et Cumul <= 700 idem pour la tranche 700 900. Ce n'est peut-être pas grave mais il y a un aléa.

Peux-tu expliquer ce que signifie dans ton message les placements qui concerneraient 3 tranches de rémunération ? Car on ne voit pas ces cas dans ton code.

Cordialement.

**pierre24** · 11/06/2013, 10h47

Bonjour et merci pour cette réponse.

Attention, ce n'est pas les memes cumuls que je teste :
- cumul est le cumul des versements du mois en cours
- cumul_1 est le cumul des versement du mois précédent.

Je m'explique pour les tranches :

Prenons le salarié 1 : Si on regarde les cumuls, jusqu'a Octobre, le salarié à cumulé 280 de versement. Il n'est donc concerné jusqu'à ce mois, que par la tranche de 150 % d'abondement.

Sur le mois de novembre, le salarié verse ses 28 euros mensuels et 600 à partir de son 13ieme mois. Cela fait donc un versement de 628 €.

A fin novembre, le cumul de ses versements est donc de 908 €.

Là est mon problème. Il me faut un code qui dans ce cas, va abonder (rémunérer) toutes les parties du versement en fonction des tranches. En détail :

Cumul versement Octobre = 280.
Cumul versement Novembre = 908.

Rémunération à 150 % : (400-280)*1.5

Rémunération à 135 % : (700-401)*1.35

Rémunération à 110 % : (900-701)*1.10

Rémunération à 75 % : (908-901)*0.75

Voici la logique du calcul à suivre. Sur un versement mensuel constant, cela ne pose pas tro de problème, car en général, l'abondement va passer d'une tranche à une autre (1 à 1 : exemple de 150 % à 135% ou de 110 % à 75 %).

Par contre, sur un gros versement ponctuel, il peut y avoir comme dans le cas du salarié 1, un passage de la tranche 150 % à 75 %.

Il faut donc prendre en compte 3 changements de tranches. Et là je ne vois pas, avec mon principe de test des cumuls sur les mois en cours et précédents, comment faire pour réaliser un code qui va tenir compte de cela.

Restant à votre disposition pour plus d'explications...

Merci encore.

Invité · 11/06/2013, 11h07

Serait-ce gênant d'avoir la situation d'un salarié décrite sur 3 lignes comme le montre la diapo jointe ? http://www.developpez.net/forums/att...1&d=1370941415

Sachant qu'il serait toujours possible de filtrer ligne par ligne puisque la cellule salarié ne serait pas fusionnée.

Cordialement.

**pierre24** · 11/06/2013, 11h27

Non, cela ne serait pas gênant...

**pierre24** · 11/06/2013, 11h56

En fait il faudrait que je teste 6 cas supplémentaires :

Si cumul M-1 <400 et cumul compris entre 700 et 900

Si cumul M-1<400 et cumul compris entre 901 et 1000

Si cumul M-1<400 et cumul > 1000

[...]

Si cumul M-1 compris entre 401 et 700 et cumul > 900

...

Mais je vais avoir un nombre de IF indésirable

Autre question : Puis-je écrire en vba :

Code :

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

1
2
3
4
5
6
7
 
 
If 701 <= cumul <= 900 and cumul_1 < 400 then
 
[...]
 
End if

**pierre24** · 12/06/2013, 09h42

Voici le code finalisé et qui fonctionne

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
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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
 
Function Abdt(Cumul As Currency, Cumul_1 As Currency, Versement As Currency, CumulAbondement As Currency)
 
Dim I As Integer
Dim CumulA, Part150, Part135, Part110, Part075, Part0 As Currency
Dim AbondementMaximal As Currency
 
      AbondementMaximal = 1296.8
 
      Select Case Cumul
 
 
            Case Is <= 400  ' Abondement à 150%
 
                    Abdt = Versement * 1.5
 
 
 
            Case 401 To 700  'Abondement 135%
 
                    Select Case Cumul_1
 
                           '------------------------------------------------------------------------------------------
                           Case Is <= 400 'Abondement lorsque changement de tranche 150% vers 135%
                                Part135 = (Cumul - 401) * 1.35
                                Part150 = (Versement - (Cumul - 400)) * 1.5
 
                                Abdt = Part135 + Part150
 
                                 'Test de l'abondement maximal 1296€
                                CumulA = CumulAbondement + Abdt
 
                                If CumulA > AbondementMaximal Then Abdt = AbondementMaximal - CumulAbondement
 
 
                            '------------------------------------------------------------------------------------------
                            Case Is > 400 'Abondement 135%
 
                                Abondement = Versement * 1.35
                                CumulA = CumulAbondement + Abondement
                                If CumulA > AbondementMaximal Then Abondement = AbondementMaximal - CumulAbondement
 
                    End Select
 
            Case 701 To 900 'Abondement 110%
 
                    Select Case Cumul_1
 
                            '------------------------------------------------------------------------------------------
                            Case Is <= 400  'Abondement lorsque changement de tranche 150% vers 110%
 
                                Part150 = (400 - Cumul_1) * 1.5
                                Part135 = 299 * 1.35
                                Part110 = (Cumul - 701) * 1.1
 
                                Abdt = Part110 + Part135 + Part150
 
                                'Test de l'abondement maximal 1296€
                                CumulA = CumulAbondement + Abdt
                                If CumulA > AbondementMaximal Then Abdt = AbondementMaximal - CumulAbondement
 
 
                            '------------------------------------------------------------------------------------------
                            Case 401 To 700  'Abondement lorsque changement de tranche 135% vers 110%
 
                                Part135 = (700 - Cumul_1) * 1.35
                                Part110 = (Cumul - 701) * 1.1
 
 
                                Abdt = Part110 + Part135
 
                                'Test de l'abondement maximal 1296€
                                CumulA = CumulAbondement + Abdt
                                If CumulA > AbondementMaximal Then Abdt = AbondementMaximal - CumulAbondement
 
 
                            '------------------------------------------------------------------------------------------
                            Case 701 To 900 'Abondement 110%
 
                                Abdt = Versement * 1.1
 
 
                                'Test de l'abondement maximal 1296€
                                CumulA = CumulAbondement + Abdt
                                If CumulA > AbondementMaximal Then Abdt = AbondementMaximal - CumulAbondement
 
                        End Select
 
 
 
 
            Case 901 To 1000 'Abondement 75%
 
 
 
                        Select Case Cumul_1
 
 
                            '------------------------------------------------------------------------------------------
                            Case Is <= 400  'Abondement lorsque changement de tranche 150% vers 75%
 
                                Part150 = (400 - Cumul_1) * 1.5
                                Part135 = 299 * 1.35
                                Part110 = 199 * 1.1
                                Part075 = (Cumul - 901) * 0.75
 
                                Abdt = Part075 + Part110 + Part135 + Part150
 
                                'Test de l'abondement maximal 1296€
                                CumulA = CumulAbondement + Abdt
                                If CumulA > AbondementMaximal Then Abdt = AbondementMaximal - CumulAbondement
 
                            '------------------------------------------------------------------------------------------
                            Case 401 To 700 'Abondement lorsque changement de tranche 135% vers 75%
 
                                    Part075 = (Cumul - 901) * 0.75
                                    Part110 = 199 * 1.1
                                    Part135 = (700 - Cumul_1) * 1.35
 
                                    Abdt = Part075 + Part110 + Part135
 
                                    'Test de l'abondement maximal 1296€
                                    CumulA = CumulAbondement + Abdt
                                    If CumulA > AbondementMaximal Then Abdt = AbondementMaximal - CumulAbondement
 
                            '------------------------------------------------------------------------------------------
                            Case 701 To 900 'Abondement lorsque changement de tranche 110% vers 75%
 
                                    Part110 = (900 - Cumul_1) * 1.1
                                    Part075 = (Cumul - 901) * 0.75
 
                                    Abdt = Part110 + Part075
 
                                   'Test de l'abondement maximal 1296€
                                    CumulA = CumulAbondement + Abdt
                                    If CumulA > AbondementMaximal Then Abdt = AbondementMaximal - CumulAbondement
 
                            '------------------------------------------------------------------------------------------
                            Case 901 To 1000 'Abondement lorsque changement de tranche 75%
 
                                    Abdt = Versement * 0.75
 
                                   'Test de l'abondement maximal 1296€
                                    CumulA = CumulAbondement + Abdt
                                    If CumulA > AbondementMaximal Then Abdt = AbondementMaximal - CumulAbondement
 
 
 
                        End Select
 
            Case Is > 1000 'Abondement lorsque changement de tranche 75% vers 0%
 
                        Select Case Cumul_1
 
 
                            '------------------------------------------------------------------------------------------
                            Case Is <= 400  'Abondement lorsque changement de tranche 150% vers 75%
 
                                Part150 = (400 - Cumul_1) * 1.5
                                Part135 = 299 * 1.35
                                Part110 = 199 * 1.1
                                Part075 = (1000 - 901) * 0.75
 
                                Abdt = Part075 + Part110 + Part135 + Part150
 
                                'Test de l'abondement maximal 1296€
                                CumulA = CumulAbondement + Abdt
                                If CumulA > AbondementMaximal Then Abdt = AbondementMaximal - CumulAbondement
 
                            '------------------------------------------------------------------------------------------
                            Case 401 To 700 'Abondement lorsque changement de tranche 135% vers 75%
 
                                    Part075 = (1000 - 901) * 0.75
                                    Part110 = 199 * 1.1
                                    Part135 = (700 - Cumul_1) * 1.35
 
                                    Abdt = Part075 + Part110 + Part135
 
                                    'Test de l'abondement maximal 1296€
                                    CumulA = CumulAbondement + Abdt
                                    If CumulA > AbondementMaximal Then Abdt = AbondementMaximal - CumulAbondement
 
                            '------------------------------------------------------------------------------------------
                            Case 701 To 900 'Abondement lorsque changement de tranche 110% vers 75%
 
                                    Part110 = (900 - Cumul_1) * 1.1
                                    Part075 = (1000 - 901) * 0.75
 
                                    Abdt = Part110 + Part075
 
                                   'Test de l'abondement maximal 1296€
                                    CumulA = CumulAbondement + Abdt
                                    If CumulA > AbondementMaximal Then Abdt = AbondementMaximal - CumulAbondement
 
                            '------------------------------------------------------------------------------------------
                            Case 901 To 1000 'Abondement lorsque changement de tranche 75%
 
                                    Abdt = (1000 - Cumul_1) * 0.75
 
                                   'Test de l'abondement maximal 1296€
                                    CumulA = CumulAbondement + Abdt
                                    If CumulA > AbondementMaximal Then Abdt = AbondementMaximal - CumulAbondement
 
 
 
                        End Select
      End Select
 
End Function

Eric, nous avons quelques euros d'écarts, peu être dus aux tranches...

A bientôt

Invité · 12/06/2013, 10h31

Bonjour,

Votre calcul Part135 = 299 * 1.35 n'est pas correct, il faut prendre la différence entre les deux tranches idem pour 701. Il faut distinguer la sélection que fait le select case du calcul proprement dit.

Regardez ce que j'ai fait dans ma fonction.

Cordialement.

**pierre24** · 12/06/2013, 10h54

Je ne suis pas d'accord, nos tranches sont abondés comme cela :

400*1.5 = 600

299 (soit de 401 à 700 à 135%) = 403.65

199 (soit de 701 à 900 à 110% = 218.90

99 (soi de 901 à 1000 à 75%) = 74.25

C'est le cahier des charges de l'organisme gestionnaire du PEE qui est définit comme cela... Il me semble que mon code respecte cela...

De plus, dans la logique, si j'abonde le 400ieme euro à 150 %, je ne peux l'abonder à 135% sur la tranche suivante...

Invité · 12/06/2013, 11h00

Envoyé par pierre24

Je ne suis pas d'accord, nos tranches sont abondés comme cela :

400*1.5 = 600

299 (soit de 401 à 700 à 135%) = 403.65

199 (soit de 701 à 900 à 110% = 218.90

99 (soi de 901 à 1000 à 75%) = 74.25

C'est le cahier des charges de l'organisme gestionnaire du PEE qui est définit comme cela... Il me semble que mon code respecte cela...

Pierre,

Il manque 1 euro à chaque fois. Celui entre 400 et 401, etc...

Faites gaffe les gars de ne pas aller aux prud'hommes pour ça...

Cordialement.

**pierre24** · 12/06/2013, 11h07

Je vais m'assurer de ce que vous dites... Mon raisonnement étant basé sur une brochure interne, je ne peux pas vous dire comment raisonne l'abondement sur les bulletins... Je vais creuser... Merci.

Algo VBA Simulation PEE

Excel

Vue hybride

Discussions similaires

Partager

Partager