Discussion :

[vanessa75]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Formula

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ZX12R]

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