Treeview controle ajout de childnodes.

Résolu
lachapellejf2 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
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 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
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 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
peut-être:
For Each country In Range(Sheet1.Cells(2, col), Sheet1.Cells(LastRow, col))
0
lachapellejf2
 
MERCI!!! C'était pourtant si simple! Vous êtes génial.
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > lachapellejf2
 
parfait, peux-tu alors marquer comme résolu, via la roue dentée à droite du titre?
0