Empecher removeitem si item Listbox non déplacé

carlos · 26 Octobre 2005

Bonjour le forum

Une question en amene souvent une autre .

Sur le fichier joint , je peux deplacer les items de chacun des listbox de l'un vers l'autre avec MAJ.

Mon probleme maintenant est que si je 'lache ' l'item avant qu'il n'arrive sur la listbox de destination alors il est supprimé de sa listbox de depart et à completement disparu .

Est il possible d'empecher le removeItem si le glisser-Deposer se fait en dehors des listbox?.

Merci

Carlos [file name=Classlistbox_20051026104106.zip size=13847]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classlistbox_20051026104106.zip[/file]

Hervé · 26 Octobre 2005

Bonjour carlos, le forum

il y a quelque chose qui m'echappe dans ton code, normalement on ne devrait pas avoir à gérer ce type d'evenement (enfin il me semble).

Je voulais rechercher la démo de thierry qui t'avais inspiré, mais je n'arrive pas a accéder aux archives ???

Une solution un peu bricolorigolo :

Private Sub Listb_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
    Dim MyDataObject As DataObject

    If Button = 1 Then
        Set MyDataObject = New DataObject
        Dim Effect As Integer
        If listb.Value <> '' Then
        MyDataObject.SetText listb.Value
        Effect = MyDataObject.StartDrag
        If Effect <> 0 Then 'ajouter ceci
            listb.RemoveItem (listb.ListIndex)
        End If
            UserForm1.Frame3.Caption = UserForm1.ListBox3.ListCount & ' Dispensés'
        End If
    End If
End Sub

salut

carlos · 26 Octobre 2005

Bonjour

Merci pour ta proposition qui pour moi et pour pour l'instant est au top .

Voici le fichier de thierry sur lequel je me suis basé en PJ

Merci beaucoup Hervé

Carlos

carlos · 26 Octobre 2005

JVoici le fichier de thierry

carlos · 26 Octobre 2005

nouvelle tentative ... [file name=USFDragNDrop.zip size=19203]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/USFDragNDrop.zip[/file]

Empecher removeitem si item Listbox non déplacé

carlos

XLDnaute Impliqué

Pièces jointes

Hervé

XLDnaute Barbatruc

carlos

XLDnaute Impliqué

carlos

XLDnaute Impliqué

carlos

XLDnaute Impliqué

Pièces jointes

Empecher removeitem si item Listbox non déplacé

carlos

XLDnaute Impliqué

Pièces jointes

Hervé

XLDnaute Barbatruc

carlos

XLDnaute Impliqué

carlos

XLDnaute Impliqué

carlos

XLDnaute Impliqué

Pièces jointes

Privacy & Transparency

Privacy & Transparency