Treeview controle ajout de childnodes.

Résolu/Fermé
lachapellejf2 Messages postés 3 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 7 juin 2018 - Modifié le 14 avril 2018 à 07:51
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 - 17 avril 2018 à 22:55
Bonjour,
Lorsque je lance mon code, mes childsnodes devrait se nommer automatiquement, mais cela ne fonctionne pas.
Je cherche depuis un bon moment mais aucune piste de solution.
J'ai le bon nombre d'arboresence c'Est seulement le nom du child node qui n'apparait pas selon ma table de données.
Je sais que l'erreur est au niveau de ma variable country, mais je ne sais pas comment le modifier.

Voici mon code :

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

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

End Sub 



Est-ce que quelqu'un peut m'aider?
Merci d'avance.
A voir également:

2 réponses

yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
14 avril 2018 à 10:33
bonjour,
pour commencer, as-tu bien "
option explicit
" en haut du module?
et as-tu déclaré
dim country as Range
?
par ailleurs, es-tu certain du contenu de "country", as-tu vérifié en pas à pas?
peux-tu partager ton fichier?
0
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
14 avril 2018 à 10:54
peut-être:
For Each country In Range(Sheet1.Cells(2, col), Sheet1.Cells(LastRow, col))
0
lachapellejf2
17 avril 2018 à 21:44
MERCI!!! C'était pourtant si simple! Vous êtes génial.
0
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476 > lachapellejf2
17 avril 2018 à 22:55
parfait, peux-tu alors marquer comme résolu, via la roue dentée à droite du titre?
0