Discussion :

[Winnyls]

Bonjour à tous,

j'essaye de passer un tableau de variables en argument d'une fonction mais je m'y casse les dents et j'aurais bien eu besoin d'un coup de main:
Voici la fonction :

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
Sub generationEnsembleVisite(Visites() As String)
 
Dim nomFeuilleGénérée As String
Dim i As Integer
 
If Visites.Count = 0 Then
MsgBox (" erreur: Visites.Count = 0")
End If
For i = 1 To Visites.Count
nomFeuilleGénérée = nomFeuilleGénérée + "." + Visites(i) + " !"
 
' Création de la feuille si elle n'existe pas déjà
créationFeuille (nomFeuilleGénérée)
 
' Copie des items
For i = 1 To Visites.Count
Call BoucleCopieItem(Visites(i), nomFeuilleGénérée)
Next i
 
End Sub

et j'appele ainsi la fonction :

Code :

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

generationEnsembleVisite (Visites())

Mais ca refuse de tourner sous pretexte qu'il lui faut un index de tableau.
C'est pourtant une procédure classique qui pose 0 soucis en java ou c++, est ce que quelqu'un a une solution?

Merci d'avance

Winnyls

[Winnyls]

et up!!
je cherche toujours, même si j'ai fini par faire différemment, ça m'intéresse de savoir comment ça se fait.
Donc merci d'avance à tous ceux qui se gratteront la tête là dessus!!

A+

Winnyls

[Godzestla]

Bonjour,

tu le déclare comme variant dans le proto de ta fonction.

par exemple comme ceci:

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
 
Function lulu(p1 As Variant) As Boolean
Dim tablo() As String
tablo = p1
MsgBox tablo(0) & " " & tablo(1)
 
End Function
 
Sub tutu()
Dim res As Boolean
Dim tablo(2) As String
tablo(0) = "coucou"
tablo(1) = "le forum"
res = lulu(tablo)
End Sub

[Winnyls]

Yes, ca répond bien à ma question!
merci beaucoup!