Discussion :

[ANOVA]

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.

[Tempas]

Je ne sais pas si tu peux, mais ce que tu peux faire, c'est déclarer ton tableau en public et après l'utiliser partout

[Minick]

Salut,

Change comme ceci:

Code :

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

VecteurRangs(i) = Sheets("Trame").Cells(numeroLigne, 19 + i).Value

[ANOVA]

Je vous remercie tous les deux.

@Minick : J'ai essayé le bout de code que tu m'as suggéré Minick, mais malheureusement, j'obtiens exactement la même erreur.

@Tempas : Cela doit fonctionner effectivement. Je vais essayer cela dépannera. Ceci étant dit, je préfèrerais réussir à faire une fonction qui renvoie un tableau. Cela simplifierait mon code. Donc si quelqu'un a une suggestion.

[Minick]

Re,

Le changement que je t'ai propose a ete teste et fonctionne sans probleme....

Il faut evidemment que les valeurs soient des entiers et pas du texte (VecteurRangs declare en Interger)

[Didier Gonard]

Bonjour,

pour mieux saisir ce qu'on te propose, vois ce Tuto :

Passer un tableau en argument de Silkyroad


cordialement,

Didier

[sabzzz]

bonjour ANOVA, à tous,

je préfèrerais réussir à faire une fonction qui renvoie un tableau. Cela simplifierait mon code. Donc si quelqu'un a une suggestion.

Code :

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

1
2
3
4
'je n 'ai pas mits de type à VecteurRangs, donc variant par default
'et peut accepter des nombres et du texte
'la variable est declarée au niveau module (haut du module) pour etre accessible dans la macro test
Dim VecteurRangs(0 To 8)

Code :

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

1
2
3
4
5
Private Function VecteurRangs123(numeroLigne)
    For i = 0 To 8
        VecteurRangs(i) = Sheets("Trame").Cells(numeroLigne, 19 + i)
    Next i
End Function

Code :

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

1
2
3
4
5
6
7
Private Sub test3()
VecteurRangs123 (185)
'le tableau sera transcrit dans la plage A1:A9
Range("A1").Resize(UBound(VecteurRangs, 1) + 1) = Application.Transpose(VecteurRangs)
'pour le tableau soit transcrit dans la plage A1:I1
'Range("A1:I1") = VecteurRangs
End Sub

[ANOVA]

Effectivement, ce que tu m'as proposé fonctionne Minick. Je ne sais pas pourquoi ça n'a pas marché lorsque je l'ai testé hier (j'ai dû me planter en faisant le copier coller).

Merci à tous.