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
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
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
Salut Michel, a quoi te sert la dernière boucle avec le .expanded ?
Thanks
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager