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.