XL 2010 Drag and Drop

jm.andryszak · 22 Janvier 2024

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 · 22 Janvier 2024

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 :

VB:

    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 · 22 Janvier 2024

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.

XL 2010 Drag and Drop

jm.andryszak

XLDnaute Occasionnel

Pièces jointes

fanch55

XLDnaute Barbatruc

jm.andryszak

XLDnaute Occasionnel

Discussions similaires