J'ai essay=E9 de faire un treeview avec l exemple du site=20
Msdn, malheureusement, j'arrive a la sitation suivante.
Je veux 4 noeuds "racines", avec chacun 7 feuilles=20
identiques, mais, je n arrive a avoir que le dernier noeud=20
de renseign=E9... Voici mon code=20
Private Sub UserForm_Initialize()
Dim TempNode As Node
Dim i, j As Integer
For i =3D 1 To 11
Set TempNode =3D arbre.Nodes.Add(, , "color" & i,=20
Hoja3.Range("B" & i).Value)
Next
For i =3D 1 To 4
Set TempNode =3D arbre.Nodes.Add(, , "pieza" & i,=20
Hoja3.Range("A" & i).Value)
Next
For j =3D 1 To 11
Set arbre.Nodes("color" & j).Parent =3D arbre.Nodes=20
("pieza" & 1)
Next
End Sub
ou la feuille Hoja3 contient en colonne A les pieces=20
(noeuds racines) et en colonne B les couleurs des pieces=20
(feuilles)...
J'ai l impression que la construction de chaque groupe de=20
feuille annule la precedente, mais je ne sais pas comment=20
changer tout ca...
Toute idee est la bienvenue, mes amis...
a+
Xoco
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Pierron
Bonjour Xoco; Je ne sais pas si j'ai bien compris ton problème, mais essaie avec:
Private Sub UserForm_Initialize() Dim j As Integer, i As Integer Dim NodeValue As String, nodX As Node TreeView1.LineStyle = tvwRootLines TreeView1.Nodes.Clear For i = 1 To 4 NodeValue = ThisWorkbook.Sheets("Hoja3").Cells(i, 1) Set nodX = TreeView1.Nodes.Add(, , "r" & i, NodeValue) For j = 1 To 7 NodeValue = ThisWorkbook.Sheets("Hoja3").Cells(j, 2) Set nodX = TreeView1.Nodes.Add("r" & i, tvwChild, "child" & i & j, NodeValue) Next j Next i End Sub
MP
"Xoco" a écrit dans le message de news:0c3601c3bf73$f9bccc70$ Bonjour,
J'ai essayé de faire un treeview avec l exemple du site Msdn, malheureusement, j'arrive a la sitation suivante. Je veux 4 noeuds "racines", avec chacun 7 feuilles identiques, mais, je n arrive a avoir que le dernier noeud de renseigné... Voici mon code
Private Sub UserForm_Initialize() Dim TempNode As Node Dim i, j As Integer For i = 1 To 11 Set TempNode = arbre.Nodes.Add(, , "color" & i, Hoja3.Range("B" & i).Value) Next
For i = 1 To 4 Set TempNode = arbre.Nodes.Add(, , "pieza" & i, Hoja3.Range("A" & i).Value) Next For j = 1 To 11 Set arbre.Nodes("color" & j).Parent = arbre.Nodes ("pieza" & 1) Next
End Sub
ou la feuille Hoja3 contient en colonne A les pieces (noeuds racines) et en colonne B les couleurs des pieces (feuilles)... J'ai l impression que la construction de chaque groupe de feuille annule la precedente, mais je ne sais pas comment changer tout ca... Toute idee est la bienvenue, mes amis... a+ Xoco
Bonjour Xoco;
Je ne sais pas si j'ai bien compris ton problème, mais essaie avec:
Private Sub UserForm_Initialize()
Dim j As Integer, i As Integer
Dim NodeValue As String, nodX As Node
TreeView1.LineStyle = tvwRootLines
TreeView1.Nodes.Clear
For i = 1 To 4
NodeValue = ThisWorkbook.Sheets("Hoja3").Cells(i, 1)
Set nodX = TreeView1.Nodes.Add(, , "r" & i, NodeValue)
For j = 1 To 7
NodeValue = ThisWorkbook.Sheets("Hoja3").Cells(j, 2)
Set nodX = TreeView1.Nodes.Add("r" & i, tvwChild, "child" & i & j,
NodeValue)
Next j
Next i
End Sub
MP
"Xoco" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:0c3601c3bf73$f9bccc70$a001280a@phx.gbl...
Bonjour,
J'ai essayé de faire un treeview avec l exemple du site
Msdn, malheureusement, j'arrive a la sitation suivante.
Je veux 4 noeuds "racines", avec chacun 7 feuilles
identiques, mais, je n arrive a avoir que le dernier noeud
de renseigné... Voici mon code
Private Sub UserForm_Initialize()
Dim TempNode As Node
Dim i, j As Integer
For i = 1 To 11
Set TempNode = arbre.Nodes.Add(, , "color" & i,
Hoja3.Range("B" & i).Value)
Next
For i = 1 To 4
Set TempNode = arbre.Nodes.Add(, , "pieza" & i,
Hoja3.Range("A" & i).Value)
Next
For j = 1 To 11
Set arbre.Nodes("color" & j).Parent = arbre.Nodes
("pieza" & 1)
Next
End Sub
ou la feuille Hoja3 contient en colonne A les pieces
(noeuds racines) et en colonne B les couleurs des pieces
(feuilles)...
J'ai l impression que la construction de chaque groupe de
feuille annule la precedente, mais je ne sais pas comment
changer tout ca...
Toute idee est la bienvenue, mes amis...
a+
Xoco
Bonjour Xoco; Je ne sais pas si j'ai bien compris ton problème, mais essaie avec:
Private Sub UserForm_Initialize() Dim j As Integer, i As Integer Dim NodeValue As String, nodX As Node TreeView1.LineStyle = tvwRootLines TreeView1.Nodes.Clear For i = 1 To 4 NodeValue = ThisWorkbook.Sheets("Hoja3").Cells(i, 1) Set nodX = TreeView1.Nodes.Add(, , "r" & i, NodeValue) For j = 1 To 7 NodeValue = ThisWorkbook.Sheets("Hoja3").Cells(j, 2) Set nodX = TreeView1.Nodes.Add("r" & i, tvwChild, "child" & i & j, NodeValue) Next j Next i End Sub
MP
"Xoco" a écrit dans le message de news:0c3601c3bf73$f9bccc70$ Bonjour,
J'ai essayé de faire un treeview avec l exemple du site Msdn, malheureusement, j'arrive a la sitation suivante. Je veux 4 noeuds "racines", avec chacun 7 feuilles identiques, mais, je n arrive a avoir que le dernier noeud de renseigné... Voici mon code
Private Sub UserForm_Initialize() Dim TempNode As Node Dim i, j As Integer For i = 1 To 11 Set TempNode = arbre.Nodes.Add(, , "color" & i, Hoja3.Range("B" & i).Value) Next
For i = 1 To 4 Set TempNode = arbre.Nodes.Add(, , "pieza" & i, Hoja3.Range("A" & i).Value) Next For j = 1 To 11 Set arbre.Nodes("color" & j).Parent = arbre.Nodes ("pieza" & 1) Next
End Sub
ou la feuille Hoja3 contient en colonne A les pieces (noeuds racines) et en colonne B les couleurs des pieces (feuilles)... J'ai l impression que la construction de chaque groupe de feuille annule la precedente, mais je ne sais pas comment changer tout ca... Toute idee est la bienvenue, mes amis... a+ Xoco
voui monsieur michel, vous avez tout a fait tres bien compris, et ca marche nickel, alors je ne peux que te remercier de tout coeur... Donc merci de tout coeur :) Xoco
-----Message d'origine----- Bonjour Xoco; Je ne sais pas si j'ai bien compris ton problème, mais essaie avec:
Private Sub UserForm_Initialize() Dim j As Integer, i As Integer Dim NodeValue As String, nodX As Node TreeView1.LineStyle = tvwRootLines TreeView1.Nodes.Clear For i = 1 To 4 NodeValue = ThisWorkbook.Sheets("Hoja3").Cells(i, 1) Set nodX = TreeView1.Nodes.Add(, , "r" & i, NodeValue) For j = 1 To 7 NodeValue = ThisWorkbook.Sheets("Hoja3").Cells(j, 2) Set nodX = TreeView1.Nodes.Add("r" & i, tvwChild, "child" & i & j,
NodeValue) Next j Next i End Sub
MP
"Xoco" a écrit dans le message de
news:0c3601c3bf73$f9bccc70$ Bonjour,
J'ai essayé de faire un treeview avec l exemple du site Msdn, malheureusement, j'arrive a la sitation suivante. Je veux 4 noeuds "racines", avec chacun 7 feuilles identiques, mais, je n arrive a avoir que le dernier noeud de renseigné... Voici mon code
Private Sub UserForm_Initialize() Dim TempNode As Node Dim i, j As Integer For i = 1 To 11 Set TempNode = arbre.Nodes.Add(, , "color" & i, Hoja3.Range("B" & i).Value) Next
For i = 1 To 4 Set TempNode = arbre.Nodes.Add(, , "pieza" & i, Hoja3.Range("A" & i).Value) Next For j = 1 To 11 Set arbre.Nodes("color" & j).Parent = arbre.Nodes ("pieza" & 1) Next
End Sub
ou la feuille Hoja3 contient en colonne A les pieces (noeuds racines) et en colonne B les couleurs des pieces (feuilles)... J'ai l impression que la construction de chaque groupe de feuille annule la precedente, mais je ne sais pas comment changer tout ca... Toute idee est la bienvenue, mes amis... a+ Xoco
.
voui monsieur michel, vous avez tout a fait tres bien
compris, et ca marche nickel, alors je ne peux que te
remercier de tout coeur...
Donc merci de tout coeur :)
Xoco
-----Message d'origine-----
Bonjour Xoco;
Je ne sais pas si j'ai bien compris ton problème, mais
essaie avec:
Private Sub UserForm_Initialize()
Dim j As Integer, i As Integer
Dim NodeValue As String, nodX As Node
TreeView1.LineStyle = tvwRootLines
TreeView1.Nodes.Clear
For i = 1 To 4
NodeValue = ThisWorkbook.Sheets("Hoja3").Cells(i, 1)
Set nodX = TreeView1.Nodes.Add(, , "r" & i, NodeValue)
For j = 1 To 7
NodeValue = ThisWorkbook.Sheets("Hoja3").Cells(j, 2)
Set nodX = TreeView1.Nodes.Add("r" & i,
tvwChild, "child" & i & j,
NodeValue)
Next j
Next i
End Sub
MP
"Xoco" <anonymous@discussions.microsoft.com> a écrit dans
le message de
J'ai essayé de faire un treeview avec l exemple du site
Msdn, malheureusement, j'arrive a la sitation suivante.
Je veux 4 noeuds "racines", avec chacun 7 feuilles
identiques, mais, je n arrive a avoir que le dernier noeud
de renseigné... Voici mon code
Private Sub UserForm_Initialize()
Dim TempNode As Node
Dim i, j As Integer
For i = 1 To 11
Set TempNode = arbre.Nodes.Add(, , "color" & i,
Hoja3.Range("B" & i).Value)
Next
For i = 1 To 4
Set TempNode = arbre.Nodes.Add(, , "pieza" & i,
Hoja3.Range("A" & i).Value)
Next
For j = 1 To 11
Set arbre.Nodes("color" & j).Parent = arbre.Nodes
("pieza" & 1)
Next
End Sub
ou la feuille Hoja3 contient en colonne A les pieces
(noeuds racines) et en colonne B les couleurs des pieces
(feuilles)...
J'ai l impression que la construction de chaque groupe de
feuille annule la precedente, mais je ne sais pas comment
changer tout ca...
Toute idee est la bienvenue, mes amis...
a+
Xoco
voui monsieur michel, vous avez tout a fait tres bien compris, et ca marche nickel, alors je ne peux que te remercier de tout coeur... Donc merci de tout coeur :) Xoco
-----Message d'origine----- Bonjour Xoco; Je ne sais pas si j'ai bien compris ton problème, mais essaie avec:
Private Sub UserForm_Initialize() Dim j As Integer, i As Integer Dim NodeValue As String, nodX As Node TreeView1.LineStyle = tvwRootLines TreeView1.Nodes.Clear For i = 1 To 4 NodeValue = ThisWorkbook.Sheets("Hoja3").Cells(i, 1) Set nodX = TreeView1.Nodes.Add(, , "r" & i, NodeValue) For j = 1 To 7 NodeValue = ThisWorkbook.Sheets("Hoja3").Cells(j, 2) Set nodX = TreeView1.Nodes.Add("r" & i, tvwChild, "child" & i & j,
NodeValue) Next j Next i End Sub
MP
"Xoco" a écrit dans le message de
news:0c3601c3bf73$f9bccc70$ Bonjour,
J'ai essayé de faire un treeview avec l exemple du site Msdn, malheureusement, j'arrive a la sitation suivante. Je veux 4 noeuds "racines", avec chacun 7 feuilles identiques, mais, je n arrive a avoir que le dernier noeud de renseigné... Voici mon code
Private Sub UserForm_Initialize() Dim TempNode As Node Dim i, j As Integer For i = 1 To 11 Set TempNode = arbre.Nodes.Add(, , "color" & i, Hoja3.Range("B" & i).Value) Next
For i = 1 To 4 Set TempNode = arbre.Nodes.Add(, , "pieza" & i, Hoja3.Range("A" & i).Value) Next For j = 1 To 11 Set arbre.Nodes("color" & j).Parent = arbre.Nodes ("pieza" & 1) Next
End Sub
ou la feuille Hoja3 contient en colonne A les pieces (noeuds racines) et en colonne B les couleurs des pieces (feuilles)... J'ai l impression que la construction de chaque groupe de feuille annule la precedente, mais je ne sais pas comment changer tout ca... Toute idee est la bienvenue, mes amis... a+ Xoco
