Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionA ---> B ---> C ---> D ---> E ---> F
A ---> B ---> D ---> E ---> C ---> F
Private Sub Command1_Click() Dim Textbuffer As String, KeyBuffer As String, KeyBuffer2 As String On Error GoTo NoMore With TreeView1.SelectedItem Textbuffer = .Next.Text KeyBuffer = .Next.Key .Next.Text = .Text .Next.Key = "NewKey" .Text = Textbuffer KeyBuffer2 = .Key .Key = KeyBuffer .Next.Key = KeyBuffer2 .Next.Selected = True End With NoMore: End Sub Private Sub Command2_Click() Dim Textbuffer As String, KeyBuffer As String, KeyBuffer2 As String On Error GoTo NoMore With TreeView1.SelectedItem Textbuffer = .Previous.Text KeyBuffer = .Previous.Key .Previous.Text = .Text .Previous.Key = "NewKey" .Text = Textbuffer KeyBuffer2 = .Key .Key = KeyBuffer .Previous.Key = KeyBuffer2 .Previous.Selected = True End With NoMore: End Sub Private Sub Form_Load() With TreeView1.Nodes .Add , , "a", "a" .Add "a", tvwChild, "b", "b" .Add "a", tvwChild, "c", "c" .Add "a", tvwChild, "d", "d" .Add "a", tvwChild, "e", "e" .Add "a", tvwChild, "f", "f" .Item("f").EnsureVisible End With Command1.Caption = "Descendre" Command2.Caption = "Monter" End Sub