RECHERCHEV resultats multiples Résolu/Fermé

Question

Bonjour, 

Bonjour, 

-Dans la colonne A de la feuille 1 j'ai une liste de pays
-Dans la colonne B de la feuille 1 j'ai des adresses mail
-Dans la colonne A de la feuille 2 j'ai également une liste de pays
-Dans la colonne B de la Feuille 2 j'ai une liste de Villes en sachant qu'il y a plusieurs villes pour un pays

Je souhaiterais dans la feuille 1 colonne C que tous les pays soient convertis en villes et que dans la colonne les adresses mail correspondent bien à la bonne ville et bon pays.

Avec une RECHERCHEV ça ne marche que pour un seul résultat (Un pays-Une Ville) mais si j'ai (un pays-Plusieurs villes) je n'ai que le premier résultat.

Comment puis-je faire?


Configuration: Windows / Edge 86.0.622.63

M-12 · Answer

Bonjour,

Un p’tit classeur avec 10/15 données serait mieux pour régler le soucis 

Allez dans https://www.cjoint.com/
Cliquez sur "PARCOURIR" pour sélectionner le classeur
Clic le bouton "CREER LE LIEN"
Clic droit quand le lien est créé "COPIER LE LIEN"
Sur le post Clic droit "Coller".

ou dans https://mon-partage.fr/

sormick · Answer

Bonjour, Voici le tableau ci-joint: https://www.cjoint.com/c/JLDt1CF3Gp2 Finalement j'ai trouvé une solution via une macro. -les villes seront répertoriées sur la colonne C -Les mails seront incorporés dans la colonne D et les pays non trouvés seront dans la colonne E La voici ci-dessous ( à adapter) Dim rng As Range, cell1 As RangeDim rng2 As Range, cell2 As RangeDim trouv As StringSheets("VERIF").SelectColumns("A:B").SelectDim derlig As LongSheets("VERIF").SelectSet rng = Sheets("VERIF").Range("A1:A65000")Set rng2 = Sheets("LISTEVILLES").Range("A1:A65000")For Each cell1 In rng If cell1.Value <> "" Then trouv = "" For Each cell2 In rng2 If cell2.Value <> "" Then If cell1.Value = cell2.Value Then trouv = cell1.Value Sheets("VERIF").Range("C65536").End(xlUp).Offset(1, 0) = cell2.Offset(0, 1).Value Sheets("VERIF").Range("C65536").End(xlUp).Offset(0, 1) = cell1.Offset(0, 1).Value End If End If Next cell2 If trouv = "" Then Sheets("VERIF").Range("E65536").End(xlUp).Offset(1, 0) = cell1.Value End If Next cell1Set rng = NothingSet rng2 = Nothing Merci la communauté CCM! Juste une dernière chose. je ne sais pas comment "marquer comme résolu" ma question pouvez-vous m'aider?

RECHERCHEV resultats multiples

2 réponses

Discussions similaires