TreeView et List Box ou Box _besoin d'aide

Salut,

je cherche a faire deux choses sans succés pour le moment :

1 Avoir à côté de mon TV une box qui reprend les élements selectionnés dans mon TV. Par exemple si j'ai A B et C dans mon TV et que je selectionne A, alors la Box affiche A ... Un expert sur le sujet ?

2 J'ai deux listes box, la première est chargée via un de mes onglets excel la deuxième je la complète avec des mousemove de la première. Mon soucis est que la list box 1 contient deux éléments (code + nom) hors lorsque que je fais le mousemove dans la seconde list box.il ne reprend que le code et pas le nom ! alors comment faire pour que toutes les colonnes soient prises en compte ?


Au plus simple connaissez-vous de la doc où je pourrai trouver tout ce qu'il faut savoir sur les formulaire Excel, treeview et autre list box ?

Merci d'avance

bonjour,

un toto sur les controls
http://excel.developpez.com/faq/?pag...rFormatTextBox

bonsoir


1.
Tu peux utiliser l'évènement NodeClick du TreeView

Code:

---

1 2 3

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) TextBox1 = Node.Text End Sub

---

2.
pas compris

Citation:

---

connaissez-vous de la doc où je pourrai trouver tout ce qu'il faut savoir sur les formulaire Excel, treeview et autre list box ?

---

http://jacma.developpez.com/treeview/

http://silkyroad.developpez.com/VBA/ControlesUserForm/



bonne soirée
michel

Salut Michel,

Pour le 1 je vais regarder merci.

Pour le 2 en fait j'essaye juste de faire glisser des données d'une listbox vers une autres (avec la fonction MouseMove). J'arrive à le faire mais pas complètement car ma list box comporte deux données un code et un nom, or quand je fais glisser ça n'exporte que le code. Voici le code utiliser

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ListFnd1_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 ListFnd1.Value Effect = MyDataObject.StartDrag End If End Sub

---

Le tuto de jacma ne va pas assez loin et le deuxième liste j'arrive pas à l'ouvrir ?

Encore merci

Bonjour,

Une possibilité serait de délimiter les deux données (code et nom) par un séparateur (par exemple le #),
puis de reprendre chacune d'elles dans la seconde listbox à l'aide de la fonction Split().

Listbox 1 :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ListFnd1_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 ListFnd1.Value & "#" & ListFnd1.List(ListFnd1.ListIndex, 1) Effect = MyDataObject.StartDrag End If End Sub

---

Listbox2 :

Code:

---

1 2 3 4 5 6 7

Private Sub ListFnd2_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, ByVal Action As Long, 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 ListFnd2.AddItem Split(Data.GetText, "#")(0) ListFnd2.List(ListFnd2.ListCount - 1, 1) = Split(Data.GetText, "#")(1) End Sub

---

wape

That's great Wape ! 9a marche du tonnerre