Ajouter des nœuds dans un Treeview

**Eddy95500** · 14/04/2018, 21h06

Bonsoir à tous,

Je sollicite votre aide car je bloque sur mon code VBA pour construire mon treeview. En effet, je souhaiterais ajouter des noeuds enfants supplémentaires mais ne j'y arrive pas. Je précise que j'ai actullement 4 parents et 2 enfants pour les 2 premiers parents. Je ne trouve pas la méthode pour créer des noeuds enfants pour les deux premiers enfants.

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
Private Sub UserForm_Initialize()
Worksheets("Types").Activate
TreeView1.Nodes.Add Key:=Sheets("Types").Cells(1, 1).Value, Text:=Sheets("Types").Cells(1, 1).Value
TreeView1.Nodes.Add Key:=Sheets("Types").Cells(1, 2).Value, Text:=Sheets("Types").Cells(1, 2).Value
TreeView1.Nodes.Add Key:=Sheets("Types").Cells(1, 3).Value, Text:=Sheets("Types").Cells(1, 3).Value
TreeView1.Nodes.Add Key:=Sheets("Types").Cells(1, 4).Value, Text:=Sheets("Types").Cells(1, 4).Value
 
Call FillChildNodes(1, "Instruire un trade")
Call FillChildNodes(2, "Refuser un evenement")
End Sub
 
 
 
Sub FillChildNodes(ByVal col As Integer, ByVal Types As String)
Dim LastRow As Long
With Sheets("Types")
LastRow = .Cells(.Rows.Count, col).End(xlUp).Row
End With
Dim counter As Integer
counter = 1
 
For Each cas In Range(Cells(2, col), Cells(LastRow, col))
TreeView1.Nodes.Add Sheets("Types").Cells(1, col).Value, tvwChild, Types + CStr(counter), cas
counter = counter + 1
Next cas
 
 
End Sub