Calcul covariance glissante - problème

Bonjour à tous,

je rencontre un problème dans le code qui va suivre indiquant que la propriété covariance n'est pas gérée pour cet objet, je ne comprends pas pourquoi et une aide me serait vraiment utile.

Cells.Find(What:=date_trois_ans, After:=ActiveCell, LookIn:=xlFormulas, LookAt _

:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

False, SearchFormat:=False).Activate

ActiveCell.Offset(0, 2).Activate

ligne_depart = ActiveCell.Row

dernligne = Range("A" & Rows.Count).End(xlUp).Row

Sheets("Perf").Activate

col = Range("C" & CStr(ligne_depart) & ":C" & CStr(dernligne)).Select

Cells(4, 9).Value = Application.WorksheetFunction.Covar(col, Sheets("Perf_CAC").col)

surement que je ne renseigne pas les bons types mais j'ai tout testé et après un jour passé dessus je ne vois toujours pas ...

N'hésitez pas si mon code n'est pas clair

merci beaucoup à tous

bonjour,

essaie ceci

col = "C" & CStr(ligne_depart) & ":C" & CStr(dernligne)
Cells(4, 9).Value = Application.WorksheetFunction.Covar(Sheets("perf").Range(col), Sheets("Perf_CAC").Range(col))

J'y crois pas merci beaucoup ca fait 6 heures que je galérais dessus !!

Franchement merci !!

J'ai un nouveau problème que j'avais pas mentionné j'attendais déjà de résoudre le précédent :

Cells(6, 9).Value = Application.WorksheetFunction.Sqr(Application.WorksheetFunction.Var(Sheets("Perf_CAC").Range(col)))

pourquoi n'est ce pas possible ? des fonctions de fonction sont-elles possibles en vba ?

merci bcp

Bonjour,

essaie ceci

Cells(6, 9).Value = Sqr(Application.WorksheetFunction.Var(Sheets("Perf_CAC").Range(col)))