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

lodam

XLDnaute Occasionnel
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 !
 

Pièces jointes

  • ExempleSuiviProspection.xlsm
    59.6 KB · Affichages: 45
  • ExempleSuiviProspection.xlsm
    59.6 KB · Affichages: 53
  • ExempleSuiviProspection.xlsm
    59.6 KB · Affichages: 55

Docmarti

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

Bonjour.

Normal. Tu ne cherche pas sur la feuille Contacts

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

Cordialement

Docmarti
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 009
Membres
101 865
dernier inscrit
MLL