Algo VBA Simulation PEE

Version imprimable

10/06/2013, 15h08
pierre24

1 pièce(s) jointe(s)

Algo VBA Simulation PEE
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:

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...
11/06/2013, 08h32
pierre24

Je vois que mon affaire n'inspire grand monde ! 8O
11/06/2013, 10h07
Invité

Citation:

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.
11/06/2013, 10h47
pierre24

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.
11/06/2013, 11h07
Invité

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.
11/06/2013, 11h27
pierre24

Non, cela ne serait pas gênant...
11/06/2013, 11h56
pierre24
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 :cry:

Autre question : Puis-je écrire en vba :
Code:

1 2 3 4 5 6 7 If 701 <= cumul <= 900 and cumul_1 < 400 then [...] End if
11/06/2013, 11h58
Invité

Avec des select case, cela devrait être quand même lisible.

Cordialement.
11/06/2013, 11h59
Marc-L

Bonjour,

pour cela consulter l'aide VBA de l'instruction Select Case ! …

Edit : Eric a été plus rapide mais avec deux personnes donnant le même conseil …
11/06/2013, 12h24
BlueMonkey
Bonjour,

Juste pour répondre à la question (indépendamment des conseils sur Select Case ;) ):
Citation:
Envoyé par pierre24

Autre question : Puis-je écrire en vba :

Code:

1 2 3 4 If 701 <= cumul <= 900 [...] then [...] End if
On peut l'écrire ... ça compile ... mais ne fait pas ce qu'on croit :aie:.
VBA évalue d'abord 701 <= cumul puis compare le résultat de cette expression (donc Vrai / Faux) à <= 900.
Et comparer Vrai / Faux à un entier ...

A+
11/06/2013, 13h29
Invité
Citation:

Envoyé par pierre24

[/code]

Quelle est la règle de gestion s'il y a plusieurs versements sur un mois ?
- Il y a une seule opération comptable ou information du salarié pour l'ensemble ?
- Chaque versement fait l'objet d'une opération comptable ou information du salarié ?
Suivant la réponse, le tableau pourrait être simplifié.

Cordialement.
11/06/2013, 13h35
pierre24

Ce tableau nous sert à contrôler les abondements mois par mois.

En général un seul versement mensuel est réalisé. A part lors du 13 mois ou l'on vient rajouter la somme...
11/06/2013, 13h36
pierre24

Il faut que l'on essaie de garder une vue globale sur tous les mois.
11/06/2013, 13h43
Invité

Citation:

Envoyé par pierre24

Il faut que l'on essaie de garder une vue globale sur tous les mois.

Je voulais simplement savoir si le calcul de l'abondement mensuel pouvait figurer sur une ligne plutôt qu'une colonne à chaque mois. Question visibilité, tu aurais une vue sur toute l'année sur ton écran, alors qu'aujourd'hui, tu n'en vois que la moitié. A moins que tu sois équipé d'un écran 21" ou 24".

Cordialement.
11/06/2013, 13h59
pierre24

Ah oui d'accord. Et bien, je préfère garder le mois par mois car effectivement le salarié peut changer son versement de manière ponctuelle. La mise en page du tableau m'allait bien comme cela. Apres si une autre mise en page peut résoudre le problème de l'abondement de mes tranches, pourquoi pas opter pour autre...

Pour le choix du Select Case, je veux bien l'utiliser mais je ne vois pas quel case sélectionner, étant donné que mes conditions ont toujours deux paramètres qui sont cumul et cumul_1...

A moins que je puisse écrire cela ?

Code:

1
2
3
4
5
6
 
Select Case cumul And cumul_1
 
Case cumul < 400 And cumul_1 > 700:
 
...

Citation:

Envoyé par pierre24

A moins que je puisse écrire cela ?

Code:

1
2
3
4
5
6
 
Select Case cumul And cumul_1
 
Case cumul < 400 And cumul_1 > 700:
 
...

Je n'ai pas vérifié pour l'instant la logique du code, il se peut qu'il y ait des erreurs mais cela pourrait donner cela :

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
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
 
Function Abondement(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%
 
                    Abondement = Versement * 1.5
 
            Case Is > 400, Is <= 700 'Abondement 135%
 
                    Select Case Cumul_1
 
                           Case Is <= 400 'Abondement lorsque changement de tranche 150% vers 135%
                                    Part135 = (Cumul - 400) * 1.35
                                             Part150 = (Versement - (Cumul - 400)) * 1.5
 
                                             Abondement = Part135 + Part150
 
                                             'Test de l'abondement maximal 1296€
                                            CumulA = CumulAbondement + Abondement
 
                                             If CumulA > AbondementMaximal Then Abondement = AbondementMaximal - CumulAbondement
 
                            Case Is > 400 'Abondement 135%
 
                                Abondement = Versement * 1.35
                                CumulA = CumulAbondement + Abondement
                                If CumulA > AbondementMaximal Then Abondement = AbondementMaximal - CumulAbondement
 
 
                    End Select
 
            Case Is > 700, Is <= 900 'Abondement 110%
 
                    Select Case Cumul_1
                         Case Is <= 700  'Abondement lorsque changement de tranche 135% vers 110%
 
                                     Part110 = (Cumul - 700) * 1.1
                                     Part135 = (Versement - (Cumul - 700)) * 1.35
 
                                     Abondement = Part110 + Part135
 
                                     'Test de l'abondement maximal 1296€
                                     CumulA = CumulAbondement + Abondement
                                     If CumulA > AbondementMaximal Then Abondement = AbondementMaximal - CumulAbondement
 
                        Case Is > 700 'Abondement 110%
 
                                    Abondement = Versement * 1.1
 
                                   ' Exit Function
 
                                    'Test de l'abondement maximal 1296€
                                     CumulA = CumulAbondement + Abondement
                                     If CumulA > AbondementMaximal Then Abondement = AbondementMaximal - CumulAbondement
 
                        End Select
 
 
 
 
            Case Is > 900, Is <= 1000 'Abondement 75%
 
                        Select Case Cumul_1
                         Case Is <= 900
                                    Part075 = (Cumul - 900) * 0.75
                                    Part110 = (Versement - (Cumul - 900)) * 1.1
 
                                    Abondement = Part075 + Part110
 
                                    'Test de l'abondement maximal 1296€
                                    CumulA = CumulAbondement + Abondement
                                    If CumulA > AbondementMaximal Then Abondement = AbondementMaximal - CumulAbondement
 
                        Case Is > 900
                                    Abondement = Versement * 0.75
 
                                   'Test de l'abondement maximal 1296€
                                    CumulA = CumulAbondement + Abondement
                                    If CumulA > AbondementMaximal Then Abondement = AbondementMaximal - CumulAbondement
                        End Select
 
            Case Is > 1000 'Abondement lorsque changement de tranche 75% vers 0%
 
                If Cumul_1 <= 1000 Then
 
                        Part075 = (Versement - (Cumul - 1000)) * 0.75
 
                        Abondement = Part075
 
                        'Test de l'abondement maximal 1296€
                        CumulA = CumulAbondement + Abondement
                        If CumulA > AbondementMaximal Then Abondement = AbondementMaximal - CumulAbondement
 
 
                End If
 
      End Select
End Function

L'avantage du Select case, est que tu bornes lisiblement tes limites.

Cordialement.

11/06/2013, 14h31
pierre24

Oui c'est clairement plus lisible... Merci encore pour votre aide...

Par contre j'ai un avertissement de référence circulaire la cellule Abdt Janvier et cumul Abdt de Janvier par exemple...

De plus le code ne permet pas d'abonder correctemenr=t dans le cas de Novembre par exemple, puisque mon cumul < 400 donc il abonde à 150%, alors qu'il faudrait abonder à 150, puis 135, etc...

Je vais regarder tout cela ...
Merci pour les pistes...
Je reviendrais vers vous
11/06/2013, 14h41
Invité

Citation:

Envoyé par pierre24

Oui c'est clairement plus lisible... Merci encore pour votre aide...

Par contre j'ai un avertissement de référence circulaire la cellule Abdt Janvier et cumul Abdt de Janvier par exemple...

De plus le code ne permet pas d'abonder correctemenr=t dans le cas de Novembre par exemple, puisque mon cumul < 400 donc il abonde à 150%, alors qu'il faudrait abonder à 150, puis 135, etc...

Je vais regarder tout cela ...
Merci pour les pistes...
Je reviendrais vers vous

Il ne faut pas tenir compte de ce code car il ne correspond à rien pour l'instant. Il fallait d'abord être d'accord sur la présentation des données d'entrée pour aborder cette partie là.

Cordialement.
11/06/2013, 14h46
pierre24

Sur la forme je suis ok. Après je ne suis pas trop fan des codes imbriqués...

Il semble y avoir un problème sur les Case lorsque l'on fait plusieurs tests...

Comme le disait BlueMonkey un peu plus haut
11/06/2013, 15h13
pierre24
Le test du cumul écrit comme ceci semble mieux fonctionner.
Code:

1 2 Case 401 To 700
Dans les sous select, il ne me reste plus qu'a test dans l'ordre :

cumul_1 < 400
cumul_1 compris entre 401 et 700...
11/06/2013, 15h23
Invité
Citation:
Envoyé par pierre24

Le test du cumul écrit comme ceci semble mieux fonctionner.

Code:

1 2 Case 401 To 700

Dans les sous select, il ne me reste plus qu'a test dans l'ordre :

cumul_1 < 400
cumul_1 compris entre 401 et 700...
Bien vu ! C'est exactement ça qu'il faut faire.

Cordialement.

Le programme fonctionne !!! :ccool:

Voici donc le 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
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
 
Function Abondement(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%
 
                    Abondement = 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
 
                                Abondement = Part135 + Part150
 
                                 'Test de l'abondement maximal 1296€
                                CumulA = CumulAbondement + Abondement
 
                                If CumulA > AbondementMaximal Then Abondement = 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
 
                                Abondement = Part110 + Part135 + Part150
 
                                'Test de l'abondement maximal 1296€
                                CumulA = CumulAbondement + Abondement
                                If CumulA > AbondementMaximal Then Abondement = 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
 
 
                                Abondement = Part110 + Part135
 
                                'Test de l'abondement maximal 1296€
                                CumulA = CumulAbondement + Abondement
                                If CumulA > AbondementMaximal Then Abondement = AbondementMaximal - CumulAbondement
 
 
                            '------------------------------------------------------------------------------------------
                            Case 701 To 900 'Abondement 110%
 
                                Abondement = Versement * 1.1
 
 
                                'Test de l'abondement maximal 1296€
                                CumulA = CumulAbondement + Abondement
                                If CumulA > AbondementMaximal Then Abondement = 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
 
                                Abondement = Part075 + Part110 + Part135 + Part150
 
                                'Test de l'abondement maximal 1296€
                                CumulA = CumulAbondement + Abondement
                                If CumulA > AbondementMaximal Then Abondement = 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
 
                                    Abondement = Part075 + Part110 + Part135
 
                                    'Test de l'abondement maximal 1296€
                                    CumulA = CumulAbondement + Abondement
                                    If CumulA > AbondementMaximal Then Abondement = 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
 
                                    Abondement = Part110 + Part075
 
                                   'Test de l'abondement maximal 1296€
                                    CumulA = CumulAbondement + Abondement
                                    If CumulA > AbondementMaximal Then Abondement = AbondementMaximal - CumulAbondement
 
                            '------------------------------------------------------------------------------------------
                            Case 901 To 1000 'Abondement lorsque changement de tranche 75%
 
                                    Abondement = Versement * 0.75
 
                                   'Test de l'abondement maximal 1296€
                                    CumulA = CumulAbondement + Abondement
                                    If CumulA > AbondementMaximal Then Abondement = AbondementMaximal - CumulAbondement
 
 
 
                        End Select
 
            Case Is > 1000 'Abondement lorsque changement de tranche 75% vers 0%
 
                If Cumul_1 <= 1000 Then
 
                        Part075 = (Versement - (Cumul - 1000)) * 0.75
 
                        Abondement = Part075
 
                        'Test de l'abondement maximal 1296€
                        CumulA = CumulAbondement + Abondement
                        If CumulA > AbondementMaximal Then Abondement = AbondementMaximal - CumulAbondement
 
 
                End If
 
      End Select
End Function

Par contre, j'ai juste un petit problème de référence circulaire entre la fonction et la cellule AD2 par exemple, étant donné que AD2 dépend de D2 et que AD2 est en paramètre dans la fonction... Mais dans notre cas, il va être rare qu'un salarié soit abondé à un tranche < à 150% dès le premier mois.

Pour la petite histoire, ce système d'abondement de Plan d'épargne Entreprise a été mis en place pour ne pas défavoriser les bas salaires lors des placements... Et bien je suis assez pour, mais la complexité de ce code me laisse un peu migraineux !!! La SSII qui gère notre logiciel RH a semble t-il, encore du mal à faire fonctionner cet abondement dans notre logiciel de paye...

Encore un merci à vous et à Eric KERGRESSE pour l'intérêt et le temps passé à m'aider. Je vous en suis très reconnaissant, cela va nous permettre d'apporter des contrôles rigoureux sur les mois à venir...

A bientôt.

Calcul de l'abondement d'un plan épargne entreprise par Eric KERGRESSE EIRL

Bonsoir,

J'ai souhaité terminer ce que j'avais commencé.

La fonction AbondementTotal calcule l'abondement soit sur le total des versements cumulés pour l'année soit sur le cumul des versements d'un mois. L'abondement pour un mois est égal à la différence de l'abondement du mois M - celui du mois M-1

Le calcul réalisé par la fonction répond aux conditions de ce tableau : http://www.developpez.net/forums/att...1&d=1370984066

Le tableau de calcul se présente de la façon suivante :

http://www.developpez.net/forums/att...1&d=1370984010

La fonction est la suivante :

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
 
 
Function Abondement(ByVal Versement As Range) As Currency
 
Dim AbondementMaximal As Currency
Dim Limite1 As Currency
Dim Limite2 As Currency
Dim Limite3 As Currency
Dim Limite4 As Currency
Dim ValeurVersement As Currency
 
Dim Taux1 As Single
Dim Taux2 As Single
Dim Taux3 As Single
Dim Taux4 As Single
 
      AbondementMaximal = 1296.8
 
      Limite1 = 400#
      Limite2 = 700#
      Limite3 = 900#
      Limite4 = 1000#
 
      Taux1 = 1.5
      Taux2 = 1.35
      Taux3 = 1.1
      Taux4 = 0.75
 
      ValeurVersement = CCur(Versement.Value)
 
      Abondement = 0#
      Select Case ValeurVersement
            Case Is <= Limite1  ' Abondement à 150%
                 Abondement = ValeurVersement * Taux1
            Case Limite1 + 1 To Limite2  'Abondement 135%
                 Abondement = Limite1 * Taux1 + (ValeurVersement - Limite1) * Taux2
            Case Limite2 + 1 To Limite3   'Abondement 110%
                 Abondement = Limite1 * Taux1 + (Limite2 - Limite1) * Taux2 + (ValeurVersement - Limite2) * Taux3
            Case Limite3 + 1 To Limite4 'Abondement 75%
                 Abondement = Limite1 * Taux1 + (Limite2 - Limite1) * Taux2 + (Limite3 - Limite2) * Taux3 + (ValeurVersement - Limite3) * Taux4
                 If Abondement > AbondementMaximal Then Abondement = AbondementMaximal
            Case Is > Limite4
                 Abondement = AbondementMaximal
      End Select
 
End Function

Cordialement.

12/06/2013, 09h31
pierre24

Merci pour ce code simplifié mais je vais rester sur la première solution.
Cela m'a pris déjà beaucoup de temps et comme nous gérons une grosse quantité de salarié, il est mieux d'avoir une ligne à chaque fois.

A bientôt.

Voici le code finalisé et qui fonctionne

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

12/06/2013, 10h31
Invité

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.
12/06/2013, 10h54
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...

De plus, dans la logique, si j'abonde le 400ieme euro à 150 %, je ne peux l'abonder à 135% sur la tranche suivante...
12/06/2013, 11h00
Invité

Citation:

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...:zekill:

Cordialement.
12/06/2013, 11h07
pierre24

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.
12/06/2013, 11h15
pierre24

Je me suis trompé vous avez raison... :mouarf:

La brochure a été simplifiée, mais reste tout de même fausse...
11/03/2014, 15h06
pierre24

1 pièce(s) jointe(s)

Création ligne automatique tableau en fonction d'une liste

Bonjour,

il y a quelques temps, j'avais sollicité le forum pour m'aider à créer un algo assez prise de tête concernant un calcul d'abondement d'un plan d'épargne entreprise (PEE). Je rappelle sommairement le principe : en fonction d'un versement mensuel sur ce PEE, un abondement est calculé en fonction de plusieurs tranches (onglet Tableau des tranches)

Aujourd'hui mon problème est autre.

J'aimerais que ce tableau soit automatiquement crée en fonction d'un nombre de salarié répertorié dans une liste (feuil1 du fichier ci-joint). Autrement dit, en fonction de la mise à jour de cette liste, le nombre de ligne du tableau se met à jour automatiquement.

De plus, il me faudrait garder les totaux en bas de tableau.

Je n'ai jamais construit des tableaux de cette manière. Je ne sais comment m'y prendre.

A votre dispo pour des précisions supplémentaires si besoin.

Par avance merci.
PS : fichier joint