Utilisation d'un TreeView

Bonjour,

utiliser ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) peut
être une solution

A+

Bonjour,

Comment peut-on savoir quel "Node" est sélectionné dans un TreeView ?

Merci pour votre aide.

Merci.

--
Patrick


"anonymousA" wrote:

Bonjour,

utiliser ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) peut
être une solution

A+

Bonjour,

Comment peut-on savoir quel "Node" est sélectionné dans un TreeView ?

Merci pour votre aide.

Bonsoir,

http://www.excelabo.net/compteclic.php?nom=jb-treeview

Dim tw As MSComctlLib.TreeView
Private Sub UserForm_Initialize()
Dim Base, n
Dim Départ(1 To 15)
Set tw = Me.MonArbre
[BdPersonnel].Sort key1:=[BdPersonnel].Cells(1, 7)
n = [BdPersonnel].Rows.Count
Base = [BdPersonnel]

'tw.Nodes.Add(noeud_père,twchild,création_noeud_courant,libellé_noeud)
tw.Nodes.Add(, , "NoeudInit", "Début").Expanded = True ' Racine
arbre
'-- départements
For i = 1 To n
If IsError(Application.Match(Base(i, 7), Départ, 0)) Then
tw.Nodes.Add("NoeudInit", tvwChild, "NoeudDep" & Base(i, 7),
Base(i, 7)).Expanded = True
nd = nd + 1
Départ(nd) = Base(i, 7)
End If
Next i
'--- Personnes
For i = 1 To n
tw.Nodes.Add("NoeudDep" & Base(i, 7), tvwChild, "NoeudMat" &
Base(i, 1), Base(i, 3)).Expanded = True
Next i
End Sub

Private Sub MonArbre_NodeClick(ByVal Node As MSComctlLib.Node)
If Left(Node.Key, 8) = "NoeudMat" Then
Me.nom = Application.VLookup(Val(Mid(Node.Key, 9)), [BdPersonnel],
3, False)
Me.Prenom = Application.VLookup(Val(Mid(Node.Key, 9)),
[BdPersonnel], 4, False)
Me.Departement = Application.VLookup(Val(Mid(Node.Key, 9)),
[BdPersonnel], 7, False)
Me.Salaire = Application.VLookup(Val(Mid(Node.Key, 9)),
[BdPersonnel], 6, False)
Me.Salaire = Format(Me.Salaire, "0.00 €")
End If
End Sub



Cordialement JB

Bonjour,

utiliser ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) peut
être une solution

A+

Bonjour,

Comment peut-on savoir quel "Node" est sélectionné dans un TreeView ?

Merci pour votre aide.