Discussion :

[Eidolem]

Bonsoir à tous,

Je dispose d'une fonction matricielle qui, à partir d'une plage de données entrées en argument me renvoie une matrice (un tableau à double entrée).
Le code étant long et compliqué je souhaite utiliser cette formule dans une autre formule afin de pouvoir avoir accès au tableau qui m'est renvoyé.

Le soucis est que, quoique j'essaie cela ne fonctionne pas.
Ma formule primaire s'appelle

Code :

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

matricedecovariance(prix as range) as variant

Quand je l'appelle dans ma formule secondaire, je crée une autre matrice nommée matricecov que je définit et dimensionne de la même taille que la matrice censée être renvoyée.
Je fais ensuite:

Code :

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

matricecov = matricedecovariance(prix)       'la formule secondaire utilise aussi prix comme argument ndlr

Et ensuite je souhaite récupérer des données de cette matrice: par exemple matricecov(1,1) mais cela ne marche pas...

Quelqu'un pourrait il m'aider à résoudre mon problème?
Je vous remercie par avance.

Eidolem

[Theze]

Bonjour,

Si ta fonction doit retourner une matrice (donc, un tableau) il faut l'indiquer avec des parenthèses :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Function matricedecovariance(prix As Range) As Variant() '<--- ici, les parenthèses pour signifier que la fonction doit retourner un tableau
 
    Dim Tbl() As Variant
 
    'ton traitement...
 
    matricedecovariance = Tbl
 
End Function
 
Sub Test()
 
    Dim Tbl() As Variant
 
    Tbl = matricedecovariance(TonRangePrix)
    'ici, traitement des résultats se trouvant dans le tableau et retournés par la fonction
    '...
 
End Sub

[Theze]

Re,

Un exemple avec une fonction d'isolement des caractères d'une chaîne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Function Decoupe(Chaine As String) As String()
 
    Dim Tbl() As String
    Dim I As Integer
 
    ReDim Tbl(1 To Len(Chaine))
 
    'isole tous les caractères
    For I = 1 To Len(Chaine): Tbl(I) = Mid(Chaine, I, 1): Next I
 
    Decoupe = Tbl
 
End Function
 
Sub Test()
 
    Dim Tbl() As String
    Dim I As Integer
 
    Tbl = Decoupe("Ma chaine de caractères")
 
    'résultat en colonne A de la feuille active
    For I = 1 To UBound(Tbl): Cells(I, 1).Value = Tbl(I): Next I
 
End Sub

[Eidolem]

Merci beaucoup Theze pour la réponse je vais essayer de m'en sortir avec ça ça devrait le faire