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 :
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.
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
Merci beaucoup.
Partager