Discussion :

[popsmelove]

Hello,

Je n'arrive pas à trouver commenty on défini les noeuds dans les treviews des userform. Je souhaite affecter aux noeuds une liste de valeur de ref contenue dans un de mes onglets.

Merci

[SilkyRoad]

bonsoir


un exemple simple pour créer une arborescence dans un treeView:

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
28
29
30
Dim ObjNoeud As Node
Dim I As Byte, J As Byte, H As Byte, F As Byte, G As Byte
 
With TreeView1
    'Noeud parent
    Set ObjNoeud = .Nodes.Add(, , "Niveau0", "Niveau0")
 
    For I = 1 To 2 ' Noeud enfant niveau 1
        Set ObjNoeud = .Nodes.Add("Niveau0", tvwChild, "Niveau1" & I, "Niveau1" & I)
 
        For J = 1 To 2 ' Noeud enfant niveau 2
            H = H + 1
            Set ObjNoeud = .Nodes.Add("Niveau1" & I, tvwChild, "Niveau2" & H, _
            "Niveau2" & I & J)
 
            For G = 1 To 2 ' Noeud enfant niveau 3
                F = F + 1
                Set ObjNoeud = .Nodes.Add("Niveau2" & H, tvwChild, "Niveau3" & F, _
                "Niveau3" & I & J & G)
            Next G
 
        Next J
    Next I
End With
 
For I = 1 To TreeView1.Nodes.Count
    TreeView1.Nodes.Item(I).Expanded = True
Next
 
Set ObjNoeud = Nothing

Consulte le tutoriel de Jacques Malatier pour plus d'infos:
http://jacma.developpez.com/treeview/



bon week end
michel

[popsmelove]

Salut Michel, a quoi te sert la dernière boucle avec le .expanded ?

Thanks