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

[alighieri]

C'était un exemple d''erreur, moi je voulais que si je sélectionne le 3 ème élément , alors cet élément s'ajoute dans une liste et qu'elle se retire de la liste d'origine.

Je prend mon exemple : J'ajoute des acteurs dans une liste pour un film donné. Dans cette interface d'ajout, j'ai une liste existante d'acteur. (L'ajout d'acteur dans la base de donnée se fait via un autre formulaire qui grace a lui charge tous les acteurs dans la liste d'acteurs existants). J'ai 2 bouton : Le premier permet d'ajouter un acteur (et dans ce cas la il retire l'acteur de la liste existante).
Le deuxième permet de retirer l'acteur en cas d'erreur, c'est l'inverse koi

[ucfoutu]

Il me semble que les nombreux exemples déjà donnés te permettent de faire face à ce que tu veux...
Te reste à les comprendre, les analyser ... et à en faire ce que tu veux..
N'attends pas de moi une soupe toute cuite, prête à être mangée sans la moindre réflexion...

Bonne chance

Edit :

en voilà un dernier... el ultimo... the last ... et là, ma foi, si tu ne piges toujours pas comment fonctionnent les choses ===>> Bye ...

Code :

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

1
2
3
4
5
Private Sub Command1_Click()
      If List1.ListIndex < 1 Then Exit Sub
      List2.AddItem List1.List(List1.ListIndex)
      List1.RemoveItem List1.ListIndex
End Sub

[alighieri]

Je comprend la syntaxe et le principe du traitement. C'est juste que je ne comprend pas pourquoi ca ne marche pas correctement. Merci comme même à toi de m'avoir aidé.

[OhMonBato]

As tu essaye un nouveau projet avec 2 listes toutes betes (tu mets 1,2,3,4,5 dans la premiere, a,b,c,d,e dans la deuxieme) et un bouton de commande et le code que je t'ai donne ?
Est ce que ca marche (oui/non) ?
Comme la reponse devrait etre oui, il te suffit de changer le nom des listes pour coller a ton code, point barre.

[zazaraignée]

Si tu utilises des comboBox et que tu fais des sélections multiples dans celle-ci, n'utilises surtout pas la propriété Text. Dans ta boucle, recherche les élément dont la propriété Selected est à true. De mémoire. J'ai pas vérifié. Si ça marche pas, tu dis.

[Edit] quand la mémoire fait défaut... ComboBox --> pas de multiSelect.
voici mon test:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
    Dim i As Integer
    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) Then List2.AddItem List1.List(i)
    Next
    For i = List1.ListCount - 1 To 0 Step -1
        If List1.Selected(i) Then List1.RemoveItem i
    Next
End Sub

qui marche très bien. La première boucle, en ordre croissant, parcourt les éléments de la première liste pour ajouter à la seconde. La deuxième boucle, en ordre décroissant, retire les éléments sélectionnés de la liste. En ordre décroissant pour éviter les débordements (out of bound).

[alighieri]

Merci OhMonBato. Mais je ne comprend, j'ai essayé de le faire dans mon application , ca ne marchait pas; alors que sur un nouveau projet ca marche.
Merci a tous de m'avoir aidé.