Bonjour,

je débute en VBA (j'ai des petites notions dans d'autres langages, mais je programme en VBA pour la première fois). Je cherche à programmer une fonction qui renvoie un vecteur (ou un tableau). La fonction va chercher les données dans une plage de cellules, les stocke dans un tableau et les renvoie. Voici ce que j'ai tenté :

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
Private Function VecteurRangs123(numeroLigne)
    Dim VecteurRangs(1 To 9) As Integer
    For i = 1 To 9
        VecteurRangs(i) = Sheets("Trame").Range(Cells(numeroLigne, 19 + i)).Text
    Next i
    VecteurRangs123 = VecteurRangs
End Function
 
Private Sub test2()
    Dim Tableau
    Tableau = VecteurRangs123(185)
    For i = 1 To 9
        MsgBox Tableau(i)
    Next i
End Sub
Lorsque le tente d'exécuter ce code, j'ai le message d'erreur suivant :

Erreur d'exécution '1004'. Erreur définie par l'application ou par l'objet
Mes questions sont les suivantes :

1-Est il possible de programmer une fonction qui renvoie un vecteur ?
2-Si oui, pourquoi mon programme ne fonctionne t-il pas ?

Je vous remercie par avance.