Transformer "Sub" en "Function"

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:

---

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! :fou:


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

Je suis pas sur d'avoir tout compris, mais pour passer des paramètres il n'ya pas trop de soucis :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub lance_regress()   Ma_Regress Range("$B$2:$B$535"), Range("$D$2:$D$535")   End Sub   Sub Ma_Regress(ByVal y As Range, ByVal x As Range) Application.Run _ "ATPVBAEN.XLA!Regress", _ y, _ x, False, True, , ActiveSheet.Range("b776"), False, False, False, False, , False   End Sub

---

En fait, j'aimerai "grosso modo" quelque chose dans le genre:

Code:

---

1 2 3 4 5 6 7

Function regression (Y,X) Sub(Y,X) End Sub End Function

---

Sachant que ma Sub renvoie un tableau de 18 lignes et 8 colonnes et que le résultat qui m'intéresse principalement se trouve à l'intersection de la 17ème ligne et la 2ème colonne.

La fonction renverrai donc cette valeur.

Ca me permettrai de définir les plages de cellules directement dans la formule et ainsi n'avoir qu'à "tirer" la formule pour les autres régression que je dois réaliser.

Je ne sais pas si c'est plus clair :?