[VBA] Mettre un tableau de variable en paramètre

Version imprimable

15/11/2005, 09h41
loacast

[VBA] Mettre un tableau de variable en paramètre

Bonjour, j'ai des fonctions qui font les mêmes traitements sur des tableaux de variables alors que ceux-ci sont différent. Or je n'arrive pas à passer un tableau en paramètre d'une fonction.

Y a t-il un quelquonque moyen de réaliser cette tache en VBA ?

Code:

1
2
3
4
5
6
7
8
9
10
Sub PasserTableauEnParamètre()
MT = Array("Viens ", "chez moi ", "j'ai ", " du ", "bon... ", "café")
JeSuisEnManque (MT)
End Sub
Sub JeSuisEnManque(LeTableau)
For i = 0 To UBound(LeTableau)
    Msg = Msg + LeTableau(i)
Next
MsgBox Msg
End Sub

Si ça peut t'aider

A+

15/11/2005, 10h03
Megaxel

Oui, c'est ça. J'ai pas mal galéré la première fois pour trouver la bonne syntaxe. Il ne faut pas mettre les parenthèses du tableau, et je crois que ça ne marche qu'en ByRef (ou qu'en ByVal, je ne sais plus... :oops: )

Comme tu parles de variable, tu peux faire ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub PasserTableauEnParamètre()
MT = ""
Mot1 = "Viens "
Mot2 = "j'ai "
Mot3 = "chez moi "
Mot4 = " du "
Mot5 = "café"
Mot6 = "bon... "
MT = Array(Mot1, Mot3, Mot2, Mot4, Mot6, Mot5)
JeSuisEnManque (MT)
End Sub
Sub JeSuisEnManque(LeTableau)
Msg = ""
For i = 0 To UBound(LeTableau)
    Msg = Msg + LeTableau(i)
Next
MsgBox Msg
End Sub

A+

Merci tu m'as fait avancer plus avant néamoins le mieux que j'ai réussi à faire c'est ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub PasserTableauEnParamètre() Dim MT As Variant MT = Array("Viens ", "chez moi ", "j'ai ", " du ", "bon... ", "café") JeSuisEnManque MT(0), MT(1), MT(2), MT(3), MT(4), MT(5) End Sub Sub JeSuisEnManque(ParamArray LeTableau() As Variant) Dim i As Integer For i = 0 To UBound(LeTableau()) MsgBox LeTableau(i) Next End Sub
Et ça ne me convient pas du tout. En effet, passer directement MT en paramètre ne marche pas. Or si une telle chose n'est pas possible alors je n'aurais plus d'intérêt à faire la fonction puisque je serais limité de par son appel (je ne connais pas le nombre d'index que possède les tableaux envoyés en paramètres).

Si tu as d'autres idées merci de m'en faire pars mais de toute façon tu m'as déjà pas mal aidé.

15/11/2005, 10h33
Megaxel

Je ne comprend pas pourquoi tu dis que ça ne marche pas? Ou vois-tu une erreur dans le code d'Ouskel'n'or? Il marche très bien.
15/11/2005, 10h39
ouskel'n'or

C'est UBound(MonTableau) qui te donne la taille de ton tableau et donc le nombre de paramètres ou d'index. Mais respecte ma syntaxe, la tienne ne peut pas marcher.
Par contre, tu parles de fonction. Une fonction retourne un résultat ce qui n'est pas le cas dans mon exemple qui est une sub. Une sub fait ce qu'on lui demande en fonction de paramètres passés.
Explique exactement ce que tu veux faire, il y aura certainement une solution.

A+
15/11/2005, 10h45
loacast

Quand je disais fonction en fait je voulais parler de sous programme donc procédure ou fonction le problème est le même.

Citation:

Je ne comprend pas pourquoi tu dis que ça ne marche pas? Ou vois-tu une erreur dans le code d'Ouskel'n'or? Il marche très bien.

Pas chez moi

En fait quand je passe le tableau en paramètre le tableau renvoyé n'a pas de valeur c'est pourquoi il m'indique une erreur et pourquoi j'ai alors modifié en conséquence mais peut être n'ais je pas déclaré comme il se doit les variables et tableaux ?!

EDIT : nous parlons bien de Visual Basic pour Application (dans mon cas avec Excel) n'est-ce pas ?

J'ajoute que tu as une autre solution si tu ne connais pas le nombre de paramètres à passer
Je suppose (à défoaut d'indications précises) que tu es dans une boucle et que tu veux récupérer les variables à passer en paramètre
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub RécupérerLesDonnées() Dim MT() For i = 65 To 90 ReDim Preserve MT(i) MT(i - 64) = Chr(i) Next AfficherTableau (MT) End Sub Sub AfficherTableau(LeTableau) Dim msg As String For i = 0 To UBound(LeTableau) msg = msg + LeTableau(i) Next MsgBox msg End Sub
Si ça ne te convient pas, tu dis... Mais dis-le nom de gu ! :evil:

A+ :lol:

Apparement j'avais mal testé et finalement ça marche comme je le veux :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub PasserTableauEnParamètre()
 
Dim MT(6) As String
 
MT(0) = "Viens "
MT(1) = "chez moi "
MT(2) = "j'ai "
MT(3) = "du "
MT(4) = "bon... "
MT(5) = "café"
 
JeSuisEnManque (MT)
End Sub
 
Sub JeSuisEnManque(LeTableau)
MsgBox LeTableau(1)
Dim msg As String
Dim i As Integer
msg = ""
For i = 0 To UBound(LeTableau)
    msg = msg + LeTableau(i)
Next
MsgBox msg
End Sub

EDIT : merci

15/11/2005, 11h28
Megaxel

Haaaaa, quand même.
De toute façon, depuis un certain post d'hier, je n'ai plus de cheveux à m'arracher, mais quand même...
Allez, un petit click sur "Résolu", et on n'en parle plus...