Discussion :

[popsmelove]

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

[patbou]

bonjour,

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

[SilkyRoad]

bonsoir


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

2.
pas compris

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

[popsmelove]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[wape]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[popsmelove]

That's great Wape ! 9a marche du tonnerre