Creation d'un Sub avec un tableau dynamique comme parametre

Version imprimable

29/07/2008, 14h37
Nico820

Creation d'un Sub avec un tableau dynamique comme parametre
Bonjour,

Je cherche à créer un Sub ou une fonction avec un tableau dynamique de strings comme paramètre. Le sub est utilisé pour faire des boucles récurentes.

Exemple:
Code:

1 2 3 4 5 6 7 8 Sub procedure(parametre() As String) ... Dim autreParametre() As String ... Call procedure(autreParametre) ... End Sub
Le Sub tel quel ne marche pas (variable non valide), une idée pour que ça marche??

Merci d'avance,

Nicolas

Bonjour,

Je ne sais pas ce que tu cherche a faire précisément, mais cet exemple peut t'inspirer:

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
25
26
27
Sub depart()
    Dim S() As String
    ReDim S(1 To 3)
    S(1) = "Bonjour"
    S(2) = "Et"
    S(3) = "Au revoir"
    Call procedure(S)
    Debug.Print UBound(S)
End Sub
 
Sub procedure(parametre() As String)
    Dim i As Long
    Dim autreParametre() As String
 
    For i = LBound(parametre) To UBound(parametre)
        Debug.Print parametre(i)
    Next
 
    If UBound(parametre) > LBound(parametre) Then 'Test
        autreParametre = parametre
        ReDim Preserve autreParametre(LBound(parametre) To _
                                        UBound(parametre) - 1)
        Call procedure(autreParametre) 'Appel récursif
    Else
        Debug.Print "Fin"    'Fin de la récursivité
    End If
End Sub

Cordialement,

Tirex28/

31/07/2008, 07h16
Nico820

ca marche merci :yaisse2: