Bonjour à tous!! j'ai un probleme avec un treeview, quand je le lance j'ai un erreur "35601" Element Not Found! Apparement l'erreur c'est mon DEPART qui est vide mais je ne sais pas comment faire!!!
Dim tw As MSComctlLib.TreeView
Dim Base, n
Private Sub UserForm_Initialize()
Dim Depart(1 To 961)
Set tw = Me.MonArbre
[BDALGE].Sort key1:=[BDALGE].Cells(1, 7), key2:=[BDALGE].Cells(1, 5)
n = [BDALGE].Rows.Count
Base = [BDALGE]
tw.Nodes.Add(, , "NoeudInit", "PROJET ALGER").Expanded = True 'Racine Arbre: Projet'
i = 1
Do While Range("pere")(i) <> ""
tw.Nodes.Add("NoeudInit", tvwChild, "Noeud Dep" & Base(i, 7), Base(i, 7)).Expanded = True
mpere = Range("pere")(i)
Do While Range("pere")(i) = mpere
i = i + 1
Loop
chef = Range("fils")(i - 1)
hierarchie mpere, chef
Loop
End Sub
Sub hierarchie(pere, fils)
nompere = Application.VLookup(pere, [BDALGE], 1, False)
n = [BDALGE].Rows.Count
Base = [BDALGE]
tw.Nodes.Add("NoeudDep" & Depart, tvwChild, "NoeudMat" & pere, nompere).Expanded = True vfils pere
End Sub
Voila quelqu'un qui puisse m'aider SVP!!
Merci
portillo
Dim tw As MSComctlLib.TreeView
Dim Base, n
Private Sub UserForm_Initialize()
Dim Depart(1 To 961)
Set tw = Me.MonArbre
[BDALGE].Sort key1:=[BDALGE].Cells(1, 7), key2:=[BDALGE].Cells(1, 5)
n = [BDALGE].Rows.Count
Base = [BDALGE]
tw.Nodes.Add(, , "NoeudInit", "PROJET ALGER").Expanded = True 'Racine Arbre: Projet'
i = 1
Do While Range("pere")(i) <> ""
tw.Nodes.Add("NoeudInit", tvwChild, "Noeud Dep" & Base(i, 7), Base(i, 7)).Expanded = True
mpere = Range("pere")(i)
Do While Range("pere")(i) = mpere
i = i + 1
Loop
chef = Range("fils")(i - 1)
hierarchie mpere, chef
Loop
End Sub
Sub hierarchie(pere, fils)
nompere = Application.VLookup(pere, [BDALGE], 1, False)
n = [BDALGE].Rows.Count
Base = [BDALGE]
tw.Nodes.Add("NoeudDep" & Depart, tvwChild, "NoeudMat" & pere, nompere).Expanded = True vfils pere
End Sub
Voila quelqu'un qui puisse m'aider SVP!!
Merci
portillo