Re : Objet requis
Bonjour à tous! coilà je vous donne mon code, j'ai lancé ma macro avec F8 et apparement ça plante au niveau de la partie en rouge!! voila !! Merci!!
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