[XL-2010] Synchroniser scrollbar avec le drag and drop dans un treeview

Re-,
Pour ceux qui pourrait être intéressés ou confrontés à ce problème, en l'absence de solution, voici la "parade" que j'ai retenue : replier arborescence du treeview.

Code:

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
28
29
30
31
32
33
34
35
36
Private Sub TVClasCode_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
Dim i As Integer

'Gestion de l'icône de la souris et des images du Treeview pendant un Drag & Drop
    With BDGestCode
        If Button = 1 Then
            If Not .TVClasCode.HitTest(x * 15, y * 15) Is Nothing Then
                If ClefDrag Like "Cat*" Or .TVClasCode.HitTest(x * 15, y * 15).Key = "Cat0" Or Not BoolEnableDrag Then
                    .TVClasCode.MousePointer = ccNoDrop
                    BoolDrag = False
                Else
                    BoolDrag = True
                    If Shift = 2 Then
                        BoolCopy = True
                        .TVClasCode.Nodes(ClefDrag).Image = IIf(TypDrag = "G", 6, 7)
                    End If
                                
                    .TVClasCode.MousePointer = ccCustom
                    .TVClasCode.MouseIcon = .TVClasCode.Nodes(ClefDrag).CreateDragImage
                End If
                Set .TVClasCode.DropHighlight = .TVClasCode.HitTest(x * 15, y * 15)

                For i = 1 To Feuil2.Range("G" & Rows.Count).End(xlUp).Row - 1
                Clef = "Cat" & i
                    BDGestCode.TVClasCode.Nodes(Clef).Expanded = False
                Next i
'                If Not .TVClasCode.DropHighlight.Expanded Then .TVClasCode.DropHighlight.Expanded = True
            End If
        Else
            Set .TVClasCode.DropHighlight = Nothing
            .TVClasCode.MousePointer = ccDefault
            Set .TVClasCode.MouseIcon = Nothing
            BoolDrag = False
        End If
    End With
End Sub

Pas super pratique mais bon...
Amicalement