Discussion :

[ghosty04]

Bonjour,

Je dois faire une fonction qui fait des calculs et renvoie un tableau avec quelques dates dedans. Est-ce possible en VBA de faire une fonction qui renvoie un tableau, et si oui comment.

D'autre part, je n'arrive pas a écrire des valeurs dans une cellule quand je me trouve dans une fonction. Est-ce normal ?

Comment peut-on détourner ça ?

merci d'avance

[Krovax]

Habituellement Un post = un question
c'est bien plus pratique

Pour ta première question j'ai déjà chercher a le faire et visiblement c'est impossible, ou du moins je n'ai pas trouvé
du coup j'ai utilisé une subroutine avec comme donnée mon tableau de résultat.

deuxième question
Pour ecrire dans une cellule, je n'ai personnellement aucun problème donc je suppose que c'est possible .
est ce que tu précise bien l'onglet contenant ta cellule?
exemple d'une fonction qui écrit une valeur dans une cellule

Code :

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

1
2
3
4
Function fonctiontest(i As Integer) As Integer
Worksheets("Feuil2").Cells(1, 1) = i
fonctiontest = i
End Function

[cafeine]

Hello,

une fonction peut renvoyer un tableau, en revanche il faudra l'appliquer sur autant de cellules que ton tableau en contient.

ex :

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
Function MaFonctionTableau(x, y)
 
Application.Volatile
 
Dim tableau() As Integer
Dim i As Integer, j As Integer, k As Integer
 
ReDim tableau(x, y)
For i = 0 To x - 1
    For j = 0 To y - 1
        k = k + 1
        tableau(i, j) = k
    Next j
Next i
MaFonctionTableau = tableau
 
End Function

puis tu sélectionne une plage de 3x3 cellules en rentrant la formule

Code :

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

=mafonctiontableau(3;3)

validée par Ctrl + Shift + Entrée
qui devient donc matricielle

Code :

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

{=mafonctiontableau(3;3)}