[Treeview VBA] Liste des fils à partir d'un noeud donné [Résolu]

[NoCoZ]

Bonjour tlm !

Après 3h30 de recherches infructueuses sur le net, je vous expose mon problème. Je dispose dans un treeview d'une liste de familles et de leurs sous familles (et leurs sous-sous-famille, etc ...)
ex:

Code :

1
2
3
4
5
6
7
supFam1
   subfam1
     subfam1.1
     subfam1.2
     subfam1.3
   subfam2
     subfam2.1

Et je souhaite récupérer/afficher, lorsque l'utilisateur clic sur un élément de l'arbre, la liste de toutes les sous familles et sous-sous familles du noeud courant.

Je pense a l'utilisation d'une méthode récursive, mais je ne sais pas comment parcourir récursivement les noeuds fils d'un noeud donné (celui qui a été cliqué).

Je pars sur la base suivante:

Code :

1
2
3
4
5
 
Private Sub TV1_NodeClick(ByVal Nde As Object)
  dim resultat as string 'par exemple
  resultat = ListerSousNoeuds(Nde)
End Sub

et bien entendu c'est la fonction ListerSousNoeuds(ByVal Nde As Object) qui me fait défaut

J'ai tenté d'utiliser des TreeNodes mais VBA/Access 2003 ne semble pas les reconnaître.

Merci de votre aide

[Catbull]

La méthode récursive semble en effet s'imposer. Par contre, ton receveur me semble incongru. Le plus simple est à mon avis de passer en paramètre le tableau devant contenir la liste de tes sous noeuds ou utiliser une variable globale.

[NoCoZ]

En fait le receveur est ici plus à titre d'exemple.
En effet, un tableau serait plus adapaté mais là n'est pas le réel problème.

Je ne sais pas comment utiliser les propriété/méthodes du Noeud courant pour pouvoir parcourir ses fils.

Je cherche à pouvoir écrire une fonction du style:

Code :

1
2
3
4
Pour chaque Fils de NoeudCourant Faire
  'ici appel de ma fonction récursive 
  'et autres traitements
Fin Pour

Mon problème est donc de savoir comment coder en VBA : Pour chaque Fils de NoeudCourant Faire

Merci de votre aide !

[NoCoZ]

Re salut!
Bon après avoir cherché et cherché j'ai trouvé !
Je n'arrivais pas a travailler directement sur mon arbre (il fallait en faire une copie dans mon code pour que cela fonctionne...)

Pour ceux que ça intéresse, voici le source:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub getSubFamilies(ByVal Nde As Node, ByRef subfamlist As String)
'retrieve the number of the sub families of the current node in the family tree
 
Dim TV1cpy As TreeView
Set TV1cpy = Form_CGDdbBrowser.TV1.Object
 
Dim i As Integer
If Nde.Children > 0 Then
'continue exploration only if the current node has subnodes
    For i = Nde.Child.Index To Nde.Child.Index + Nde.Children - 1
    'browse each subnodes
        subfamlist = subfamlist & Replace(TV1cpy.Nodes.Item(i).Key, "O", "") & ", "
        getSubFamilies TV1cpy.Nodes(i), subfamlist
    Next i
End If
Set TV1cpy = Nothing
 
End Sub

Bien sur, rien ne m'obligeait a utiliser un passage par référence, mais dans mon cas, cela avait son intérêt, voilou !

En espérant avoir pu aider quelqu'un d'autre