RECHERCHEV resultats multiples

Résolu
Sormick Messages postés 146 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
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
A voir également:

2 réponses

Réponse 1 / 2
M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention   285
 
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/
1
Réponse 2 / 2
sormick
 
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?
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
peux-tu alors marquer cette discussion comme résolue?
0
sormick > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
Désolé mais comment faire pour marquer cette discussion comme résolue? Je ne sais pas comment faire.
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > sormick
 
il me semble que tu es connecté au forum (avec ton compte) quand tu poses la question, et qu'ensuite tu ne l'es plus quand tu réagis.
il faut, logiquement, être connecté pour pouvoir marquer la discussion comme résolue.

je marque la discussion comme résolue.
0

Discussions similaires

[Excel] Recherche de Texte avec RechercheV
Mafia06 -
P-A -

6 réponses
RECHERCHEV additionne les plusieurs lignes du meme nom
pfl.bourde -
pfl.bourde -

2 réponses
Fixer un résultat pour de bon à l'aide d'une fonction.
Bioforge -
Bioforge -

1 réponse
Ancien résultat du BAC
rodriguez73 -
Minere -

12 réponses
formule Excel RECHERCHEv() avec du texte
cariv -
leslie -

3 réponses