Covariance en VBA

[frouipop]

Bonjour à tous,

Je débute en VBA et je dois réaliser une macro qui fait la chose suivante

ouvrir une feuille excel
calculer une covariance sur la fauille ouverte et la recopier dans une cellule de la feuille courante.
fermer la feuille excel

J'ai trouvé comment ouvrir et fermé mais par contre pour la covariance j'ai des problèmes. Après quelque recherches j'ai abouti à la formule :

ThisWorkbook.Worksheets("Sheet1").Cells(B3)Value = ws.Application.WorksheetFunction.Covariance(Range("C8:C1007");Range("D81007))

Et il me dit qu'il est pas d'accord avec le séparateur entre les deux Range

J'en ai très besoin car je suis déjà en retard donc merci beaucoup d'avance pour votre aide

 

[frouipop]

Re : Covariance en VBA

Excuser moi il a mis un smiley alors que voulais écrire
ThisWorkbook.Worksheets("Sheet1").Cells(B3)Value = ws.Application.WorksheetFunction.Covariance(Range( "C8:C1007");Range("D8; D1007))

 

[ROGER2327]

Re : Covariance en VBA

Bonjour

n'est pas un séparateur reconnu par VBA.
Mais il y a peut-être une autre explication.​

Bon courage !
ROGER2327

 

[MichelXld]

Re : Covariance en VBA

Bonsoir,


Tu dois utiliser la fonction en anglais et la virgule comme séparateur :

Application.WorksheetFunction.Covar(Range("C8:C1007"), Range("D8:D1007"))

bonne soirée
michel

 

[ROGER2327]

Re : Covariance en VBA

Re... et plus sérieusement :

ThisWorkbook.Worksheets("Feuil1").Cells(3, 2).Value = Application.WorksheetFunction.Covar(Range("C8:C1007"), Range("D8:D1007"))

ROGER2327

 

[frouipop]

Re : Covariance en VBA

Bonjour,

Merci pour votre réponse il a l'air de connaitre covar. Par contre je voudrais que les cellules de ma feuille actuelle soit modifié mais que le calcul s'éffectue sur une feuille que j'ai ouverte. Mon code est :

FilePath = ThisWorkbook.Worksheets("Sheet1").Range("A1").Value

Set wb = Workbooks.Open(FilePath)

Set ws = wb.Worksheets("Terminal Cash Flows")

ThisWorkbook.Worksheets("Sheet1").Cells("B4").Value = ws.Application.WorksheetFunction.Covar(Range("C8:C1007"), Range("D81007"))

Pour le moment il me dit qu'il y a une incompatibilité de type qui vient je pense du ws.Application mais je ne sais pas comment faire.

 

[MichelXld]

Re : Covariance en VBA

Bonsoir,

La feuille de calcul (variable Ws) doit être précisée pour chaque plage indiquée dans la fonction :

ThisWorkbook.Worksheets("Sheet1").Cells("B4").Value = _
    Application.WorksheetFunction.Covar( _
    Ws.Range("C8:C1007"), Ws.Range("D8:1007"))

bonne soirée
michel

 

[frouipop]

Re : Covariance en VBA

Merci pour ta réponse, j'avais trouvé une méthode pour résoudre mon problème