RECHERCHEV resultats multiples [Résolu]

Signaler
Messages postés
107
Date d'inscription
dimanche 10 novembre 2013
Statut
Membre
Dernière intervention
29 décembre 2020
-
Messages postés
13995
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 janvier 2021
-
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

2 réponses

Messages postés
981
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
21 janvier 2021
200
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/
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?
Messages postés
13995
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 janvier 2021
787
peux-tu alors marquer cette discussion comme résolue?
>
Messages postés
13995
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 janvier 2021

Désolé mais comment faire pour marquer cette discussion comme résolue? Je ne sais pas comment faire.
Messages postés
13995
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 janvier 2021
787 > 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.