Résultat d'une formule dans une variable

[Fab]

Bonjour,
Je fais un calcul de coefficient de détemination :
ActiveCell.FormulaR1C1 = _
"=RSQ(Annexes!R[-88]C[4]:R[-85]C[4],Annexes!R[-88]C[3]:R[-85]C[3])"

Comment lui dire qu'il ne doit pas mettre le résultat dans la cellule active, mais dans la variable Var01.

Merci d'avance

 

[PhiBou]

Salut Fab, le Forum

Peut-être un début, à adapter selon tes convenances...

Sub Coef_Corrélation()
Dim myRangeY As Range
Dim myRangeX As Range
Dim Var01 as Single
Set myRangeX = Worksheets("Feuil1").Range("A1:A3")
Set myRangeY = Worksheets("Feuil1").Range("B1:B3")
Var01 = Application.WorksheetFunction.RSq(myRangeY, myRangeX)
MsgBox Var01
End Sub


Bonne soirée

PhiBou

 

[Fab]

Salut Phibou,
Merci pour le tuyau, j'ai finalement opté pour transférer mes variables sur une feuille cachée de mon classeur. La, j'ai calculé mon coefficient de détermination, j'ai mis le résultat dans une nouvelle cellule. J'ai ensuite associé le contenu de cette cellule à une nouvelle variable, retour à la feuille initiale et voila.
Ce n'est pas le plus simple (ping-pong entre plusieurs pages), mais ça marche.