Discussion :

[JojoAlex]

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

[SilkyRoad]

bonsoir

ça ne va pas être aisé de répondre sans voir la structure de ta feuille Excel.

En attendant, un exemple qui utilise Excel pour alimenter un TreeView:
http://silkyroad.developpez.com/VBA/XlOrganigramme/


bonne sorée
michel

[JojoAlex]

Sa me paraît trop compliquer le tutorial!
Je cherche à faire dans un premier temps une arborescence simple même si tout est faisable en vba!
Je me en fichier zip mon dossier, si quelqu'un peut m'expliquer ce serait cool

Merci d'avance
Bonsoir

[SilkyRoad]

je ne peux pas lire les fichiers .rar


michel

[JojoAlex]

Pourtant c'est comme un zip, le problème c'est que ici je ne peux pas mettre de fichier.xls excel normal je sais pas pourquoi.
Euh alors je vais te faire un copier:
Voilà la page excel :

Numéro Désignation Prix Catégorie
4 Banania 2,00 € Chocolat
5 Crunch 3,00 € Chocolat
6 Milka 2,00 € Chocolat
7 Ferrero 4,00 € Chocolat
1 Kellogs 3,00 € Cornlakes
2 Coco pops 3,50 € Cornlakes
3 Clusters 4,00 € Cornlakes
8 Banane 1,00 € Fruit
9 Pomme 1,00 € Fruit
10 Raison 2,00 € Fruit
11 Fraise 3,00 € Fruit
12 Framboise 3,00 € Fruit
17 Pantalon 40,00 € Habits
18 Veste 35,00 € Habits
19 Chemise 60,00 € Habits
13 PC 1 000,00 € Hifi
14 Télévision 500,00 € Hifi
15 Radio 50,00 € Hifi
16 DVD 100,00 € Hifi



Voilà le code VBA :

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

Encore merci
et bonne soirée

[SilkyRoad]

rebonsoir

je ne comprend pas pourquoi dans mon formaulaire sa ne me prend pas en comtpe les noeuds.

C'est à dire?
C'est quoi la logique d'arborescence, à part les catégories de la colonne D?


michel