impossible de supprimer des Items dans une listbox à choix multiple

Version imprimable

Bonjour à tous

J'ai 2 listbox à choix multiple sur un userform
j'ai un bouton qui grace à une boucle, charge la deuxième listbox avec les Item sélectionner et juste là ça fonctionne, mais impossible de supprimer l'item
J'ai essayé toute les syntaxes que j'ai pu trouver sans aucun résultat
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub action() Dim Tableau() As String, Inscrire() As String Dim i As Integer, L As Integer, P As String, y As Long, A As String, Li As Integer, Z As Integer For y = 0 To Box1.ListCount - 1 With Box1 If .Selected(y) = True Then TBox1.AddItem .List(y) ' ça ça fonctionne .RemoveItem y 'là ça plante, .RemoveItem (y) ça plante aussi, End If End With Next y End Sub
L'erreur doit être encore grosse comme une maison mais j'ai grandement besoin de votre aide pour la trouvée

Merci d'avance

La listbox "Box1 était chargée avec "Rowsource" alors j'ai pensé que ça pouvait venir de là, mais même si la list est chargée avec une boucle, ça ne change rien : impossible de supprimer l'Item (y)

16/11/2013, 15h02
Daniel.C

Bonjour,

Avec "RowSource", c'est sûr que ce n'est pas possible. Est-ce qu'elle est remplie avec "AddItem" ? Quel est le message d'erreur ?
PS. c'est "y+1" pour removeitem.

merci pour la réponse
donc si j'ai bien compris impossible de supprimer l'item du même N° que (y)
alors j'ai rajouter une deuxième boucle pour supprimer l'item précédent mon (y), si il est sélectionner
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 Sub action() Dim Tableau() As String, Inscrire() As String Dim i As Integer, l As Integer, P As String, y As Long, A As String, Li As Integer, Z As Integer On Error Resume Next For y = 0 To Box1.ListCount - 1 With Box1 If .Selected(y) = True Then TBox1.AddItem .List(y) End If If y >= 1 Then If .Selected(y - 1) = True Then .RemoveItem (y - 1) End If End If End With Next y End Sub
Le problème c'est que ça ne fonctionne qu'une fois car ça plante sur cette ligne
Code:

1 2 For y = 0 To Box1.ListCount - 1
l'erreur est "l'indice n'appartient pas à la sélection

je suppose que supprimer un item fou le bazar dans liscount -1
je ne vois pas trop comment y remédier
Y = Y + 1 ou Y = Y - 1 placer en dessous de la suppression ne fonctionne pas bon faut bien dire que je ne sais pas trop quoi faire et que je tatonne

merci encore pour votre aide

16/11/2013, 15h26
casefayere
Et si tu commences par la fin
Code:

1 2 For y = Box1.ListCount to 0 step -1 ...
16/11/2013, 15h40
dmoluc

aucun changement mise à part que cette fois-ci, ça supprime le dernier item sélectionné de la liste et ça plante

indice ne correspond pas à la sélection

:calim2:
16/11/2013, 15h44
dmoluc

je mets le fichier en ligne, se sera peu être plus clair
http://tesafy.1fichier.com/

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Sub action()
 
    Dim i As Integer, y As Long
 
On Error Resume Next
 
 With Box1
 
   For y = Box1.ListCount To 0 Step -1
 
 
 
        If .Selected(y) = True Then
 
             TBox1.AddItem .List(y)
 
 
             End If
 
 
        If .Selected(y + 1) = True Then
 
             .RemoveItem (y + 1)
           End If
 
 
 
    Next y
 
    For i = 0 To 1
 
        If .Selected(i - 1) = True Then
 
             .RemoveItem (i - 1)
           End If
 
    Next i
End With
 
End Sub

j'ai traiter l'erreur avec un resume next et rajouter une boucle pour supprimer le premier item de la list s'il est sélectionné
bon c'est du bricolage mais ça fonctionne :mrgreen:

encore merci

heu

Bonjour
ce sujet a déjà été traité plusieurs fois
les variables tableau sa te parle
voici un exemple qui envoie les items sélectionnés dans la listbox1 vers la listbox2 et les supprime de la première
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub action() Dim tablo(), a, i For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then ListBox2.AddItem ListBox1.List(i) 'on ajoute l'item de la listbox1 dans la listbox2 Else ReDim Preserve tablo(a) tablo(a) = ListBox1.List(i) 'si l'item de la listbox1 n'est pas selectionné on ajoute le tablo a = a + 1 'on incremente a de 1 a chaque fois qu'un item n'est pas present dans la selection End If Next 'on remet la lisbox1 a jour avec tablo ListBox1.List = tablo
tout simplement

avec un peu de recherche tu aurais trouvé au moins 2 exemples dans ce même cas au quel j'avais participé

Au plaisir