Mettre sous forme exponentielle
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:
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
Bonjour,
Pas trop regardé ton code mais pour répondre à ta question
je souhaite qu'elle soit 1000*1.05, puis 1000*1.05*1.05 etc donc sous forme exponentielle
je verrais bien :
montant = montant * 1.05^nb_annees
eric
Pourquoi poster sur plusieurs forums sans attendre 48h sans réponse et ne donner suite que sur 1 seul ?
Tu cherches à ce que l'on fuit tes questions ?
eric
non pas du tout Eric, désolé pour le retard, j'ai voulu te répondre, la réponse s'est limitée à un forum, car la connexion a coupé