Suppression doublons Listbox lors de l'ajout de valeurs

[nyco-]

Bonjour,

Dans la série question bateau ...

J'ai une Listbox source, avec des données définies par une liste de valeur présents sur une feuille.

J'ai une autre Listbox cible, vierge initialement, à laquelle l'utilisateur peut ajouter des valeurs issues de la Listbox source via un bouton permettant un Additem.

Mais je souhaite que l'utilisateur ne puisse pas ajouter deux fois la même valeur. Donc idéalement qu'une MsgBox apparaisse pour lui signifier son erreur lorsqu'il tente d'insérer deux fois la même chose dans la Listbox cible.

Je sais que c'est tout simple, qu'il faut boucle sur la Listbox cible pour contrôler le contenu, le comparer à la valeur de la Listbox source et l'ajouter seulement si elle est absente. Mais je ne trouve pas le moyen de coder ce tout petit machin ridicule ...

Je suis perdu entre les ListIndex etc et je ne parviens pas à faire ce que je veux ... J'ai regardé d'autres exemples qui partout tous de colones de feuilles de travail.

Voilà mon code d'origine, celui qui permet d'ajouter la valeur à la Listbox cible. C'est ici qu'il faut que je rajoute la vérification du doublon que je n'arrive pas à coder ...

Private Sub CBAjout_Click() 'Ajout des phrases de risque (liste gauche vers droite)

If ListBoxCible.ListCount < 5 Then
If ListBoxSource.ListCount > 0 And ListBoxSource <> "" Then
ListBoxCible.AddItem ListBox9.Value
If ListBoxSource.ListIndex = -1 Then
ListBoxSource.ListIndex = ListBoxSource.ListCount - 1
End If
ListBoxSource = ""
End If
Else
MsgBox "Nombre de phrases limité à 5."
End If

End Sub

Merci beaucoup 😀

 

[Hervé]

Re : Suppression doublons Listbox lors de l'ajout de valeurs

Bonjour

un exemple simple en piece jointe, je te laisse adapter tu as pas l'air si perdu que ca 🙂

a plus

 

[nyco-]

Re : Suppression doublons Listbox lors de l'ajout de valeurs

Bonsoir Hervé,

Je pateauge plus ou moins selon les cas, là c'est vraiment un problème de débutant (et de fatigue de surcroît !) mais ta réponse m'est d'une aide précieuse, c'est adapté et ça fonctionne, merci ! 😀