Discussion :

[Mél3790]

Bonjour Le Forum,

Je possède 2 listbox (multiselect), l'une avec des données, l'autre vide.

Je sélectionne un ou plusieurs éléments dans ma première listbox et en cliquant sur un bouton, les élements se transfert dans la 2ème listbox et se suppriment de la première.

J'ai une combobox qui filtre ma première listbox. Et selon mon choix, les éléments que j'ai transféré dans ma 2ème listbox réapparaissent dans la 1ère (c'est volontaire par rapport à mon projet, bref)

Du coup, lorsque je clique sur mon bouton qui transfert l'éléments ou les éléments sélectionné(s) de ma 1ère listbox à ma 2ème, j'aimerais qu'un msgbox apparaissent en disant : l'élément ou les éléments sélectionné(s) sont déjà présents dans la 2ème liste.

J'ai essayé un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
For i = ListboxQualif.ListCount - 1 To 0 Step -1
 
   If ListboxQualif2.ListIndex = ListboxQualif.Selected(i) Then 
    MsgBox "Cet élément est déjà présent": Exit Sub
    End If
 
       If ListboxQualif.Selected(i) = True Then
           ListboxQualif2.AddItem ListboxQualif.List(i)
           ListboxQualif.Selected(i) = True
            ListboxQualif.RemoveItem i
            End If
    Next i

Mais ça ne fonctionne pas (à cause du .listindex je pense), il comprend juste qu'un élement (peu importe lequel) figure dans la 2ème liste.

Merci beaucoup.

[unparia]

Bonjour

Je vais aller en ce qui me concerne directement à la question technique, seule concernée, de la vérification de ce qu'un article est ou non déjà présent dans une listbox.
Méthode :
- 1) donner à la propriété Text de la listbox la valeur de l'article à vérifier
- 2) lire ensuite la propriété listindex de cette listbox --->> si = -1 -->> l'article n'y est pas . Si >=0, cet article y est déjà.
Exemple :

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
ListBox1.AddItem "toto"
  ListBox1.AddItem "titi"
 
  ' on vérifie si toto y est déjà ou non :
 
  ListBox1.ListIndex = -1 ' de sorte à ce que rien n'y reste sélectionné)
  On Error Resume Next
  ListBox1.Text = "toto"
  If ListBox1.ListIndex = -1 Then
     MsgBox "toto non déjà dans la listbox"
  Else
     MsgBox "toto est déjà présent dans la listbox"
  End If
  On Error GoTo 0
 
 
  'voyons si "tutu" y figure
 
   ListBox1.ListIndex = -1 ' de sorte à ce que rien n'y reste sélectionné)
  On Error Resume Next
  ListBox1.Value = "tutu"
  If ListBox1.ListIndex = -1 Then
     MsgBox "tutu non déjà dans la listbox"
  Else
     MsgBox "tutu est déjà présent dans la listbox"
  End If
On Error GoTo 0

La gestion d'erreur est ici nécessaire (les On error ...)

[Phil'oche]

Bonjour,

Autre méthode via une petite fonction, puisque la propriété List d'une ListBox renvoie un tableau de Variant, sous forme de (ligne, colonne) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function In_Listbox(lblst As Variant, Col as Integer, recherche As Variant) As Boolean
 
    In_Listbox = False
 
    For i = LBound(lblst) To UBound(lblst)
        If lblst(i, Col) = recherche Then 'Si valeur trouvée
            In_Listbox = True
            Exit For
        End If
    Next
 
End Function

que tu appelle ensuite par In_Listbox(ListboxQualif2.list,0,"Toto") qui renvoie vrai ou faux si la valeur est présente ou non.

Ca peut être utile, si tu utilises une ListBox à plusieurs colonnes (dont certaines éventuellement masquées), il suffit de passer le n° de colonne Col à la fonction.

[Mél3790]

Bonjour,

J'ai essayé vos deux solutions, mais je n'y arrive pas :s
Comment faire pour ne pas dire "toto" mais "la sélection" (car je ne peux pas lister tous les éléments de ma listbox, il y en a + de 20 en fonction de chaque changement dans ma combobox.

Où doisj-je placer ça dans mon code ? :

Code :

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

In_Listbox(ListboxQualif2.list,0,"Toto")

Merci pour le temps que vous m'accordez.

[Phil'oche]

Simplement :

Code :

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

1
2
3
4
5
 
sChoixListe1 = ListboxQualif.Selected(i)
If In_Listbox(ListboxQualif2.list,0,sChoixListe1) Then 
    MsgBox "Cet élément est déjà présent": Exit Sub
    End If

Avec les For... Next de ton 1er message, pour traiter tous les éléments sélectionnés dans ta 1ère liste, puisque tu peux faire de la sélection multiple

[Mél3790]

Merci beaucoup, mais j'ai un message d'erreur : "Type d'argument ByRef incompatible" sur "schoixliste1" de cette ligne :

Code :

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

If In_Listbox(ListboxQualif2.List, 0, schoixliste1) Then

Voici le code en entier :

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
Function In_Listbox(i As Long, lblst As Variant, Col As Integer, recherche As Variant) As Boolean
 
    In_Listbox = False
 
    For i = LBound(lblst) To UBound(lblst)
        If lblst(i, Col) = recherche Then 'Si valeur trouvée
            In_Listbox = True
            Exit For
        End If
    Next
 
End Function
Private Sub FlècheAjout_click()
 
Dim i As Long
 
For i = ListboxQualif.ListCount - 1 To 0 Step -1
 
schoixliste1 = ListboxQualif.Selected(i)
 
If In_Listbox(ListboxQualif2.List, 0, schoixliste1) Then
    MsgBox "Cet élément est déjà présent": Exit Sub
End If
 
If ListboxQualif.Selected(i) = True Then
   ListboxQualif2.AddItem ListboxQualif.List(i)
   ListboxQualif.Selected(i) = True
   ListboxQualif.RemoveItem i
End If
Next i
 
End Sub

Dans la fonction entre parenthèse j'ai rajouté "i As Long" car le i n'était pas déclaré, je ne sais pas s'il fallait bien faire comme ça :s

Merci