XL 2010 Drag and Drop

[jm.andryszak]

Bonjour à tous
Voilà plusieurs jours que je trouve pas de solution.
Je voudrais que lorsque je fais un DragOver sur la ListView1 la barre de défilement verticale se déplace.
Mais jusque là toutes mes tentatives échouent, si une âme charitable pouvait m'apporter une solution ça me permettrait de progresser dans ce projet ?
fichier ci-joint
Je résous en partie avec
Private Sub UserForm_Initialize()
ListView1.Height = Usf1.ListView1.ListItems(1).Top + (Usf1.ListView1.ListItems.Count + 1) * Usf1.ListView1.ListItems(1).Height
Mais ça ne me convient pas
Merci par avance

 

[fanch55]

Salut,
Je ne vois pas trop le problème sinon que la listview2 sort de l'usf ,
ce qui peut être corrigé à l'initialize , la barre verticale de listview2 se déplace bien lors du drop :

    Me.Width = ListView2.Left + ListView2.Width + 15
    Dim x: x = Application.WorksheetFunction.Max(ListView1.Top + ListView1.Height, ListView2.Top + ListView2.Height) + 15
    Me.Height = x
    Do While Me.InsideHeight < x
        Me.Height = Me.Height + 0.5
    Loop
    Me.Caption = "ListView"
End Sub

La barre verticale de listview1 semble fonctionner correctement également ???

 

[jm.andryszak]

Merci pour cette réponse
Je ne pense pas que ça va résoudre mon problème
Je m'intéresse à Listview1 et au déplacement de la barre de défilement sur l'évènement Drag Over.