Alimenter une listbox avec des données de feuilles différentes

[lodam]

bonsoir à tous

Je continue avec mon fichier de suivi de prospects

J'ai une feuille 'CONTACTS' où chaque contact est identifié par un code

J'ai une autre feuille 'ECHANGE' où je note les échanges avec chaque contact et donc dans laquelle tout échange avec un contact est repéré par son identifiant

Je peux facilement alimenter la listbox avec tous les échanges des contacts
Mais quand je veux remplacer l'identifiant du contact par ses coordonnées je bloque....

par exemple :
DATE N° CONTACT NOM CONTACT
16/02 02 contact_UNTEL
14/01 03 contact_unetelle

J'ai testé avec FIND mais cette méthode ne me charge que la première valeur de la listbox dans la boucle du chargement de la listbox et je ne parviens pas à faire une itération qui fonctionne....
bref, je patine..... ;-)

je mets en PJ le fichier

par avance merci bcp !

 

[Docmarti]

Re : Alimenter une listbox avec des données de feuilles différentes

Bonjour.

Normal. Tu ne cherche pas sur la feuille Contacts

Remplace

Set Cell2 = Sheets("Echange").Range("B:B").Find(LB_Echanges.List(LB_Echanges.ListCount - 1, 1), Lookat:=xlWhole)

par

Set Cell2 = Sheets("Contacts").Range("A:A").Find(LB_Echanges.List(LB_Echanges.ListCount - 1, 1), LookIn:=xlFormulas, Lookat:=xlWhole)

Cordialement

Docmarti

 

[lodam]

Re : Alimenter une listbox avec des données de feuilles différentes

roooo....

merci bcp !
effectivement, ça marche bcp mieux ;-)