Pb avec la fonction IRR

[pilote301152]

Bonjour,

N'étant pas très familier des tableaux, j'ai écrit le code ci-dessous en m'appuyant sur l'aide d'Excel. Malheureusement je ne comprends pas pourquoi la fonction IRR (calcul d'un taux de rendement) ne fonctionne pas !
Merci de vos conseils et explications.

Sub calculTRI()

Static valeur() As Double
Dim n
Dim taux

n = 24 'la valeur de cette variable est définie ailleurs dans le programme
ReDim valeur(n)
    valeur(0) = -100000
    valeur(1) = 0: valeur(2) = 0
For n = 3 To n - 1
    ReDim Preserve valeur(n)
    valeur(n) = 1149.2
Next n
ReDim Preserve valeur(n)
valeur(n) = 1000
taux = IRR(valeur()) * 12
MsgBox (taux)

End Sub

 

[Staple1600]

Re : Pb avec la fonction IRR

Bonsoir


Tu as lu ceci ?
XL: Utilisation de la fonction IRR dans Excel

Avec VBA, je verrai plus cette syntaxe
taux = Application.WorksheetFunction.IRR(valeur()) * 12

PS: non teste, je te laisse essayé.

 

[pilote301152]

Re : Pb avec la fonction IRR

Bonjour JM,

Je te remercie pour ta réponse mais malheureusement cela ne passe pas ; j'obtiens le message d'erreur "impossible de lire la propriété IRR".
Le pb n'est-il pas dans la façon de définir le tableau? Pourtant en utilisant la fenêtre espion express je retrouve bien les différentes valeurs !
Une autre piste svp ?

Bonne journée
JL

 

[ROGER2327]

Re : Pb avec la fonction IRR

Bonjour à tous

Écrivez

[COLOR="DarkSlateGray"][B]taux = WorksheetFunction.IRR(valeur[COLOR="Red"], -0.1[/COLOR]) * 12[/B][/COLOR]

ROGER2327
#4203

Dimanche 22 Absolu 138 (Emmanuel Dieu, SS)
8 Vendémiaire An CCXIX
2010-W39-3T09:04:02Z

 

[pilote301152]

Re : Pb avec la fonction IRR

Merci Roger pour ton astuce.
Il n'y a plus de message d'erreur ... mais le résultat obtenu était surprenant (-1,0426...) alors que j'attends un taux de 11% !

En fait j'ai modifié les valeur(n) qui étaient erronées et le résultat est OK !

Bravo donc et grand merci pour votre aide.

PS: je ne sais pas comment marqué cela comme résolu