RECHERCHEV resultats multiples Résolu

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 Range
Dim rng2 As Range, cell2 As Range
Dim trouv As String
Sheets("VERIF").Select
Columns("A:B").Select
Dim derlig As Long
Sheets("VERIF").Select
Set 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 cell1
Set rng = Nothing
Set 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

Newsletters