Bonjour,

J'ai essayé de suivvre ce tuto pour faire un drag & drop mais cela ne fonctionne pas... j'ai un message d'erreur :

erreur d'exécution '438' - Propriété ou méthode non gérée par cet objet
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Form_Open(Cancel As Integer)

TreeView1.Nodes.Add , , "coucou1", "coucou1"
TreeView1.Nodes.Add , , "coucou2", "coucou2"

TreeView1.Nodes.Add "coucou1", tvwChild, "hello1", "hello1"
TreeView1.Nodes.Add "coucou1", tvwChild, "hello2", "hello2"

TreeView1.Nodes.Add "coucou2", tvwChild, "hello4", "hello4"
TreeView1.Nodes.Add "coucou2", tvwChild, "hello5", "hello5"

End Sub

Private Sub TreeView1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)

    If Button = vbLeftButton Then
    
        boFlagEC = True
        
        'erreur ici
        TreeView1.DragIcon = TreeView1.SelectedItem.CreateDragImage
        'erreur ici
        TreeView1.Drag vbBeginDrag

    End If

End Sub
à l'aide please

merci
a+
Dams'