listbox copie vers autres lisbtox

[toubib]

Bonjourà tous,

j'ai un ptit soucis avec un tout ptit bout de code:
voila le code:

Private Sub CommandButton1_Click()

Dim j As Byte
For j = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(j) = True Then
fondsconcurrents.ListBox2.AddItem recherche.ListBox1.Selected(j)
End If
Next j

Unload Me
fondsconcurrents.Show
              
End Sub

voila le soucis :
comme vous le voyez j'ai un USF avec un listbox et ce que je voudrais c'est que quand je clique sur un ou des éléments de la listbox, qu'il(s) soi(en)t copié(s) vers une deuxième listbox ou il y a déjà des éléments. en l'occurrence ca marche nickel sauf que au lieu de me copier 'le texte' et il me copie que des -1 et ce quel que soit le ou les objets selectionnés. le nbre de -1 correspond bien au nombre d'objets seléctionnés mais ca copie que ça :s

vous voyez ce que ca peut être?

Message édité par: toubib, à: 25/11/2005 10:32

 

[adebrux]

salut,

Il me semble que ton probleme vient du fait que tu rajoute la valeur deton selected(j) (pas sur que ce soit clair énoncé comme ca...

Est ce que t'as essayé le code suivant:

ListBox2.AddItem ListBox1.list(j)

juste après ton test.

Bon courage

Arnaud

 

[toubib]

euh comment dire? MERCI
ca marche nickel, j'ai encore du mal avec les syntaxes pour les USF donc je demande souvent

encore merci et bonne journée à tous