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.