fonction excel via vba (solver)

Hey tout le monde :) !

J'ai un petit soucis, je vous explique....

J'essaie de faire une minimisation de la volatilité en utilisant le solver via vba uniquement, les pondération doivent changer pour minimiser la variance ( matrice poids qui se trouve sur la feuille "optimization" colonne D3... j'essaie donc de faire comprendre à excel comment sont reliés les calculs entre eux mais mon solveur ne fonctionne pas... il ne reconnait pas ma formule et me dit erreur définie sur l'application ou par l'objet ( à cause du code en gras) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim sqrtt As Double sqrtt = Sqr(52) Worksheets("Optimization").Range("L5").Select ActiveCell.Formula = "= " & sqrtt & " *sqrt(mmult(mmult(transpose(R[-2]C[7]:R[-2+" & c & "]C[7]),Optimization!R[-1]C[-11+" & c & "+5]:R[-1+" & c & "]C[-11+" & c & "+" & c & "+5]), R[-2]C[7]:R[-2+" & c & "]C[7])" SolverOk SetCell:="$L$5", MaxMinVal:=2, ValueOf:=0, ByChange:="r[-2]c[7]:r[-2+c]c[7]" SolverSolve End Sub

---

si quelqun a une idéee je suis prenante :)

merci beaucoup

voici mon fichier : http://www.cjoint.com/c/FCArqePcTek


VANESS ;)

Bonjour,
Sans avoir examiné la formule, je vois que tu emploies le style de référence R1C1 tout en utilisant la propriété Formula, essaye la propriété FormulaR1C1
Illustration
FormulaR1C1

Code:

---

Range("C2").FormulaR1C1 = "=RC[-2]*RC[-1]"

---

Formula

Code:

---

Range("C2").Formula = "=A2*B2"

---

Bonjour,

D'accord avec Philippe,

autre chose me gène dans ByChange:="r[-2]c[7]:r[-2+c]c[7]", c semble être une variable dans ton code mais je ne suis pas sûr qu'elle puisse passer là sous cette forme!

"..." & c & "..." me semblerait plus adapté.

Sinon je n'arrive pas à télécharger ton fichier...

Cordialement.

Bruno