Rebonjour,

Après avoir découvert l'avantage des collections sur les tableaux, je suis face à un nouveau problème sur une fonction récursive.

En effet, j'ai ç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
19
20
21
22
23
24
Function f_recursive(treeElement as Elements) as Collection

Dim dataCollection as New Collection

For each element in treeElement
'treeElement et elements sont dans une structure arborescente
'd'un autre programme

Dim newData as New element

dataCollection.add newData

newData =  element

If element.a_des_sous_elements = True Then

    f_recursive(element.treeElement)

End If

f_recursive = dataCollection

end function
La fonction marche mais le résultat obtenu n'est pas bon: la fonction répète le dernier élément de chaque groupe de sous-éléments.
En gros, il semble que ça ne crée pas de sous éléments et qu'il n'y ait pas de réinitialisation dans le For.

Merci d'avance pour votre aide,

Nicolas