Discussion :

[Alias_2003]

Bonjour à tous,
Grâce à vous, j'ai pu finaliser mon projet mais je souhaite continuer à apprendre sur l'utilisation des treeview.
Je trouve le fichier de tototiti2008 excellent () http://www.developpez.net/forums/d91...ion-codes-vba/, et je compte bien l'utiliser pour organiser mes quelques codes !!
Mais, après l'avoir bien testé, j'ai une question qui me taraude l'esprit et malgré mes recherches, je n'ai pas trouvé la solution. Dans ce fichier, tototiti2008 utilise le drag and drop. Tout fonctionne parfaitement.
Mais comment faire pour synchroniser le scrollbar du treeview lors du drag and drop ??? Cette absence de synchro est "gênante" lors du déplacement des codes vers le bas ou le haut du treeview...
Merci beaucoup pour vos lumières et encore bravo à tototiti2008,
Bonne journée
Amicalement

[Alias_2003]

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 :

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
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