Drag and drop dans un textbox

Bonjour à tous,
J'aimerai, en utilisant le drag and drop, pouvoir construire un texte à l'aide de phrases prises dans un litsbox.
J'arrive à faire glisser mes phrases du listbox vers le textbox. En revanche, je n'arrive pas à les placer a l'endroit ou se trouve le curseur lorsque je lâche le bouton de la souris.
La seule "solution" que j'ai trouvée est de sélectionner dans le textbox l'endroit ou je veux déposer ma phrase puis ensuite faire un glisser déposer.
Quelqu'un aurait il une solution ?

Merci d'avance

bonsoir
je ne crois pas qu'avec lesdraganddrop/over tu puisse lefaire
d'unepart parce que quand tu apuie avec le bouton de la souris dans la listebox elle prend le focus et l'evenement est libéréque l'ors du mouseup que tu soit encore dessus ou pas

cependant;)

voici une petite astuce quiconsiste a cliquer sur un item de ta liste et a cliquer a un endroit precis dans le text du textbox et l'item que tu a selectionner va se placer ici
si le textbox est vide bien evidement l'item va se placer au debut
tu constatera que j'utilise les mouse up

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim var Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) var = ListBox1.List(ListBox1.ListIndex, 0) End Sub   Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) With TextBox1 pos = .SelStart If pos = 0 And TextBox1.Value = "" Then TextBox1 = var Else .Value = Mid(.Value, 1, pos) & var & Mid(.Value, pos + 1) End If End With End Sub Private Sub UserForm_Activate() ListBox1.List = Array("toto", "titi", "riri", "fifi", "loulou") End Sub

---

Pièce jointe 427894
je crois que tu n'aura pas mieux a ma connaissance

Bonsoir Patricktoulon et merci de ta réponse.

Je vais utiliser ton astuce.
J'avais espéré une solution car lorsqu'on déplace la souris sur le textbox après avoir sélectionné un item, on voit un curseur qui se déplace avec la souris.

Je laisse le sujet ouvert quelque temps si jamais quelqu'un avait une astuce pour réaliser un vrai drag and drop.

Encore merci pour ton aide.

re

Citation:

---

J'avais espéré une solution car lorsqu'on déplace la souris sur le textbox après avoir sélectionné un item, on voit un curseur qui se déplace avec la souris.

---

pas en restant apuyé comme si tu voulais draguer c'est impossible car le textbox ne peut en aucun cas prendre le focus hors pour qu'il y est un selstart il faut qu'il est le focus

fait le test reste appuyé sur ta listbox en selectionnant un item et promene toi sur le textbox tu verra tu n'aura pas le carret(curseur),impossible !!!

Bonsoir Patricktoulon,

J'ai fait le test et j'ai bien un curseur qui se déplace dans le textbox.
Il suit les déplacements de la souris.
En revanche, ce curseur est un peu large que le curseur quand tu fais une sélection dans le textbox en cliquant directement dessus.

Mais la solution que tu m'as proposée fonctionne très bien ... sauf lorsqu'il y a des retour chariot dans le textbox.
Dans ce cas, l'insertion du texte ne se fait pas au bon endroit.
Mais en cherchant, je vais trouver une solution.

Encore merci de ton aide.

Bonjour,

Il suffit d'ajouter une opération de drag sur MouseMove de la ListBox :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub MaListBox_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 MyDataObject.SetText MaListBox.Value Effect = MyDataObject.StartDrag End If End Sub

---

Pour information le code est issu de l'aide Excel qui explique comment faire du drag & drop entre deux ListBox.

Merci de vous intéresser a mon problème.
Le souci n'est pas de réaliser le drag and drop mais que celui ci se fasse à l'endroit ou le curseur apparaît lorsque la souris se trouve sur le textbox.
et pour l'instant, je n'ai pas trouvé de réponse.
J'utilise l'astuce de Patricktoulon mais le texte ne se place pas toujours au bon endroit surtout lorsqu'il y a des retour chariots.

bonsoir harkam
nikel
par contre je ne trouve pas cette aide concernant le drag and drop listbox j'ai trouvé par contre de (textbox a textbox)
j'ai donc testé ton code et visiblement le fait de mettre le " StartDrag"au dataobject enleve le focus de la listbox et le donne au textbox en donnant un selstart quand on est dessus avec la souris
je ne savais pas
dans l'aide j'ai tapé (drag drop listbox )
je tourne sur 2007
edit:
c'est bon je l'ai trouvé dans mousemove tout court

nala
la solution de Arkham fonctionne tres bien dans un textbox multiline et ce place tres bien (j'ai testé)

Ben chez moi, cela ne fonctionne pas.:(
Pourrais tu me mettre ton classeur en pièce jointe afin que je vois ce qui cloche chez moi ?
voila le code que j'ai mis pour le textbox

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub TB1_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, ByVal Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)   Cancel = True Effect = 1 If Len(TB1.Value) = 0 Then TB1.Value = Data.GetText Else TB1.Value = Left(TB1.Value, TB1.SelStart) & Data.GetText & Right(TB1.Value, Len(TB1.Value) - TB1.SelStart) End If End Sub

---

Merci d'avance

tu n'a rien a mettre dans le textbox NADA!!!
juste la sub que t'a donné Arkham en mettant le nom de ta listbox bien sur
et rien d'autre !!!!!;)

Pièce jointe 428490

Super , ça marche.:D
Je ne voyais pas cela aussi simple.
Du coup, j'avais conservé tout mon code précédent.

Merci à Patricktoulon et a arkham.

Sujet résolu