Discussion :

[p51 mustang]

bonjour,

je viens de réaliser un code pour pouvoir réaliser un arbre avec la fonction treeview de vba!

Mes données sont organisées de la façon suivante :
dans la première colonne un nombre de ref pour le produit
dans la seconde colonne le nom du produit
la troisième contient les références avec lesquel le produit est concerné
en gros ca donne :
1 A (rien car produit final)
2 B 1
3 C 2
4 D 2
5 E 3
...

J'ai mon code qui s'exécute mais rien qui ne s'affiche dans l'arbre, et je ne trouve pas mon erreur!

voici le code :

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
31
32
33
Dim AB As MSComctlLib.TreeView
 
Private Sub Arbre1_BeforeLabelEdit(Cancel As Integer)
 
  If Left(Node.Key, 8) = "NoeudMat" Then
    Me.Produits = Application.VLookup(Val(Mid(Node.Key, 9)), [Produits], 3, False)
 
End Sub
 
 
Private Sub UserForm1_Initialize()
 
    Dim Base, n
    Dim Départ(1 To 15)
    Set AB = Me.Arbre1
    [Produits].Sort key1:=[Produits].Cells(1, 2)
    n = [Produits].Rows.Count
    Base = [Produits]
    AB.Nodes.Add(, , "NoeudInit", "Début").Expanded = True
 
For i = 1 To n
    If IsError(Application.Match(Base(i, 3), Départ, 0)) Then
        AB.Nodes.Add("NoeudInit", tvwChild, "NoeudDep" & Base(i, 3), Base(i, 3)).Expanded = True
        AB = AB + 1
        Départ(AB) = Base(i, 3)
    End If
Next i
 
For i = 1 To n
    AB.Nodes.Add("NoeudDep" & Base(i, 3), tvwChild, "NoeudMat" & Base(i, 1), Base(i, 2)).Expanded = True
Next i
 
End Sub

Note la userform1 ne contient que l'objet arbre1 (fonction tree view vba!)

Merci d'avance pour vos réponses, et bonne année à tous!

[kiki29]

Salut,va jeter un oeil sur http://jacma.developpez.com/treeview/

[p51 mustang]

Justement je me suis basé à partir de cela, j'ai cependant une erreur quelque part qui fait que le code s'exécute mais n'affiche aucun résultat!
Je cherche toujours!