[Résolu]Treeview sur Deux niveaux

[Cypat]

Bonjour,
Je souhaite afficher à l'aide d'un treeview une liste de cas à cocher dans un formulaire.
J'arrive à afficher tout au premier niveau mais ne comprend pas comment afficher le deuxième niveau (sans doublon) ainsi que le troisième niveau :x


Merci,


Ci-joint mon fichier de travail.

 

[Cypat]

Re : Treeview sur Deux niveaux

J'ai tenté une solution plus classique, du genre: For i = 1 To Lg (Lg= nombre de ligne non vide d'une colonne) pour chaque ligne non vide, je stock dans une variable la donnée de la colonne E, F et G puis je créer le noeud, cela aurait bien pue marcher sauf que par cette solution, je n'arrive pas au résultat car je n'arrive pas a gerer les "key".
Un petit coup de pouce plz?

Private Sub UserForm_Initialize()


Dim cat
Dim sscat
Dim doc
Dim i As Integer
Dim NodX As Node
Dim Lg As Long
Lg = Range("G" & Rows.Count).End(xlUp).Row
With TreeView1
.Nodes.Clear

Set NodX = .Nodes.Add(, , "Root", "Liste des fichiers")
NodX.Expanded = True
Set NodX = Nothing



For i = 1 To Lg
doc = Range("G" & i).Value
sscat = Range("F" & i).Value
cat = Range("E" & i).Value

    If cat <> "" Then
Set NodX = .Nodes.Add("Root", tvwChild, cat, cat)
Set NodX = Nothing


        If sscat <> "" Then
Set NodX = .Nodes.Add(cat, tvwChild, sscat, sscat)
Set NodX = Nothing
Set NodX = .Nodes.Add(sscat, tvwChild, doc, doc)
Set NodX = Nothing


        ElseIf sscat = "" Then
Set NodX = .Nodes.Add(cat, tvwChild, doc, doc)
Set NodX = Nothing


        End If
    ElseIf cat = "" Then
Set NodX = .Nodes.Add("Root", tvwChild, doc, doc)
Set NodX = Nothing


    End If
    
Next i
End With
End Sub

===> Key Is not Unique in collection

Merci

 

[Cypat]

Re : Treeview sur Deux niveaux

Rebonjour,

J'avance petit à petit dans mes recherches, j'arrive maintenant à tout afficher mais le soucis des doublons dans mes sous catégories me gênes.
Voici la derniere version de mon document de travail (boutton 3, Userform2)

De plus je précise que j'ai poster un message sur un autre forum dont voici l'adresse:
TreeView Automatisé (sur deux niveaux) : Excel - VBA

D'avance merci pour votre aide

 

[Efgé]

Re : Treeview sur Deux niveaux

Bonjour Cypat , une proposition en pièce jointe _ Cordialement

 

[Cypat]

Re : Treeview sur Deux niveaux

Wow, c'est exactement ca, ceci dit ce code me semble bien flou, j'ai encore beaucoup de chose à apprendre ! :x
Sur ce, je te remercie et je vais essayer de comprendre ton code!

Encore merci et bonne journée 🙂