Discussion :

[dmoluc]

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 :

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

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)

[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.

[dmoluc]

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 :

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

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 :

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

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

[casefayere]

Et si tu commences par la fin

Code :

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

1
2
For y = Box1.ListCount to 0 step -1
...

[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

[dmoluc]

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