donnée listbox dans textbox

[mercidevotreaide]

bonjour,

Y aurait il qq pour m'aider, svp.

Mon problème est le suivant:
J'ai une listbox en sélectionnant les données que je veux ceux-ci ce dirige vers ma listbox2.
Mon souci et que j'aimerais avoir la valeur total de ma listbox2 dans un textbox.
dans ce petit excel joint ci-dessous, quand je selectionne ma première table, pas de souci ma première table s'affiche dans ma textbox mais lorsque je sélectionne d'autre table, ma textbox réaffiche mon deuxième choix. Mais ce que j'aimerais. c'est d'avoir tous les choix que j'ai sélectionné dans ma textboxt.

En vous rementciant d'avance,

http://cjoint.com/?gwr3JEaQ4H

 

[Habitude]

Re : donnée listbox dans textbox

Dans ton Initialize
Tu met
textbox1.text= ""


dans ton CommandButton_1Click
Tu replace
Me.TextBox1 = Me.ListBox2 par
Me.TextBox1 = me.textbox1 & " " & Me.ListBox2

 

[mercidevotreaide]

Re : donnée listbox dans textbox

Bonjour Habitude,

Je te remercie pour ton attention à mon problème.
C'est ce que je chercher.
Sans abuser, je m'aperçois, que quand je clic sur annulé ajout, cela ce supprime bien dans ma listbox. Pourrais tu m'aider pour que cela fais de même dans ma textbox, stp.

En te remerciant d'avance.

 

[Habitude]

Re : donnée listbox dans textbox

me.textbox1.text= ""

 

[mercidevotreaide]

Re : donnée listbox dans textbox

Bonjour Habitude,

Je te remercie pour ta réponse, cependant, ceci efface totalement la textbox.
Ce que je cherche, c'est qu'il m'efface seulement la table que j'ai effacer.

excemple
ajoute table1 et table2
dans ma textbox j'ai table1 table2
si j'annule table2 dans la listbox il s'efface et dans la textbox il efface tous. Ce que j'aimerais c'est qu'il n'efface que table2. Comme ca il ne resterais que table1 dans ma textbox.

J'espère avoir expliqué correctement.

En te remerciant de ton temps et de ta patience.

 

[Cousinhub]

Re : donnée listbox dans textbox

bonjour,

essaie avec ces deux codes des boutons de commande :

Dim a()

Private Sub CommandButton1_Click()
    Me.ListBox1.AddItem Me.ListBox2
    For i = 0 To Me.ListBox1.ListCount - 1
        ReDim Preserve a(1 To Me.ListBox1.ListCount)
            a(i + 1) = Me.ListBox1.List(i)
    Next i
    Me.TextBox1.Text = Join(a, ", ")

End Sub

Private Sub CommandButton2_Click()
ListBox1.RemoveItem (ListBox1.ListIndex)
    For i = 0 To Me.ListBox1.ListCount - 1
        ReDim Preserve a(1 To Me.ListBox1.ListCount)
            a(i + 1) = Me.ListBox1.List(i)
    Next i
    Me.TextBox1.Text = Join(a, ", ")
End Sub

Bonne journée

 

[mercidevotreaide]

Re : donnée listbox dans textbox

Bonjour,

C'est super, un grand merci, c'est vraiment ce que je cherche.

 

[mercidevotreaide]

Re : donnée listbox dans textbox

Bonjour,

Excuse moi encore une fois, serait il possible d'interdir dans la listbox un ajout identique.

Je m'explique, si je selection table1 ok pour table1 ajout
mais si par malheur je reselection table1 qu'il y aurais un msgbox me disant que cet table existe déja dans la listbox et alors anuler l'opération.

Merci d'avance.

 

[Cousinhub]

Re : donnée listbox dans textbox

Re-,

je ne sais pas pourquoi, mais je m'en doutais....

essaie ce code :

Private Sub CommandButton1_Click()
    For i = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox2 = Me.ListBox1.List(i) Then
            MsgBox "déjà choisi"
            Exit Sub
        End If
    Next i
    Me.ListBox1.AddItem Me.ListBox2
    For i = 0 To Me.ListBox1.ListCount - 1
        ReDim Preserve a(1 To Me.ListBox1.ListCount)
            a(i + 1) = Me.ListBox1.List(i)
    Next i
    Me.TextBox1.Text = Join(a, ", ")
End Sub

Tu peux supprimer le msgbox, si tu veux..

 

[mercidevotreaide]

Re : donnée listbox dans textbox

Re,

Un grand merci pour ta rapiditer.

Ca marche nickel

Mille merci encore