Sub dans une fonction possible?

Signaler
Messages postés
2
Date d'inscription
dimanche 21 décembre 2008
Statut
Membre
Dernière intervention
22 avril 2010
-
Messages postés
2
Date d'inscription
dimanche 21 décembre 2008
Statut
Membre
Dernière intervention
22 avril 2010
-
Bonjour à tous,

Je fais mes débuts sur VBA et j'aurai besoin d'un peu d'aide.

Je pars de cette procédure:

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


Cette procédure donne dans la cellule B776 un tableau de 18 lignes et 8 colonnes. Dans ce tableau, le résultat qui m'intéresse principalement est celui se trouvant à l'intersection de la 17e ligne et de la 2e colonne. J'aimerai donc une fonction qui retourne la valeur à cette intersection.
J'insiste sur le mot "fonction" car cela me permettrait de "tirer" la formule sur les cellules adjacentes.

Ce que j'aimerais "grosso modo" c'est une fonction du style:

Function regression( Y as range, X as range)

Sub regress(Y, X)

End Sub

End Function


Merci d'avance pour vos réponses.

2 réponses

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
116
Salut,

Non ce n'est pas possible, par contre, tu peux faire ainsi :

Private Sub regress(Y, X)

End Sub

Public Function regression( Y as range, X as range)

regress(Y, X)

End Function

______________________________________

AVANT de poster votre message, veuillez lire, comprendre, et appliquer notre réglement
Messages postés
2
Date d'inscription
dimanche 21 décembre 2008
Statut
Membre
Dernière intervention
22 avril 2010

Merci de ta réponse mais lorsque je fais comme cela, le tableau ne s'affiche pas (à partir de la cellule "B777") et donc le résultat de la fonction est égal à 0.

Y'a-t-il un moyen pour "mémoriser" le tableau produit par la Sub et seulement afficher le résultat de la cellule (17,2) de ce tableau?