Je suis débutant en vb6 et j’ai un petit problème avec des listbox, je voudrai ajouter des items d’un listbox1 vers un listbox2 et ça marche avec mon code sauf que lorsque click sur le bouton select il ajoute l’items (n) fois. Mois je ne veux pas de doublons dans le listbox2.
Je voudrais que lorsque l’élément existe déjà dans le listbox2, il m’affiche un msgbox qui me préviendra que l’élément existe déjà. Comment le faire ?
Merci de votre aide
Voila mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub cmdselect_Click()
 
Dim i As Integer
'Pour chaque valeur de la liste 1
For i = 0 To list1.ListCount - 1
            'Si la valeur est sélectionnée
            If list1.Selected(i) Then
                List2AddItem list1.List(i)
            End If
Next
End Sub