RECHERCHEV resultats multiples

Résolu
Sormick Messages postés 163 Statut Membre -  
yg_be Messages postés 23437 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

2 réponses

  1. M-12 Messages postés 1349 Statut Membre 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
  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
    1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       
      peux-tu alors marquer cette discussion comme résolue?
      0
      1. sormick > yg_be Messages postés 23437 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
      2. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > 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