Discussion :

[buddyMick]

Hello !


Je travail sur l'élaboration d'un treeview.
Je m'explique :
- J'ai une base de donnée banal sur la feuille 1 de mon workbook

- A partir de la feuille 2 je dois déclancher l'ouverture d'un treeview vide avec une option recherche.

- A partir de l'option recherche, l'utilisateur dois pouvoir afficher dans le treeview les résultats de sa recherche

- le treeview dois garder la meme structure que la base de donnée à savoir : Group -> SubGroup -> Items


Avez- vous des pistes à me données pour que je puisse arriver à mes fins ?


Voici 2 imprimes écrans

Merci A vous !!

[buddyMick]

Au lancement de mon treeview je l'initialiser avec l'ensembles des données de la base.
Donc je dois obtenir
-catégorie
'-> Sous catégorie
'-> Items

Mais je n'arrive qu'a obtenir :
Categorie
Sous catégorie
Items

Je n'arrive pas a obtenir les options de navigation pour cacher ou faire apparraitre les sous catégorie et/ou les items

Voici Mon code qui dois être horrible car je ne maitrise pas du tout les 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
31
32
33
34
35
Private Sub TreeView_Populate()
 
Worksheets(1).Range("C2").Select
 
Range(Selection, Selection.End(xlDown)).Select
 
Dim NbTotalCells As Integer
NbTotalCells = Selection.Rows.Count
 
Dim Group As String
Dim SubGroup As String
Dim Items As String
 
For i = 2 To NbTotalCells
 
    If Cells(i, 3).Value <> Cells(i - 1, 3).Value Then
        Group = Cells(i, 3)
        TreeView1.Nodes.Add = Cells(i, 2) & " - " & Group
    Else
    End If
 
    If Cells(i, 5).Value <> Cells(i - 1, 5) Then
            SubGroup = Cells(i, 4) & " - " & Cells(i, 5)
            TreeView1.Nodes.Add = SubGroup
    Else
    End If
 
    If Cells(i, 7).Value <> Cells(i - 1, 7) Then
        Items = Cells(i, 6) & " - " & Cells(i, 7)
        TreeView1.Nodes.Add = Items    
    Else
    End If
 
Next i
End Sub

THANKS

[mercatog]

Regarde dans la FAQ 2 exemples pour alimenter les treeview
FAQ Treeview