Discussion :

[Nico820]

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 :

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

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

[tirex28]

Bonjour,

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

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

[Nico820]

ca marche merci