Probleme programme Maxdrawdown

Bonjour à tous

Je suis en train de travailler sur un calcul de maximum drawdown : un instrument financier permettant de calculer la perte maximum si on avait investi au plus mauvais moment

L'idée c'est d'avoir une plage de valeur et de calculer le maxDD via une fonction VBA

Mon code doit pas etre loin d'être bon mais j'ai une erreur #Valeur!, pouvez vous me dire si vous reperer quelque chose qui cloche car là je ne vois pas très bien :

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

Option Explicit   Function Maxdrawdown(TheRange As Range) As Double   Dim i, n As Integer Dim diff, maximum As Double   Maxdrawdown = 0 i = 0 maximum = TheRange(1, 1) n = TheRange.Rows.Count   For i = 0 To n - 1   If TheRange(i + 1, 1) > maximum Then maximum = TheRange(i + 1, 1) End If   diff = (maximum - Range(i + 1, 1)) / maximum   If (diff > Maxdrawdown) Then Maxdrawdown = diff End If   Next i   End Function

---

Merci beaucoup d'avance

peut être la déclaration de la variable diff

en déclarant diff comme tu l'as fait diff est un variant et non un double.
Il faut écrire:

Code:

---

dim diff as double, maximum as double

---

ensuite la ligne

Code:

---

diff = (maximum - Range(i + 1, 1)) / maximum

---

ne s'écrirait pas comme ça?

Code:

---

diff = (maximum - TheRange(i + 1, 1)) / maximum

---

Ou comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function Maxdrawdown(TheRange As Range) As Double Dim i As Integer Dim Diff As Double, Maximum As Double, MaxTemp As Double   For i = 1 To TheRange.Rows.Count Maximum = Application.Max(Maximum, TheRange(i, 1)) Diff = IIf(Maximum <> 0, (Maximum - TheRange(i, 1)) / Maximum, Diff) MaxTemp = Application.Max(MaxTemp, Diff) Next i Maxdrawdown = MaxTemp End Function

---

Merci beaucoup pour vos réponses

Cependant je ne comprends pas le problème de déclaration de mon diff as double ?

Effectivement quand je le déclare en Variant le programme tourne très bien.

Merci encore

Cordialement