Ajouter des petits enfants à un treeview en VBA

Fermé

lachapellejf2 Messages postés 3 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 7 juin 2018 - Modifié le 1 juin 2018 à 18:15
Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 - 19 juin 2018 à 18:45

Bonjour,

J'utilise le code suivant pour remplir mon treeview. J'essai de trouver la formule pour ajouter des grandchild au childnodes, mais sans succès.
Les données pour les grandchild sont structuré de la même manière que pour les childnodes mais dans la sheet2.

Quelqu'un à une solution à me proposer?
Merci d'avance!

Private Sub UserForm_Initialize()
TreeView1.Nodes.Add Key:=Sheet1.Cells(1, 1).Value, Text:=Sheet1.Cells(1, 1).Value
TreeView1.Nodes.Add Key:=Sheet1.Cells(1, 2).Value, Text:=Sheet1.Cells(1, 2).Value
TreeView1.Nodes.Add Key:=Sheet1.Cells(1, 3).Value, Text:=Sheet1.Cells(1, 3).Value
TreeView1.Nodes.Add Key:=Sheet1.Cells(1, 4).Value, Text:=Sheet1.Cells(1, 4).Value
TreeView1.Nodes.Add Key:=Sheet1.Cells(1, 5).Value, Text:=Sheet1.Cells(1, 5).Value
TreeView1.Nodes.Add Key:=Sheet1.Cells(1, 6).Value, Text:=Sheet1.Cells(1, 6).Value
TreeView1.Nodes.Add Key:=Sheet1.Cells(1, 7).Value, Text:=Sheet1.Cells(1, 7).Value
TreeView1.Nodes.Add Key:=Sheet1.Cells(1, 8).Value, Text:=Sheet1.Cells(1, 8).Value
TreeView1.Nodes.Add Key:=Sheet1.Cells(1, 9).Value, Text:=Sheet1.Cells(1, 9).Value
TreeView1.Nodes.Add Key:=Sheet1.Cells(1, 10).Value, Text:=Sheet1.Cells(1, 10).Value
TreeView1.Nodes.Add Key:=Sheet1.Cells(1, 11).Value, Text:=Sheet1.Cells(1, 11).Value
TreeView1.Nodes.Add Key:=Sheet1.Cells(1, 12).Value, Text:=Sheet1.Cells(1, 12).Value
TreeView1.Nodes.Add Key:=Sheet1.Cells(1, 13).Value, Text:=Sheet1.Cells(1, 13).Value
TreeView1.Nodes.Add Key:=Sheet1.Cells(1, 14).Value, Text:=Sheet1.Cells(1, 14).Value
TreeView1.Nodes.Add Key:=Sheet1.Cells(1, 15).Value, Text:=Sheet1.Cells(1, 15).Value
TreeView1.Nodes.Add Key:=Sheet1.Cells(1, 16).Value, Text:=Sheet1.Cells(1, 16).Value
TreeView1.Nodes.Add Key:=Sheet1.Cells(1, 17).Value, Text:=Sheet1.Cells(1, 17).Value
TreeView1.Nodes.Add Key:=Sheet1.Cells(1, 18).Value, Text:=Sheet1.Cells(1, 18).Value
TreeView1.Nodes.Add Key:=Sheet1.Cells(1, 19).Value, Text:=Sheet1.Cells(1, 19).Value
TreeView1.Nodes.Add Key:=Sheet1.Cells(1, 20).Value, Text:=Sheet1.Cells(1, 20).Value
TreeView1.Nodes.Add Key:=Sheet1.Cells(1, 21).Value, Text:=Sheet1.Cells(1, 21).Value

Call FillChildNodes(1, Sheet1.Cells(1, 1).Value)
Call FillChildNodes(2, Sheet1.Cells(1, 2).Value)
Call FillChildNodes(3, Sheet1.Cells(1, 3).Value)
Call FillChildNodes(4, Sheet1.Cells(1, 4).Value)
Call FillChildNodes(5, Sheet1.Cells(1, 5).Value)
Call FillChildNodes(6, Sheet1.Cells(1, 6).Value)
Call FillChildNodes(7, Sheet1.Cells(1, 7).Value)
Call FillChildNodes(8, Sheet1.Cells(1, 8).Value)
Call FillChildNodes(9, Sheet1.Cells(1, 9).Value)
Call FillChildNodes(10, Sheet1.Cells(1, 10).Value)
Call FillChildNodes(11, Sheet1.Cells(1, 11).Value)
Call FillChildNodes(12, Sheet1.Cells(1, 12).Value)
Call FillChildNodes(13, Sheet1.Cells(1, 13).Value)
Call FillChildNodes(14, Sheet1.Cells(1, 14).Value)
Call FillChildNodes(15, Sheet1.Cells(1, 15).Value)
Call FillChildNodes(16, Sheet1.Cells(1, 16).Value)
Call FillChildNodes(17, Sheet1.Cells(1, 17).Value)
Call FillChildNodes(18, Sheet1.Cells(1, 18).Value)
Call FillChildNodes(19, Sheet1.Cells(1, 19).Value)
Call FillChildNodes(20, Sheet1.Cells(1, 20).Value)
Call FillChildNodes(21, Sheet1.Cells(1, 21).Value)




End Sub


Sub FillChildNodes(ByVal col As Integer, ByVal continent As String)
Dim LastRow As Long
With Sheet1
    LastRow = .Cells(.Rows.Count, col).End(xlUp).Row
End With

Dim counter As Integer
counter = 1
Dim country As Range

For Each country In Range(Sheet1.Cells(2, col), Sheet1.Cells(LastRow, col))
Debug.Print ("country:" & country)
TreeView1.Nodes.Add Sheet1.Cells(1, col).Value, tvwChild, continent + CStr(counter), country
counter = counter + 1
Next country

End Sub

A voir également:

Ajouter des petits enfants à un treeview en VBA
Ajouter un profil netflix payant - Guide
Ajouter un compte gmail - Guide
Ajouter un compte whatsapp - Guide
Ajouter un compte facebook - Guide
Ajouter signature word - Guide

3 réponses

Réponse 1 / 3

Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 20
4 juin 2018 à 22:12

Bonjour,

Exemple ici :
https://www.homeandlearn.org/parent_and_child_nodes.html

K

lachapellejf2 Messages postés 3 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 7 juin 2018
7 juin 2018 à 15:25

Bonjour Kalissi, j'avais déja trouvé ce site pour m'aider, malgré ca, je n'arrive pas à trouver le bon code pour ajouter un 3e niveau. Ajouter un petit enfant à un enfant d'un parent.

Réponse 2 / 3

Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 20
18 juin 2018 à 18:50

Bonjour,

En VB.NET (VS2010/2015), j'ajoute des nœuds en créant d'abord le nœud enfant.
J'ai un treeview à multiples étages (~ 15 étages).

Exemple non testé en VBA :

Public Sub Test()

    Dim NoeudParent As Nodes
    Dim NoeudEnfant As Nodes
    Dim NoeudPetitEnfants As Nodes

    NoeudPetitEnfants.Add Key:=Sheets("Feuil1").Cells(1, col).Value, Text:=Continent + CStr(counter)
    NoeudEnfants.Add NoeudPetitEnfants
    NoeudParents.Add NoeudEnfants

End Sub

Bien sur, je créé une méthode qui génère un arbre généalogique par récursivité. Donc je n'ai pas
à gérer les sous nœuds des enfants de primier niveau...

Réponse 3 / 3

Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 20
Modifié le 19 juin 2018 à 18:45

Bonjour,

Voici la solution :-) À adapter ... selon votre code ...

L'astuce est de nommé le nœud enfant existant ...

Ici le nœud enfant est [ Key:="Enf" + CStr(counter) ], codé en dur [ "Enf1" ] pour la démo.

' Création du noeud Petit Enfant
FrmUtilisateur.TreeView1.Nodes.Add "Enf1", tvwChild, Key:="PetEnf" + CStr(counter), Text:="Paul"

Sub FillChildNodes(ByVal col As Integer, ByVal Continent As String)

    Dim LastRow As Long

    With Sheets("Feuil1")
        LastRow = .Cells(.Rows.Count, col).End(xlUp).Row
    End With

    Dim counter As Integer
    counter = 1
    Dim country As Range

    For Each country In Range(Sheets("Feuil1").Cells(2, col), Sheets("Feuil1").Cells(LastRow, col))
        Debug.Print ("country:" & country)
        ' Création de noeud Parent
        FrmUtilisateur.TreeView1.Nodes.Add Key:=Sheets("Feuil1").Cells(1, col).Value, Text:=Continent + CStr(counter)
        ' Création du noeud Enfant
        FrmUtilisateur.TreeView1.Nodes.Add Sheets("Feuil1").Cells(1, col).Value, tvwChild, Key:="Enf" + CStr(counter), Text:="Claude"
        ' Création du noeud Petit Enfant
        FrmUtilisateur.TreeView1.Nodes.Add "Enf1", tvwChild, Key:="PetEnf" + CStr(counter), Text:="Paul"
        counter = counter + 1
        col = col + 1
    Next country

End Sub
'

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

"L'indice n'appartient à la sélection" + VBA

ouverture d'un fichier excel à partir d'un code VBA

Discussions similaires

Newsletters