Discussion :

[Wanaka]

Bonjour,

Tout est dit dans le titre ...
En fait, j'ai un bouton dans mon Userform qui execute du code placé dans ce meme Userform.
Mais j'ai besoin de faire appel à une fonction (ou autre sub) ecrite dans un module, et qui me renverra un tableau ...
Et j'ai beau chercher, je ne trouve pas ...

Une petite idée ???

Merci d'avance !!!

[Qwazerty]

Salut

Heu si j'ai bien compris ce que tu souhaites faire

Tu as un module avec une function disons

Code :

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

MaFunc(...) As Variant

(le as variant est surement éludé puisque facultatif. et pourtant il t'aurait donné la solution je suppose.
Donc dans le code de ton bouton

Code :

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

1
2
3
4
Dim RetourMaFunc As Variant
[...]
RetourMaFunc = MaFunc(....)
[...]

RetourMaFunc contient maintenant le tableau généré et renvoyé par MaFunc. Je n'ai pas testé le code mais ce doit être ça

A++
Qwaz

[Wanaka]

Salut Qwazerty,

Je fait quelques tests pour trouver la solution, et ca donne ca en gros :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Principale()
Var = T2(10, 8)
MsgBox (Var)
End Sub
 
Function T2(Mois1 As String, Optional Mois2 As String, Optional Mois3 As String) As Variant
T2 = 5
'###Et c'est la que je voudrais renvoyer un tableau ...###
End Function

Mais je n'arrive pas à faire renvoyer un tableau ...
Est ce possible en fait ?

[Antoun]

Tu ne serais pas en train de réinventer la fonction Array() ?

[Wanaka]

Ca y est, je viens de trouver !!!
Merci Antoun, tu m'a mis sur la piste, meme si ca m'a demandé quelques essais quand meme ...
Le résultat pour si ca intéresse quelqu'un :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub T0()
'Call T1("FR", 10, 12)
aa = Too(10, 15, 20)
MsgBox ("fin")
End Sub
 
Function Too(a, b, c)
Var = Array(a, b, c)
Too = Var
End Function

Merci à tous !!

[Antoun]

et que dirais-tu de :

Code :

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

1
2
3
4
5
Sub T0()
'Call T1("FR", 10, 12)
aa = Array(10, 15, 20)
MsgBox ("fin")
End Sub