XL 2019 Interdire les doublons dans ListBox

[JLR67]

Bonjour le Forum,
Quelqu'un aurait il un code qui permet l'interdiction de saisie d'un doublon dans une ListBox2 à partir d'une autre ListBox1. J'ai bien trouver un code, mais celui ci interdit que les doublons avec les articles déjà dans la listbox2 au moment de l'ouverture.
With Me.ListBox2
For ii = 0 To .ListCount - 1
If .List(ii, 0) = Me.ListBox1 Then
MsgBox "Produit déja sur la Carte !"
Exit Sub
End If
Next ii
End With
Merci pour votre aide
Bien cordialement

 

[sylvanu]

Bonjour JLR,
Un essai en PJ avec :

' Si valeur déjà présente, message puis sortie
Valeur = ListBox1.List(i, 1)
For j = 0 To ListBox2.ListCount - 1
     If ListBox2.List(j, 1) = Valeur Then MsgBox "Déjà présent": Exit Sub
Next j

 

[Chris24]

Bonjour,

Un exemple complet datant de ma jeunesse

 

[JLR67]

Merci à Sylvanu, ça correspond parfaitement à mon besoin.
Bravo à Chris pour le fichier que je me garde sous le coude pour peut être un besoin futur.
Bonne continuation à vous et encore merci pour votre implication sur le forum.