Suppression noeud Treeview

Question

Bonjour,
je souhaiterais savoir comment supprimer un noeud enfant dans un Treeview en VBS ou VBA.
Voici mon code et je ne comprend pas pourquoi il ne marche pas. Le message d'erreur est :" Elément introuvable."

Merci

Private Sub RetraitAnalyse_Click()

Dim titi As String

titi = TreeView1.SelectedItem.Text

TreeView1.Nodes.Remove (titi)

End Sub

wiederhe · Answer

Bonjours,

La propriété Remove a comme paramètre l'index du noeux et pas son nom.

Le code serait plutôt:

  Dim iNodIndex As Integer

  iNodIndex = TreeView1.SelectedItem.Index

  TreeView1.Nodes.Remove (iNodIndex)

Cordialement

Herve

lermite222 · Answer

Bonjour, tu peu aussi essayer avec..
Private Sub RetraitAnalyse_Click() 
Dim titi As String 
     titi = TreeView1.SelectedItem.Key
    TreeView1.Nodes.Remove (titi) 
End Sub

Ou en abrégé..
Private Sub RetraitAnalyse_Click() 
    TreeView1.Nodes.Remove (TreeView1.SelectedItem.Key)
End Sub
A+

Suppression noeud Treeview

2 réponses

Votre réponse

Discussions similaires

Newsletters