Discussion :

[DeeGri]

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.

[aalex_38]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[DeeGri]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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