Discussion :

[cyanures]

Bonjour,

J'ai un petit problème,

Je possède une liste à choix multiple. J'aurais souhaité récupérer les lignes sélectionnées et les supprimer.

Or cela ne supprime que la première ligne sélectionné.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
 
Dim j As Integer
For j = Me.List1.ListCount - 1 To 0 Step -1
    If Me.List1.Selected(j) = True Then
    'on Supprime l'élément selectionné dans la ListBox.
        Me.List1.RemoveItem (j)
    End If
Next j

Après avoir supprimé une ligne, c'est comme si mes autres lignes n'étaient plus du tout sélectionnées.

Pouvez-vous m'éclairer sur ce problème.

En vous remerciant,

Cordialement,

[tee_grandbois]

bonjour,
bienvenue dans le monde mystérieux des zones de liste.
Il faut savoir que dès lors que tu touches aux valeurs d'une liste par suppression, l'index des items sélectionnés est réinitialisé dès la première suppression (d'où ton problème).

Il faut donc passer par un subterfuge pour recharger la liste à partir de ceux qui n'ont pas été sélectionnés.
Bien évidemment, ce code ne fonctionne qu'avec une zone de liste de type liste de valeurs, on ne peut pas supprimer les lignes d'une table ou d'une requête:

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
' supprimer une sélection multiple d'une liste de valeurs
 
Dim varItm
Dim I As Integer, J As Integer
Dim stLstVal As String
 
varItm = Null
stLstVal = ""
For J = 0 To Me.Liste1.ListCount - 1                ' lecture de la liste 1
    If Not (Me.Liste1.Selected(J)) Then
        For I = 0 To Me.Liste1.ColumnCount          ' lecture des colonnes de la liste 1
            varItm = varItm & IIf(IsNull(varItm), Null, ";") & Me.Liste1.Column(I, J)
        Next I
                                                    ' copie des items non sélectionnés
        stLstVal = stLstVal & varItm
        varItm = Null
    End If
Next J
 
' Vidage des anciennes valeurs de la liste 1
If Me.Liste1.ListCount > 0 Then
    For I = Me.Liste1.ListCount - 1 To 0 Step -1
        Me.Liste1.RemoveItem (I)
    Next I
End If
' rechargement de la liste de valeurs
Me.Liste1.RowSource = stLstVal

Avec une liste de valeurs de type Table/requête c'est possible mais un peu plus délicat à gérer car il faut appliquer un filtre sur la table/requête source et indiquer le champ de la colonne utilisée comme identifiant unique pour créer un filtre de type NOT IN avec le risque possible de perdre en performances.

Voici un exemple avec une zone de liste dont le contenu est une requête et l'identifiant unique se nomme N°:

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
Dim strFiltre As String
Dim strSQL As String
Dim varItm
 
' exclusion des items sélectionnés
For Each varItm In Me.Liste3.ItemsSelected
   strFiltre = strFiltre & IIf(strFiltre = "", "", ",") & (Me.Liste3.ItemData(varItm))
Next varItm
 
' suppression du caractère de fin si c'est une requête
strSQL = Replace(Me.Liste3.RowSource, ";", "")
'si c'est une requête, mettre des parenthèses pour la transformer en sous-requête
If Left(strSQL, 7) = "SELECT " Then
    strSQL = " SELECT * from (" & strSQL & ")"
Else
    strSQL = " SELECT * from " & strSQL
End If
 
strSQL = strSQL & " WHERE N° not In(" & strFiltre & ")"
' rechargement du contenu de la liste
Me.Liste3.RowSource = strSQL

[cyanures]

Merci beaucoup pour cette solution

Et surtout pour ces explications claires et précises.