Discussion :

[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.
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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

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.