Bonjour,
Je suis nouveau sur ce forum et j'aimerais avoir de l'aide sur l'élaboration d'un treeview en VBA!
Le code est le suivant :

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
Private Sub UserForm_Initialize()
Dim Base, n
Dim Départ(1 To 15)
Set tw = Me.MonArbre2
 
'Initialisation des variables
[BaseArticles].Sort key1:=[BaseArticles].Cells(1, 4)
n = [BaseArticles].Rows.Count
Base = [BaseArticles]
 
'Initialisation de la racine de l'arbre
'tw.Nodes.Add(noeud_père, twchild, création_noeud_courant, libellé_noeud)
tw.Nodes.Add(, , "NoeudInit", "Début").Expanded = True
 
'---Noeud Catégorie
For i = 1 To n
    If IsError(Application.Match(Base(i, 4), Départ, 0)) Then
    tw.Nodes.Add("NoeudInit", twChild, "NoeudCat" & Base(i, 4), Base(i, 4)).Expanded = True
        'Vérifie le nombre de boucle nécessaire au total
        nd = nd + 1
        Départ(nd) = Base(i, 4)
    End If
Next i
 
'---Noeud Produit
For i = 1 To n
    tw.Nodes.Add("NoeudCat" & Base(i, 4), twChild, "NoeudProduit" & Base(i, 1), Base(i, 2)).Expanded = True
Next i
End Sub

D'autre part [BaseArtciles] est défini en zone. Et je ne comprend pas pourquoi dans mon formaulaire sa ne me prend pas en comtpe les noeuds.
Merci d'avance à tous ceux qui pourrons me répondre!

Bonne fin de journée