Organigramme treeview

Bonsoir Pascal,
C'est possible si tu dispose du contrôle. Affichage|Barres d'outils|Boîte à
outils Contrôles, puis clic sur le bouton du bas (Autres contrôles) et dans
la liste "Microsoft TreeView Control 6.0 (SP6)". Pose le sur la feuille et
colle le code suivant dans le module de la feuille.
Exemple :
'Exécute cette proc pour remplir le TreeView :
Sub Remplir()
TreeView1.Nodes.Clear
Noeuds
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
MsgBox Node.Text
End Sub

Sub Noeuds()
Dim Noeud As Node
Dim I As Integer
Dim J As Integer
Dim H As Integer
Dim F As Integer
Dim G As Integer

With TreeView1
.LineStyle = 1
Set Noeud = .Nodes.Add(, , "Pdg", "Patron")
For I = 1 To 5
Set Noeud = .Nodes.Add("Pdg", _
tvwChild, "Cadre" & I, "Cadre " & I)
For J = 1 To 3
H = H + 1
Set Noeud = .Nodes.Add("Cadre" & I, _
tvwChild, "ChEquipe" & H, _
"Chef d'équipe " & J & " de cadre " & I)
For G = 1 To 2
F = F + 1
Set Noeud = .Nodes.Add("ChEquipe" & H, _
tvwChild, "Ouvrier" & F, _
"Ouvrier " & G & " de Chef d'équipe " & J)
Next G
Set Noeud = .Nodes.Add("Cadre" & I, _
tvwChild, "Secretaire" & H, _
"Secrétaire " & J & " de cadre " & I)
Next J
Next I
End With

Set Noeud = Nothing
End Sub

Hervé

"Pascal22" <pasdespampascal.lebarzic@wanadoo.fr> a écrit dans le message
news: 42b45d1d$0$1232$8fcfb975@news.wanadoo.fr...

Je souhaiterais présenter l'organigramme d'une société sous forme de
controle treeview, dans une feuille excel.


Est-ce possible ?


Merci de votre aide.