Sub Userform_Activate()
With TreeView1.Nodes
.Clear
.Add(Key:="N1", Text:="Ensemble de murs").Tag = "20:33"
.Add(Key:="N2", Text:="Isolation").Tag = "34:40"
.Add(Key:="N3", Text:="Options murs").Tag = "41:48"
.Add("N3", tvwChild, "N3C1", "Vis SDS").Tag = "42:42"
.Add("N3", tvwChild, "N3C2", "Membranes").Tag = "43:43"
.Add("N3", tvwChild, "N3C3", "Contre-Plaqué").Tag = "44:44"
.Add("N3", tvwChild, "N3C4", "Ancrages").Tag = "45:48"
.Add(Key:="N4", Text:="Camurlat").Tag = "49:54"
.Add("N4", tvwChild, "N4C1", "Murs").Tag = "50:52"
.Add("N4", tvwChild, "N4C2", "Murs 2").Tag = "52:52"
.Add("N4", tvwChild, "N4C3", "Plafonds").Tag = "53:54"
.Add(Key:="N5", Text:="Ferme de toit").Tag = "55:64"
.Add(Key:="N6", Text:="Ensemble Plancher").Tag = "65:73"
.Add("N6", tvwChild, "N6C1", "Vrac Plancher").Tag = "70:73"
.Add(Key:="N7", Text:="Option module").Tag = "74:79"
End With
' Initialisation des Checkboxes selon la Feuille active
' """""""""""""""""""""""""""""""""""""""""""""""""""""
For Each Node In TreeView1.Nodes
Node.Checked = Not Rows(Node.Tag).Hidden
Node.Expanded = True
Next
' """""""""""""""""""""""""""""""""""""""""""""""""""""
End Sub