Suppression noeud Treeview
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
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
Configuration: Windows 2003 Internet Explorer 6.0
2 réponses
-
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 -
ContributeurBonjour, 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+
