Discussion :

[alighieri]

Bonjour.
J'ai un petit problème quand je fais un passage d'éléments entre deux listes.
Je peux le faire seulement dans l'ordre de la liste.
Quand je sélectione le deuxième élément de la liste il m'efface le premier élément et me l'ajoute 2 fois.
Si je veux selectionner le 3ème élément, il m'effacera les 2 premiers éléments et me l'ajoutera 3 fois ... et ainsi de suite.

Voilà mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub ComAddAct_Click()
 
For i = 0 To LstAcEx.ListCount - 1
If LstAcEx.ListIndex >= 0 Then
    LstAjActeur.AddItem LstAcEx.Text
    LstAcEx.RemoveItem LstAjActeur.ListIndex = i
End If
Next
 
End Sub

Je ne vois pas ou est le problème. Si quelqu'un peur m'aider s'il vous plait.
Merci d'avance de vos réponses.

[OhMonBato]

C'est ca que tu veux faire ?

Code :

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

1
2
3
4
If List1.ListIndex >= 0 Then
    List2.AddItem List1.Text
    List1.RemoveItem List1.ListIndex
End If

[alighieri]

Oui c'est bien ca que je cherche a faire. Mais ca ne marche pas. le compilateur me dit qu'un argument ou appel de procédure est incorrect.
Je crois que dérriere la propriété ListIndex, il attend un indice.

[ucfoutu]

Bonjour,

Pas vraiment certains d'avoir compris tout (ça reste assez nébuleux ...)


Mais cela ne fait rien :

Voilà un exemple de ce type de manoeuvre.
A toi de l'adapter à ton mystérieux mécanisme

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
  If List1.ListIndex < 1 Then Exit Sub 'puisque tu dis vouloir commencer au 2ème !
    For i = 1 To List1.ListIndex + 1
      List2.AddItem List1.List(List1.ListIndex - 1)
    Next
    For i = 0 To List1.ListIndex
      List1.RemoveItem 0
    Next
End Sub

Edit :

Qui peut s'exprimer également ainsi :

Code :

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

1
2
3
4
5
6
7
Private Sub Command1_Click()
  If List1.ListIndex < 1 Then Exit Sub
    For I = 1 To List1.ListIndex + 1
      List2.AddItem List1.List(List1.ListIndex - 1)
      If I > List1.ListIndex Then List1.RemoveItem 0
    Next
 End Sub

Mais celà t'oblige à bien te concentrer ...

[alighieri]

En fait il s'agit d'ajouter l'élément sélectionner dans la liste, dans une autre liste.
Mais ce que tu m'as passé ucfoutu, ca reviend la meme chose de ce que j'ai marqué. Ton code fait la même erreur que moi. L'élément ajouté y est plusieur fois selon l'emplacement dans l'autre liste. Je vais essayer de réfléchir pourquoi ca fonctionne pas

[ucfoutu]

Ben...

J'ai fait celà car tu as écrit ceci :

Si je veux selectionner le 3ème élément, il m'effacera les 2 premiers éléments et me l'ajoutera 3 fois ... et ainsi de suite.

Tu vois bien que tu n'était pas suffisamment précis !

Recommence ton exposé de façon claire et très précise (au besoin avec 2 simulations d'exemple)

Le reste prendra à peine 10 secondes ...

On ne va pas jouer aux devinettes longtemps, hein ?

Je ne le fais ici qu'une fois (juste pour le cas où ...) mais ne continuerai que si tout est exprimé sans laisser le moindre doute, c'est sûr :

Code :

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

1
2
3
4
5
6
7
Private Sub Command1_Click()
  If List1.ListIndex < 1 Then Exit Sub
      List2.AddItem List1.List(List1.ListIndex - 1)
      For i = 0 To List1.ListIndex
         List1.RemoveItem 0
      Next
End Sub