Je réalise mémoire de fin d'études et étant novice en matière de programmation VBA, j'aurai besoin de votre aide.

J'ai une procédure VBA qui réalise une régression linéaire entre deux plages de cellules:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Sub regress()
 
Application.Run "ATPVBAEN.XLAM!Regress", ActiveSheet.Range("$B$2:$B$535"), ActiveSheet.Range("$D$2:$D$535"), False, True, , ActiveSheet.Range("b776"), False, False, False, False, , False
 
End Sub
Le résultat est correct mais j'aimerai que la fonction aie cette forme:
Function regress (y as range, x as range) avec y correspondant à
B2:B535 et x à D2: D535
Cela me permettrait de simplement tirer la formule par après

J'ai essayé un peu toutes les solutions mais la fonction me renvoie toujours #VALUE!


Je vous remercie d'avance pour vos réponses.