Bonjour,

je possède la base suivante qui stipule qui'il y'a une majoration de 5 % chaque année la formule qui s'applique est la suivante, par exemple supposant que le prix en 2015 est 1000 eur, en 2016 il va être 1000*1.05, en 2016 1000*1.1

alors que dans mon cas , je souhaite qu'elle soit 1000*1.05, puis 1000*1.05*1.05 etc donc sous forme exponentielle:

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
p4 = p2 - p1
If p3 = 0 Then
p4 = 1
End If
MsgBox (p4)
MsgBox ("nb is comming")
MsgBox (RcdSt(6, i))
MsgBox (nb_Location)
e = 1.05
Erase Location
p1 = (RcdSt(6, i))
For i = 0 To nb_Location - 1
e = e * 1.05
HT = HT + (RcdSt(6, i) * e)
'MsgBox (e)
TT = TT + (RcdSt(7, i) * (1 + (Aug5 * 5 / 100)))
 
For j = 0 To 4
Location(i, j) = RcdSt(j, i)
Next j
Location(i, 5) = Format(RcdSt(5, i), "# ##0.00 m²")
Location(i, 6) = Format(RcdSt(6, i), "# ##0.00 " & Sy)
Location(i, 7) = Format(RcdSt(7, i), "# ##0.00 " & Sy)
Next i
 
majo = 1
 
HT = p1
For i = 0 To p4 - 1
majo = majo * 1.05
Next i
MsgBox ("majo now")
MsgBox (majo)
HT = HT * majo
MsgBox (HT)
 
.ListBox1.List = Location
.HT.Caption = Format(HT * multi, "# ##0.00 " & Sy)
.TTC.Caption = Format(TT * multi, "# ##0.00 " & Sy)
.Show
End With
End If
End Sub
 
Private Sub UserForm_Click()
 
End Sub
aucun avatar chermiti
Jeune membre
Jeune membre

Messages: 40
Inscription: 23 Oct 2014, 15:31
Version Excel: 2010