Discussion :

[loacast]

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 ?

[ouskel'n'or]

Code :

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

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+

[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... )

[ouskel'n'or]

Comme tu parles de variable, tu peux faire ça

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
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+

[loacast]

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

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
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é.

[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.

[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+

[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.

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 ?

[ouskel'n'or]

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 :

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
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 !

A+

[loacast]

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

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
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

[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...