Calcul de covariance en VBA
Résolu
Oubi
-
Oubi -
Oubi -
Bonjour,
Je cherche actuellement à calculer la covariance de deux plages.
Ces plages on une taille variable qui dépend de J.
je défini mes deux plages avec cette variable J puis dans une autre cellule je souhaite donner le résultat de la covariance de ces deux plages.
La définition des plages ne fonctionne pas comme je le voudrait et je ne suis pas sur que la fonction covar soit correctement écrite.
Merci beaucoup pour votre aide
Je cherche actuellement à calculer la covariance de deux plages.
Ces plages on une taille variable qui dépend de J.
je défini mes deux plages avec cette variable J puis dans une autre cellule je souhaite donner le résultat de la covariance de ces deux plages.
La définition des plages ne fonctionne pas comme je le voudrait et je ne suis pas sur que la fonction covar soit correctement écrite.
Merci beaucoup pour votre aide
Sub covariance()
Sheets("Ratio risque").Activate
Dim j As Integer, i As Double, ptf As Range, bench As Range
j = WorksheetFunction.VLookup(Range("G1"), Sheets("Ratio risque").Range("A19:D297"), 2, False)
j = j + 18
Set ptf = Range(Cells(4, 20) & ":" & Cells(4, j))
Set bench = Range(Cells(9, 20) & ":" & Cells(9, j))
Range("C9").Activate
i = Application.WorksheetFunction.Covar(ptf, bench)
Cells("C9") = i
End Sub
2 réponses
Bonjour,
Set ptf = Range(Cells(4, 20) & ":" & Cells(4, j))
Ecrit tel que il faut que Cells(4, 20) et Cells(4, j) contiennent des adresses sous forme de chaine : B2 et E12 par exemple.
Si tu veux définir de Cells(4, 20) à Cells(4, j) alors :
Set ptf = Range(Cells(4, 20) , Cells(4, j))
eric
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.
Set ptf = Range(Cells(4, 20) & ":" & Cells(4, j))
Ecrit tel que il faut que Cells(4, 20) et Cells(4, j) contiennent des adresses sous forme de chaine : B2 et E12 par exemple.
Si tu veux définir de Cells(4, 20) à Cells(4, j) alors :
Set ptf = Range(Cells(4, 20) , Cells(4, j))
eric
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.
