Discussion :

[Henry9]

Bonjour,

j'ai deux list: list1 et list2, je voudrai déplacer un élément sélectionner de list1 dans list2, j'ai fait:

Code :

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

list2.AddItem(list1.selected)

mais ca ne marche pas.

merci d'avance

[SfJ5Rpw8]

Tiens déjà pour copier...

Code :

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

1
2
3
4
5
6
 
Private Sub Command1_Click()
If List1.ListIndex >= 0 Then
  List2.AddItem List1.Text
 End If
End Sub

[Delbeke]

Bonsoir Bbil,
Je ne pense pas qu'un composant ListBox aie une propriété text, c'est reservé au ComboBox à mon avis
Je conseillerais plutot

Code :

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

1
2
3
4
5
6
7
Private Sub Command1_Click()
Dim iDx as Integer
iDx=List1.ListIndex
If List1.ListIndex >= 0 Then
  List2.AddItem List1.List(Idx)
 End If
End Sub

[Henry9]

sisi le code de bibil marche impec.

d'ailleurs j'ai un autre problème.

comment on fait pour savoir si dans une list il y a un élément qui s'appelle "Société" ?

par exemple dans ma liste gauche list1, j'ai:

Société
Nom
Prénom

Je déplace Société dans la list2

Je clique sur un bouton cmdValidation

je parcours tous les éléments de la liste list2 pour voir s'il y en a un qui est égale à "Société".

Code :

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

1
2
3
4
5
6
7
8
Private Sub cmdValidation_Click()
Dim i As Long
For i = 0 To List2.ListCount - 1
If List2.Selected(i) = "Société" Then 
MsgBox "hello"
End If
Next i
End Sub

et j'obtiens l'erreur

Runtime error 13;

type missmatch

[edit] j'ai trouvé, il suffisait de faire list2.list

[SfJ5Rpw8]

revoit ... selected cela ne te renvoi pas la valeur sélectionnée dans la list box .. mais un bit dont l'état vrai ou faux et fonction du fait que l'élément dans la liste est sélectionné ou pas... c'est surtout utile pour les liste "MultiSelect"....

dans ton cas tu devrai t'intéresser au code à Delbeke ... et à .List(Idx)

[edit] croisé...