Ajout Multiple dans une liste à sélection multiple

Question

Je suis sous Access 2003... j'ai 2 Listes : ListeDepart et ListeArrivee qui supportent la sélection multiple étendue.

En cliquant sur un bouton de commande, je souhaiterai ajouter un bloc de lignes sélectionnées dans ListeDepart et les transférer dans ListeArrivee. mais il n'insére que la première ligne et ne tiens pas compte des autres! Voilà le code que j'ai utilisé :

Private Sub cmdAjout_Click()
    Dim i As Integer
    
    i = 0
    While i < Me.lstMedia.ListCount
        If Me.lstDepart.Selected(i) = True Then
            Me.lstArrivee.AddItem (Me.lstDepart.ItemData(i))
            Me.lstDepart.RemoveItem (i)
        End If
        i = i + 1
    Wend
End Sub

Aidez-moi!!!

cs_frop01 · Answer

combien de listes utilises-tu ??

Me.lstMedia , Me.lstDepart  et Me.lstArrivee ???

verifies que 

While i < Me.lstMedia.ListCount

n'est pas juste comme ca

While i < Me.lstDepart.ListCount

 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)  [mailto:frop01@yahoo.fr YAHOO]  >:) 

Membre du club CodeS-SourceS

Chris_LaFouine · Answer

Pardon, j'ai oublié de changer un nom... c'est lstDepart à la place de lstMedia mais ça change rien... j'ai le meme probleme...

cs_rene38 · Answer

Bonjour

Problème avec While i < Me.lstMedia.ListCount :
quand on fait un RemoveItem, ListCount n'est plus le même
Une solution :
Private Sub cmdAjout_Click()
Dim i As Integer
For i = Me.lstDepart.ListCount - 1 To 0 Step -1
   If Me.lstDepart.Selected(i) Then
      Me.lstArrivee.AddItem Me.lstDepart.ItemData(i)
      Me.lstDepart.RemoveItem (i)
   End If
Next i
End Sub

une autre :

Private Sub cmdAjout_Click()
Dim i As Integer
i = Me.lstDepart.ListCount - 1
While i >= 0
   If Me.lstDepart.Selected(i) Then
      Me.lstArrivee.AddItem Me.lstDepart.ItemData(i)
      Me.lstDepart.RemoveItem (i)
   End If
   i = i - 1
Wend
End Sub

cs_frop01 · Answer

Olala, je l'avais pas vu celle la 

Quel sacré sens de l'observation que t'as rene38  :big) 

 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)  [mailto:frop01@yahoo.fr YAHOO]  >:) 

Membre du club CodeS-SourceS

Ajout Multiple dans une liste à sélection multiple

4 réponses

Discussions similaires