Et oui, encore une liste sans doublons

Bonsoir fanfan, le forum

Il te faut d'abord boucler sur chaque item de la listbox2 afin de vérifier si celui-ci n'y est pas déjà.

si il y est on sort, sinon on le rajoute.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer

For i = 0 To ListBox2.ListCount - 1
        If ListBox2.List(i) = ListBox1 Then Exit Sub
Next i

ListBox2.AddItem ListBox1
'ListBox1.RemoveItem (ListBox1.ListIndex)'utilise cette ligne si tu veux aussi supprimer l'item de la listbox 1
End Sub

Cliquez pour agrandir...

salut

Bonjour Hervé et merci,

Dis moi, encore une petite chose concernant la suppression de l'item, est-il possible de supprimer un item en le selectionnant dans la liste et en appuyant sur 'del'

Merci encore

Bonjour fanfan, le forum

Je n'est pas de solution pour ta demande de suppression par 'del'.

l'evenement keypress n'intercepte pas la touche 'suppr', et la méthode onkey ne fonctionne pas avec les userforms (ou je ne connais pas la syntaxe, ce qui me semble fort plausible).

Tu pourrais éventuellement passer par une api pour detecter l'appui sur cette touche, mais c'est utiliser un marteau pilon pour ecraser une mouche.

sinon, 2 solutions de substitutions.

Utiliser l'evenement double click de la listbox.

ou

Utiliser une autre touche que la touche suppr, exemple ci-dessous avec la touche retour arrière.

Dim indexl As Integer
Private Sub ListBox1_Click()
indexl = ListBox1.ListIndex
End Sub

Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 8 Then
        With ListBox1
                .RemoveItem indexl
                .ListIndex = indexl
        End With
End If
End Sub

Cliquez pour agrandir...

salut

Re bonjour Hervé et merci pour la rapidité de ta réponse.

En fait, c'est un peu ce que j'ai fais mais avec la barre d'espace simplement.

Private Sub ListBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
ListBox2.RemoveItem (ListBox2.ListIndex)
End Sub

Merci