Listbox vases communicants

[2susy]

bonjour à tous et notamment aux amis des macros !

j'ai deux listbox
je fais passer des item de l'une à l'autre sur le principe des vases communicants.

mais j'alimente la listbox1 par combobox à plusieurs reprises.
Je souhaiterai rendre impossible les doublons entre les deux listbox.
si un item se trouve déjà dans listbox2, il doit être impossible d'ajouter le même item dans listbox1 via combobox.

J'espère que ma demande est assez explicite, merci à ceux qui se pencheront dessus !!
Susy

 

[skoobi]

Re : Listbox vases communicants

Bonjour,

avec un extrait du fichier en expliquant bien le processus on pourra t'aider, pas autrement, enfin à mon avis....

 

[jp14]

Re : Listbox vases communicants

Bonjour

Une solution consiste à balayer la listbox pour vérifier si la valeur existe

dim trouve as boolean
trouve = false

For i = 0 To ListBox1.ListCount - 1
       if ListBox1.List(i) = combobox1.value then
       trouve = true
       exit for
       end if
Next i

If trouve = false then
' on ajoute la valeur

end if

A modifier
A tester

JP

 

[2susy]

Re : Listbox vases communicants

merci à tous les deux,
skoobi voici en pj un fichier (ne pas se moquer de mon code, je débute)

jp14 : j'ai déjà un moyen d'empêcher les doublons dans une seule listbox...mais ce n'est pas suffisant !!

merci encore!
bonne fin d'aprem,

Susy