Empecher removeitem si item Listbox non déplacé

[carlos]

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

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
&nbsp; &nbsp; &nbsp; &nbsp; If listb.Value <> '' Then
&nbsp; &nbsp; &nbsp; &nbsp; MyDataObject.SetText listb.Value
&nbsp; &nbsp; &nbsp; &nbsp; Effect = MyDataObject.StartDrag
&nbsp; &nbsp; &nbsp; &nbsp; If Effect <> 0 Then 'ajouter ceci
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; listb.RemoveItem (listb.ListIndex)
&nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; UserForm1.Frame3.Caption = UserForm1.ListBox3.ListCount & ' Dispensés'
&nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; End If
End Sub

salut

 

[carlos]

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]

JVoici le fichier de thierry

 

[carlos]

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