Listbox suppression d'item

**logue_in** · 19/04/2016, 11h24

Bonjour,

Actuellement, je fais passer de ma liste de gauche (Liste 1) les items sélectionnés dans la liste de droite (Liste 2) par le bouton ">".

J'aimerais, via un autre bouton, enlever de la liste1, les données que j'ai envoyé dans la liste2.

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
Private Sub CommandButton3_Click()
 
Dim i As Integer, J As Integer, z As Integer
 
 
For i = 0 To ListBox1.ListCount - 1
    For J = 0 To ListBox2.ListCount - 1
         If ListBox2.List(J) = ListBox1.List(i) Then
            ListBox1.RemoveItem ListBox1.List(i)
 
 
   End If
   Next
   Next
 
End Sub

L'erreur est "Argument non valide". Je bloc...
La valeur remonté de Listbox1.list(i) semble être la bonne... Quelqu'un voit-il une solution?

**unparia** · 19/04/2016, 11h54

Bonjour,
- Boucles à faire de bas en haut (avec step -1) (sinon croche-pieds assurés avec les lignes)
et
- corriger la syntaxe de la méthode removeitem :

Code :

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

ListBox1.RemoveItem i

**BENNASR** · 19/04/2016, 12h03

c'est le travail d'un super membre de ce site je crois PATRICK

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
33
34
35
36
Dim tablo1(12), tablo2()
Private Sub CommandButton1_Click()
   transfert ListBox1, ListBox2
End Sub
 
Private Sub CommandButton2_Click()
    transfert ListBox2, ListBox1
End Sub
 
Sub transfert(lisTout, lisTin)
Dim i As Long, malist2 As Object
    For i = lisTout.ListCount - 1 To 0 Step -1
        If lisTout.Selected(i) Then
            lisTin.AddItem lisTout.List(i)
        lisTout.RemoveItem i
        End If
    Next
     Set malist = CreateObject("System.Collections.ArrayList")
    For i = 0 To lisTin.ListCount - 1
malist.Add lisTin.List(i)
Next
malist.Sort: lisTin.Clear
For Each elem In malist
lisTin.AddItem elem
Next
End Sub
 
Private Sub CommandButton3_Click()
End
End Sub
 
Private Sub UserForm_Activate()
mylist = Array("Abdallah", "Walid", "Sami", "Abdelhamid", "Mounir", "Bilel", "Houssam", "Faycal", "Mongi", "Abdessalem")
 
    ListBox1.List = mylist
End Sub

**Philippe Tulliez** · 19/04/2016, 13h12

Bonjour,
Autre exemple avec un UserForm contenant deux contrôles ListBox placés côte à côte et nommé respectivement lstSheetList (à gauche) et lstSheetSelected (à droite)
Le contrôle ListBox de gauche est alimenté à l'ouverture du UserForm du nom des feuilles du classeur.
Le double-clic sur un des éléments de la liste (nom de feuille) le fait passer dans l'autre ListBox et vice-versa
Code en
Tête de module

Code :

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

1
2
Option Explicit
Dim sht As Worksheet

Procédure événementielle Initialize

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
 Me.lstSheetList.Clear
 For Each sht In ThisWorkbook.Worksheets
  With Me.lstSheetList
  .AddItem sht.Name
  End With
 Next sht
End Sub

Procédure événementielle DblClick du contrôle nommé lstSheetList

Code :

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

1
2
3
4
5
6
Private Sub lstSheetList_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 With Me
 .lstSheetSelected.AddItem .lstSheetList.Text
 .lstSheetList.RemoveItem (.lstSheetList.ListIndex)
 End With
End Sub

Procédure événementielle DblClick du contrôle nommé lstSheetSelected

Code :

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

1
2
3
4
5
6
Private Sub lstSheetSelected_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 With Me
 .lstSheetList.AddItem .lstSheetSelected.Text
 .lstSheetSelected.RemoveItem (.lstSheetSelected.ListIndex)
 End With
End Sub

**Theze** · 19/04/2016, 15h24

Bonjour,

Une autre piste avec un Glisser/Déplacer d'une liste à l'autre et vice-versa (donc, sans bouton mais avec la souris). Les listes s'appellent ListBox1 et ListBox2, à adapter :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
 
Private Sub ListBox1_MouseMove(ByVal Button As Integer, _
                               ByVal Shift As Integer, _
                               ByVal X As Single, _
                               ByVal Y As Single)
 
    Dim Obj As DataObject
    Dim Action As Integer
 
    If Me.ListBox1.Text = "" Then Exit Sub
 
    If Button = 1 Then
 
        Set Obj = New DataObject
 
        With ListBox1: Obj.SetText .Text: End With
 
        Action = Obj.StartDrag
 
    End If
 
End Sub
 
Private Sub ListBox1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, _
                                    ByVal Data As MSForms.DataObject, _
                                    ByVal X As Single, _
                                    ByVal Y As Single, _
                                    ByVal DragState As MSForms.fmDragState, _
                                    ByVal Effect As MSForms.ReturnEffect, _
                                    ByVal Shift As Integer)
 
    Cancel = True
    Effect = 2
 
End Sub
 
Private Sub ListBox1_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, _
                                       ByVal Action As MSForms.fmAction, _
                                       ByVal Data As MSForms.DataObject, _
                                       ByVal X As Single, _
                                       ByVal Y As Single, _
                                       ByVal Effect As MSForms.ReturnEffect, _
                                       ByVal Shift As Integer)
 
 
    Cancel = True
    Effect = 2
 
    With ListBox2: .RemoveItem .ListIndex: End With
 
    With ListBox1: .AddItem Data.GetText: End With
 
End Sub
 
Private Sub ListBox2_MouseMove(ByVal Button As Integer, _
                               ByVal Shift As Integer, _
                               ByVal X As Single, _
                               ByVal Y As Single)
 
    Dim Obj As DataObject
    Dim Action As Integer
 
    If Me.ListBox2.Text = "" Then Exit Sub
 
    If Button = 1 Then
 
        Set Obj = New DataObject
 
        With ListBox2: Obj.SetText .Text: End With
 
        Action = Obj.StartDrag
 
    End If
 
End Sub
 
Private Sub ListBox2_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, _
                                    ByVal Data As MSForms.DataObject, _
                                    ByVal X As Single, _
                                    ByVal Y As Single, _
                                    ByVal DragState As MSForms.fmDragState, _
                                    ByVal Effect As MSForms.ReturnEffect, _
                                    ByVal Shift As Integer)
 
    Cancel = True
    Effect = 2
 
End Sub
 
Private Sub ListBox2_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, _
                                       ByVal Action As MSForms.fmAction, _
                                       ByVal Data As MSForms.DataObject, _
                                       ByVal X As Single, _
                                       ByVal Y As Single, _
                                       ByVal Effect As MSForms.ReturnEffect, _
                                       ByVal Shift As Integer)
 
    Cancel = True
    Effect = 2
 
 
    With ListBox1: .RemoveItem .ListIndex: End With
 
    With ListBox2: .AddItem Data.GetText: End With
 
End Sub

**logue_in** · 19/04/2016, 22h02

Bonsoir,

Merci pour ces réponses plus que complètes!
Pour le moment, je n'ai testé que la méthode de unparia. Ca fonctionne mais je ne comprends pas pourquoi le (sinon croche-pieds assurés avec les lignes)?

Listbox suppression d'item

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager