Attribuer des valeurs à des cellules Excel depuis vba

Version imprimable

Bonjour,
Je cherche à transférer des valeurs obtenue depuis une macro vba sur une feuille Excel mais l'erreur #VALEUR apparaît. J'ai créé un code plus simple pour comprendre le mécanisme mais ça ne marche pas non plus :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Option Explicit Function mult(chf As Double) As Double Dim i As Integer Worksheets("Feuil1").Activate For i = 1 To 10 mult = mult + chf * i Worksheets("Feuil1").Range("A" & i).Value = mult Next i End Function
Le but serait que les valeur de "mult" de chaque i se trouve dans la Feuille "Feuil1" et dans les cellules A1, A2 etc.

Je vous remercie d'avance !

Bonjour,

Pense a utiliser la balise code, ça le rend bien plus lisible.

Pas de soucis chez moi avec ta macro:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Option Explicit Function mult(chf As Double) As Double Dim i As Integer Worksheets("Feuil1").Activate For i = 1 To 10 mult = mult + chf * i Worksheets("Feuil1").Range("A" & i).Value = mult Next i End Function Sub test() mult (2.5) End Sub
Quand je lance macro de test j'ai bien les résultats de A1 à A10 et sans erreur

Merci!

Par ailleurs je n'arrive toujours pas à implémenter ça dans mon vrai code... (J'ai coupé des parties qui ne sont pas importantes pour cette question mais le code marche)

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
Option Explicit
Public Function AvoirEpargne(Risk1 As String, Risk2 As String, Prime As Double, rend As Double, BirthDate As Date, gender As String, DateCalcul As Date, RiskAjout As String, _
AgeAjout As Double, RiskRetrait As String, ageRetrait As Double, AgeRetraitCap As Double) As Variant
 
Dim PrimeRisk1() As Double
Dim PrimeRisk2() As Double
Dim CumulAvoir As Double
Dim AvoirAnnee() As Double
Dim vecteur(4) As Variant
Dim CapitalAcquis As Double
 
Dim AvoirPrev As Double
Dim age As Double
Dim NmbMoisRetraite As Integer
 
Dim ArrayRisk1 As Range
Dim ArrayRisk2 As Range
 
Dim AgeRetraite As Integer
 
Dim j As Integer
Dim i As Integer
 
Dim colonne As Integer
 
'Paramètres frais
Dim FraisFixes As Double
Dim FraisPrimes As Double
Dim FraisAvoir As Double
Dim AugmPrimeAnnee As Double
 
FraisFixes = 100
FraisPrimes = 0.05
FraisAvoir = 0.004
AugmPrimeAnnee = 0.01  'Taux d'augmentation des primes par années
 
If gender = "F" Then colonne = 2 Else colonne = 3
 
'Calcul de l'âge exact
age = Year(DateCalcul) - Year(BirthDate) + Month(DateCalcul) / 12 - Month(BirthDate) / 12
 
'Age Retraite en fonction du genre
 
If gender = "F" Then AgeRetraite = 64 Else AgeRetraite = 65
 
'Calcul du nombre de mois avant retraite
 
NmbMoisRetraite = ((AgeRetraite - age) * 12)
 
ReDim PrimeRisk1(NmbMoisRetraite)
ReDim PrimeRisk2(NmbMoisRetraite)
 
 
'Definition des plages ou rechercher les primes de risque en fonction des offres chosie
 
Set ArrayRisk1 = ThisWorkbook.Sheets(Risk1).Range("A1:C100")
Set ArrayRisk2 = ThisWorkbook.Sheets(Risk2).Range("A1:C100")
 
 
' Création Array pour les primes de risk 1 & 2 et pour l'avoir de chaque année
 
For j = 1 To NmbMoisRetraite
    PrimeRisk1(j) = Application.WorksheetFunction.VLookup(Int(age + i / 12), ArrayRisk1, colonne, False) * (1 + AugmPrimeAnnee) ^ (j - j + j / 12.1)
    PrimeRisk2(k) = Application.WorksheetFunction.VLookup(Int(age + k / 12), ArrayRisk2, colonne, False) * (1 + AugmPrimeAnnee) ^ (j - j + j / 12.1)
Next j
 
 
' Calcul avoit total mensuel
 
For l = 1 To NmbMoisRetraite
    AvoirAnnee(l) = Prime - PrimeRisk1(l) - PrimeRisk2(l)  - FraisPrimes * (PrimeRisk1(l) + PrimeRisk2(l) ) - FraisFixes / 12
Next l
 
'Boucle Calcul de l'avoir à la retraite
 
CumulAvoir = 0
 
For i = 1 To NmbMoisRetraite
CumulAvoir = CumulAvoir * (1 + rend / 12) ^ (1 / 12) + AvoirAnnee(i) * (1 - FraisAvoir / 12)
Next i

En gros j'aimerai que les valeurs de CumulAvoir (dernière ligne du code) apparaissent directement dans la feuille "réserves"

J'ai essayé avec le code =

Code:

1
2
3
4
For i = 1 To NmbMoisRetraite
CumulAvoir = CumulAvoir * (1 + rend / 12) ^ (1 / 12) + AvoirAnnee(i) * (1 - FraisAvoir / 12)
Worksheets("réserves").Range("A"&i).value = CumulAvoir
Next i

une idée ? :)

Vérifie le contenu de chaque variable pour voir là où ça se passe mal

Code:

1
2
3
4
5
6
7
8
9
10
For i = 1 To NmbMoisRetraite
debug.print CumulAvoir 
debug.print rend 
debug.print AvoirAnnee(i)
debug.print FraisAvoir 
debug.print CumulAvoir 
 
CumulAvoir = CumulAvoir * (1 + rend / 12) ^ (1 / 12) + AvoirAnnee(i) * (1 - FraisAvoir / 12)
Worksheets("réserves").Range("A"&i).value = CumulAvoir
Next i

15/03/2022, 11h53
hellor

Les variables semblent toutes fonctionner d'après la fenêtre exécution

Par ailleurs ce code me renvoie l'erreur #VALEUR!
15/03/2022, 13h27
halaster08

Peux tu montrer le code complet par lequel tu appelles cette fonction

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
Option Explicit
Public Function AvoirEpargne(Risk1 As String, Risk2 As String, Prime As Double, rend As Double, BirthDate As Date, Gender As String, DateCalcul As Date) As Variant
 
Dim PrimeRisk1() As Double
Dim PrimeRisk2() As Double
Dim CumulAvoir As Double
Dim AvoirAnnee() As Double
Dim vecteur(3) As Variant
 
 
Dim AvoirPrev As Double
Dim age As Double
Dim NmbMoisRetraite As Integer
 
 
Dim ArrayRisk1 As Range
Dim ArrayRisk2 As Range
 
Dim AgeRetraite As Integer
 
Dim j As Integer
Dim i As Integer
Dim k As Integer
Dim l As Integer
Dim colonne As Integer
 
'Paramètres frais
Dim FraisFixes As Double
Dim FraisPrimes As Double
Dim FraisAvoir As Double
Dim AugmPrimeAnnee As Double
 
FraisFixes = 100
FraisPrimes = 0.05
FraisAvoir = 0.004
AugmPrimeAnnee = 0.01  'Taux d'augmentation des primes par années
 
 
 
If Gender = "F" Then colonne = 2 Else colonne = 3
 
 
'Calcul de l'âge exact
age = Year(DateCalcul) - Year(BirthDate) + Month(DateCalcul) / 12 - Month(BirthDate) / 12
 
 
'Age Retraite en fonction du genre
 
If Gender = "F" Then AgeRetraite = 64 Else AgeRetraite = 65
 
 
'Calcul du nombre de mois avant retraite
 
NmbMoisRetraite = ((AgeRetraite - age) * 12)
 
ReDim PrimeRisk1(NmbMoisRetraite)
ReDim PrimeRisk2(NmbMoisRetraite)
ReDim AvoirAnnee(NmbMoisRetraite)
 
'Definition des plages ou rechercher les primes de risque en fonction des offres chosie
 
Set ArrayRisk1 = ThisWorkbook.Sheets(Risk1).Range("A1:C100")
Set ArrayRisk2 = ThisWorkbook.Sheets(Risk2).Range("A1:C100")
 
 
' Création Array pour les primes de risk 1 & 2 et pour l'avoir de chaque année
 
For j = 1 To NmbMoisRetraite
    PrimeRisk1(j) = Application.WorksheetFunction.VLookup(Int(age + j / 12), ArrayRisk1, colonne, False) * (1 + AugmPrimeAnnee) ^ (j - j + j / 12.1)
     PrimeRisk2(j) = Application.WorksheetFunction.VLookup(Int(age + j / 12), ArrayRisk2, colonne, False) * (1 + AugmPrimeAnnee) ^ (j - j + j / 12.1)
     AvoirAnnee(j) = Prime - PrimeRisk1(j) - PrimeRisk2(j) - FraisPrimes * (PrimeRisk1(j) + PrimeRisk2(j)) - FraisFixes / 12
Next j
 
 
'Boucle Calcul de l'avoir à la retraite
 
CumulAvoir = 0
 
For i = 1 To NmbMoisRetraite
CumulAvoir = CumulAvoir * (1 + rend / 12) ^ (1 / 12) + AvoirAnnee(i) * (1 - FraisAvoir / 12)
Next i
 
vecteur(0) = CumulAvoir
 
 
'Calcul du capital accumulé à l'age de la retraite dont on a besoin pour couvrir toutes les primes futures jusqu'à l'âge final choisi
 
Dim AgeFinal As Integer
Dim tEscompte As Double
Dim t As Integer
Dim s As Integer
 
 
AgeFinal = 80
tEscompte = 0#
 
 
Dim NmbMoisApresRetraite As Integer
Dim PrimeRiskR1() As Double
Dim PrimeRiskR2() As Double
Dim AvoirAnneeR() As Double
Dim CapitalAcc As Double
 
 
NmbMoisApresRetraite = (AgeFinal - AgeRetraite) * 12
 
ReDim PrimeRiskR1(NmbMoisApresRetraite)
ReDim PrimeRiskR2(NmbMoisApresRetraite)
ReDim AvoirAnneeR(NmbMoisApresRetraite)
 
 
For t = 1 To NmbMoisApresRetraite
    PrimeRiskR1(t) = Application.WorksheetFunction.VLookup(Int(AgeRetraite + t / 12), ArrayRisk1, colonne, False) * (1 + AugmPrimeAnnee) ^ (t - t + t / 12.1)
    PrimeRiskR2(t) = Application.WorksheetFunction.VLookup(Int(AgeRetraite + t / 12), ArrayRisk2, colonne, False) * (1 + AugmPrimeAnnee) ^ (t - t + t / 12.1)
Next t
 
 
'Boucle Calcul de l'avoir dont on a besoin à la retraite pour couvrir tous les couts futurs
 
CapitalAcc = 0
 
For s = 1 To NmbMoisApresRetraite
    CapitalAcc = CapitalAcc + (PrimeRiskR1(s) + PrimeRiskR2(s)) * (1 / (1 + tEscompte)) ^ (s / 12)
Next s
 
vecteur(1) = CapitalAcc
 
AvoirEpargne = vecteur
 
'épargne qui correcpond à celle qu'il faut pour rembourser l'écart de primes futures
 
Dim CapitalAcc2 As Double
Dim w As Integer
 
CapitalAcc2 = 0
 
For w = 1 To NmbMoisApresRetraite
CapitalAcc2 = CapitalAcc2 + (PrimeRiskR1(w) + PrimeRiskR2(w) - Prime) * (1 / (1 + tEscompte)) ^ (s / 12)
Next w
 
 
vecteur(2) = CapitalAcc2
 
AvoirEpargne = vecteur
 
 
 
End Function

Voilà le code complet. La ligne qui nous intéresse est la 80 :D

15/03/2022, 13h53
halaster08
Citation:

Envoyé par hellor

Voilà le code complet. La ligne qui nous intéresse est la 80

Ca c'est le code de la fonction, moi je te demande le code qui l'appelle

Pour ton premier exemple moi j'avais utiliser ça:
Code:

1 2 3 Sub test() mult (2.5) End Sub
15/03/2022, 14h02
hellor

Alors justement c'est ça qui me manque... Je n'ai aucune idée de comment faire ça

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
Sub RI()
Dim Risk11 As String
Dim Risk22 As String
Dim Prime1 As Double
Dim rend1 As Double
Dim BirthDate1 As Date
Dim gender1 As String
Dim DateCalcul1 As Date
Dim RiskAjout1 As String
Dim AgeAjout1 As Double
Dim RiskRetrait1 As String
Dim ageRetrait1 As Double
Dim AgeRetraitCap1 As Double
 
 
Risk11 = Worksheets("résultats").Cells("F3").Value
Risk22 = Worksheets("résultats").Cells("F4").Value
Prime1 = Worksheets("résultats").Cells("F5").Value
rend1 = Worksheets("résultats").Cells("F6").Value
BirthDate1 = Worksheets("résultats").Cells("I3").Value
gender1 = Worksheets("résultats").Cells("I4").Value
DateCalcul1 = Worksheets("résultats").Cells("C2").Value
RiskAjout1 = Worksheets("résultats").Cells("I10").Value
AgeAjout1 = Worksheets("résultats").Cells("I11").Value
RiskRetrait1 = Worksheets("résultats").Cells("I14").Value
ageRetrait1 = Worksheets("résultats").Cells("I15").Value
AgeRetraitCap1 = Worksheets("résultats").Cells("F14").Value
 
Call AvoirEpargne(Risk11, Risk22, Prime1, rend1, BirthDate1, gender1, DateCalcul1, RiskAjout1, AgeAjout1, RiskRetrait1, _
ageRetrait1, AgeRetraitCap1)
 
 
 
 
End Sub

J'ai essayé avec ça mais ça ne joue pas. Une idée? :)

16/03/2022, 09h45
halaster08

Oui

Au cas ça t'aurait échappé je ne dispose pas de tes données, en plus tu publies des morceaux de codes incomplets avec un nombre de variable a ta fonction qui change plusieurs fois, dans ces conditions je ne peut pas réaliser de test pertinent.
Plutôt que de dire "ça ne marche pas" il serait plus judicieux de préciser ce qui ne marche pas, un message d'erreur ? si oui lequel et a quelle ligne ; Aucun message ? Lance la macro en mode pas à pas ou met des debug.print pour vérifier ce qui bug
16/03/2022, 09h51
hellor

être un expert confirmé ne rend, apparemment, pas très aimable.
Vous comprenez certainement que les données que je traite sont sensibles et que je ne peux pas les partager facilement. Et que je suis justement sur ce forum car je ne comprends pas l'erreur.
Je souhaite simplement faire apparaître les valeurs de CumulAvoir pour les différents indices sur une feuille Excel.
16/03/2022, 11h21
halaster08

Citation:

Envoyé par hellor

Vous comprenez certainement que les données que je traite sont sensibles et que je ne peux pas les partager facilement. Et que je suis justement sur ce forum car je ne comprends pas l'erreur.
Je souhaite simplement faire apparaître les valeurs de CumulAvoir pour les différents indices sur une feuille Excel.

Je ne te demande pas de partager tes données, mais d'être explicite sur l'erreur que tu rencontre puisque que je peux pas faire les tests a ta place.

Pour être claire :

Mon code de base (qui fonctionne et qui me renvoie des valeurs correctes) est le suivant :

1. La partie qui nous intéresse :

Code:

1
2
3
4
5
For i = 1 To NmbMoisRetraite
 
CumulAvoir = CumulAvoir * (1 + rend / 12) ^ (1 / 12) + AvoirAnnee(i) * (1 - FraisAvoir / 12)
 
Next i

Mon but étant de renvoyer les valeurs de CumulAvoir de chaque indice sur la feuille Excel "réserves" j'ai essayé de rajouter la ligne suivante :

Code:

1
2
3
4
5
For i = 1 To NmbMoisRetraite
 
CumulAvoir = CumulAvoir * (1 + rend / 12) ^ (1 / 12) + AvoirAnnee(i) * (1 - FraisAvoir / 12)
Worksheets("réserves").Cells("A" & i).Value = CumulAvoir
Next i

Mais malheureusement ça ne me retourne aucune valeur dans la feuille "réserve" et en plus ça fait crasher ma fonction qui me sort une erreur : #VALUE!

Le code complet :

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
210
211
212
213
214
215
216
217
218
219
220
221
222
223
Option Explicit
Public Function AvoirEpargne(Risk1 As String, Risk2 As String, Prime As Double, rend As Double, BirthDate As Date, gender As String, DateCalcul As Date, RiskAjout As String, _
AgeAjout As Double, RiskRetrait As String, ageRetrait As Double, AgeRetraitCap As Double) As Variant
 
Dim PrimeRisk1() As Double
Dim PrimeRisk2() As Double
Dim PrimeRiskAjout() As Double
Dim Retrait() As Double
Dim CumulAvoir As Double
Dim AvoirAnnee() As Double
Dim vecteur(4) As Variant
Dim CapitalAcquis As Double
 
Dim AvoirPrev As Double
Dim age As Double
Dim NmbMoisRetraite As Integer
 
Dim ArrayRisk1 As Range
Dim ArrayRisk2 As Range
Dim ArrayRiskAjout As Range
Dim ArrayRetrait As Range
 
Dim AgeRetraite As Integer
 
Dim j As Integer
Dim i As Integer
Dim k As Integer
Dim l As Integer
Dim colonne As Integer
 
'Paramètres frais
Dim FraisFixes As Double
Dim FraisPrimes As Double
Dim FraisAvoir As Double
Dim AugmPrimeAnnee As Double
 
FraisFixes = 100
FraisPrimes = 0.05
FraisAvoir = 0.004
AugmPrimeAnnee = 0.01  'Taux d'augmentation des primes par années
 
If gender = "F" Then colonne = 2 Else colonne = 3
 
'Calcul de l'âge exact
age = Year(DateCalcul) - Year(BirthDate) + Month(DateCalcul) / 12 - Month(BirthDate) / 12
 
'Age Retraite en fonction du genre
 
If gender = "F" Then AgeRetraite = 64 Else AgeRetraite = 65
 
'Calcul du nombre de mois avant retraite
 
NmbMoisRetraite = ((AgeRetraite - age) * 12)
 
ReDim PrimeRisk1(NmbMoisRetraite)
ReDim PrimeRisk2(NmbMoisRetraite)
ReDim AvoirAnnee(NmbMoisRetraite)
ReDim PrimeRiskAjout(NmbMoisRetraite)
ReDim Retrait(NmbMoisRetraite)
 
'Definition des plages ou rechercher les primes de risque en fonction des offres chosie
 
Set ArrayRisk1 = ThisWorkbook.Sheets(Risk1).Range("A1:C1300")
Set ArrayRisk2 = ThisWorkbook.Sheets(Risk2).Range("A1:C1300")
Set ArrayRiskAjout = ThisWorkbook.Sheets(RiskAjout).Range("A1:C1300")
Set ArrayRetrait = ThisWorkbook.Sheets(RiskRetrait).Range("A1:C1300")
 
' Création Array pour les primes de risk 1 & 2 et pour l'avoir de chaque année
 
For j = 1 To NmbMoisRetraite
    PrimeRisk1(j) = Application.WorksheetFunction.VLookup(Int(age + j / 12), ArrayRisk1, colonne, False) * (1 + AugmPrimeAnnee) ^ (j - j + j / 12.1)
Next j
 
 
For k = 1 To NmbMoisRetraite
    PrimeRisk2(k) = Application.WorksheetFunction.VLookup(Int(age + k / 12), ArrayRisk2, colonne, False) * (1 + AugmPrimeAnnee) ^ (k - k + k / 12.1)
Next k
 
'Partie ajout en cours de route
Dim NmbMoisSansAjout As Integer
Dim m As Integer
Dim n As Integer
 
NmbMoisSansAjout = (AgeAjout - age) * 12
 
For m = 1 To NmbMoisSansAjout - 1
    PrimeRiskAjout(m) = 0
Next m
 
For n = NmbMoisSansAjout To NmbMoisRetraite
    PrimeRiskAjout(n) = Application.WorksheetFunction.VLookup(Int(age + n / 12), ArrayRiskAjout, colonne, False) * (1 + AugmPrimeAnnee) ^ (n - n + n / 12.1)
Next n
 
 
'Partie retrait en cours de route
Dim NmbMoisSansRetrait As Integer
Dim a As Integer
Dim b As Integer
 
NmbMoisSansRetrait = (ageRetrait - age) * 12
 
 
For a = 1 To NmbMoisSansRetrait - 1
    Retrait(a) = 0
Next a
 
For b = NmbMoisSansRetrait To NmbMoisRetraite
    Retrait(b) = Application.WorksheetFunction.VLookup(Int(age + b / 12), ArrayRetrait, colonne, False) * (1 + AugmPrimeAnnee) ^ (b - b + b / 12.1)
Next b
 
' Calcul avoit total mensuel
 
For l = 1 To NmbMoisRetraite
    AvoirAnnee(l) = Prime + Retrait(l) - PrimeRisk1(l) - PrimeRisk2(l) - PrimeRiskAjout(l) - FraisPrimes * (PrimeRisk1(l) + PrimeRisk2(l) + PrimeRiskAjout(l) - Retrait(l)) - FraisFixes / 12
 
Next l
 
'Boucle Calcul de l'avoir à la retraite
 
CumulAvoir = 0
 
For i = 1 To NmbMoisRetraite
 
CumulAvoir = CumulAvoir * (1 + rend / 12) ^ (1 / 12) + AvoirAnnee(i) * (1 - FraisAvoir / 12)
Worksheets("réserves").Cells("A" & i).Value = CumulAvoir
Next i
 
vecteur(0) = CumulAvoir
 
'Calcul du capital acquis
Dim NmbMoisAvRetraitCap As Double
Dim f As Integer
 
NmbMoisAvRetraitCap = (AgeRetraitCap - age) * 12
 
For f = 1 To NmbMoisAvRetraitCap
    CapitalAcquis = CapitalAcquis * (1 + rend / 12) ^ (1 / 12) + AvoirAnnee(f) * (1 - FraisAvoir / 12)
 
 
Next f
 
vecteur(3) = CapitalAcquis
 
'Calcul du capital accumulé à l'age de la retraite dont on a besoin pour couvrir toutes les primes futures jusqu'à l'âge final choisi
 
Dim AgeFinal As Integer
Dim tEscompte As Double
Dim t As Integer
Dim u As Integer
Dim v As Integer
Dim s As Integer
Dim o As Integer
Dim g As Integer
 
AgeFinal = 80
tEscompte = 0#
 
Dim NmbMoisApresRetraite As Integer
Dim PrimeRiskR1() As Double
Dim PrimeRiskR2() As Double
Dim PrimeRiskAjoutR() As Double
Dim RetraitR() As Double
Dim AvoirAnneeR() As Double
Dim CapitalAcc As Double
 
NmbMoisApresRetraite = (AgeFinal - AgeRetraite) * 12
 
ReDim PrimeRiskR1(NmbMoisApresRetraite)
ReDim PrimeRiskR2(NmbMoisApresRetraite)
ReDim PrimeRiskAjoutR(NmbMoisApresRetraite)
ReDim AvoirAnneeR(NmbMoisApresRetraite)
ReDim RetraitR(NmbMoisApresRetraite)
 
For t = 1 To NmbMoisApresRetraite
    PrimeRiskR1(t) = Application.WorksheetFunction.VLookup(Int(AgeRetraite + t / 12), ArrayRisk1, colonne, False) * (1 + AugmPrimeAnnee) ^ (t - t + t / 12.1)
Next t
 
For u = 1 To NmbMoisApresRetraite
    PrimeRiskR2(u) = Application.WorksheetFunction.VLookup(Int(AgeRetraite + u / 12), ArrayRisk2, colonne, False) * (1 + AugmPrimeAnnee) ^ (u - u + u / 12.1)
Next u
 
For o = 1 To NmbMoisApresRetraite
    PrimeRiskAjoutR(o) = Application.WorksheetFunction.VLookup(Int(AgeRetraite + o / 12), ArrayRiskAjout, colonne, False) * (1 + AugmPrimeAnnee) ^ (o - o + o / 12.1)
Next o
 
For g = 1 To NmbMoisApresRetraite
    RetraitR(g) = Application.WorksheetFunction.VLookup(Int(AgeRetraite + g / 12), ArrayRetrait, colonne, False) * (1 + AugmPrimeAnnee) ^ (g - g + g / 12.1)
Next g
 
For v = 1 To NmbMoisApresRetraite
    AvoirAnneeR(v) = PrimeRiskR1(v) + PrimeRiskR2(v)
Next v
 
'Boucle Calcul de l'avoir dont on a besoin à la retraite pour couvrir tous les couts futurs
 
CapitalAcc = 0
 Worksheets("réserves").Activate
 
For s = 1 To NmbMoisApresRetraite
    CapitalAcc = CapitalAcc + (PrimeRiskR1(s) + PrimeRiskR2(s) + PrimeRiskAjout(s) - RetraitR(s)) * (1 / (1 + tEscompte)) ^ (s / 12)
 
Next s
 
vecteur(1) = CapitalAcc
 
AvoirEpargne = vecteur
 
'épargne qui correcpond à celle qu'il faut pour rembourser l'écart de primes futures
 
Dim CapitalAcc2 As Double
Dim w As Integer
 
CapitalAcc2 = 0
 
For w = 1 To NmbMoisApresRetraite
CapitalAcc2 = CapitalAcc2 + (PrimeRiskR1(w) + PrimeRiskR2(w) + PrimeRiskAjout(w) - Prime - Retrait(w)) * (1 / (1 + tEscompte)) ^ (w / 12)
Next w
 
vecteur(2) = CapitalAcc2
 
AvoirEpargne = vecteur
 
End Function

attribuer des valeurs à des cellules excel depuis VBA

Bonjour à tous !

je propose de glisser temporairement dans la boucle
un test sur cumul avoir = 0 avec un arrêt permettant en passant la souris sur les variables de voir laquelle aurait une valeur "non prévue"
Code:

1 2 3 4 5 6 7 8 For i = 1 To NmbMoisRetraite CumulAvoir = CumulAvoir * (1 + rend / 12) ^ (1 / 12) + AvoirAnnee(i) * (1 - FraisAvoir / 12) if CumulAvoir=0 then stop Worksheets("réserves").Cells("A" & i).Value = CumulAvoir Next
poursuivre le code par F8

16/03/2022, 13h02
hellor

Bonjour !! Merci pour la réponse.

Alors je ne comprends vraiment tout mais en tous cas, en mettant ce code, l'erreur #VALEUR! apparaît toujours et de plus, le rajout du :

Code:

If CumulAvoir = 0 then stop

Ne change pas les valeurs retournées par ma fonction. :?