developper ou replier un node dans un treeview

Bonjour, je travail sur un projet d'application et je cherche comment puis-je a partir d'un bouton, deplier ou replier une arborescence d'un node treeview sous VBA Excel. Je sais que dans un treeview il y a le carré avec le +/- pour deplier ou replier l'arborescence mais l'application que je tente de reproduire dispose des 2 boutons + - en plus qui ont la même action.
J'ai aussi une autre question, je souhaite ajouter une icone a coté des labels des onglets d'un multipage toujours sur VBA.
Merci d'avance pour vos réponses.

Citation:

---

Envoyé par harkilius

Bonjour, je travail sur un projet d'application et je cherche comment puis-je a partir d'un bouton, deplier ou replier une arborescence d'un node treeview sous VBA Excel. Je sais que dans un treeview il y a le carré avec le +/- pour deplier ou replier l'arborescence mais l'application que je tente de reproduire dispose des 2 boutons + - en plus qui ont la même action.

---

Trouvé! En fait il faut mettre pour ceux que ca interesserait:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton7_Click() ' bouton - 'Ce bouton vient replier toute l'arborescence: For Each Node In Me.TreeView1.Nodes If Node.Expanded = True Then Node.Expanded = False End If Next End Sub

---

Il suffit après d'inverser le True et False pour faire l'inverse!

Citation:

---

J'ai aussi une autre question, je souhaite ajouter une icone a coté des labels des onglets d'un multipage toujours sur VBA.
Merci d'avance pour vos réponses.

---

Ca, ça reste d'actualité mes recherches ne m'ont pas encore permis de trouver mais je chercherais plus tard.