XL 2010 Excel 2010 ou Office 365 Recherche plusieurs valeurs retourne plusieurs résultats dans la même cellule

katerobin

XLDnaute Nouveau
Bonjour merci d'avance pour votre aide.
J'ai beau chercher je ne trouve pas la solution. Dans une cellule j'ai plusieurs codes séparés par un tiret exemple 242- 243 chaque code est rattaché à un nom (Feuille Name)
Comment faire pour que la cellule B2 m'indique la liste des noms dans la "Feuille Codes et Noms" Comme en B9
Recherche V ne semble fonctionner que pour 1 cellule=1 code
Je pense qu'il faut passer par une macro j'ai essayé d'enregistrer la manip mais ça ne m'aide pas, je débute en VBA.
Le Fichier d'origine est très complexe j'ai simplifié au max pour avoir que ce qui est demandé.
 

Pièces jointes

  • Essai Recherche Nom.xlsm
    23.6 KB · Affichages: 8
Solution
Re

J'ai peiné : en fait pour que le résultat fonctionne , j'ai élargi la colonne de réception et la hauteur des lignes, car j'avais mis un msgbox qui me donnait bien le résultat souhaité, mais sitôt chargé dans la cellule cela ne marchait pas....enfin tu verras, je pense que tu as maintenant de quoi t'en sortir

Bon courage

patty58

XLDnaute Occasionnel
Bonjour

Chez moi cela ne pose pas problème
J'ai essayé avec 258 lignes dans Name et 744 lignes dans Codes et noms
Dans Codes et Noms j'ai mis environ 70 codes dans une cellule de la colonne A : nickel
Donc le problème ne semble p
 

patty58

XLDnaute Occasionnel
Bonjour

Chez moi cela ne pose pas problème
J'ai essayé avec 258 lignes dans Name et 744 lignes dans Codes et noms
Dans Codes et Noms j'ai mis environ 70 codes dans une cellule de la colonne A : nickel
Donc le problème ne semble pas venir de la macro

N'aurais-tu pas des formules dans ces zones ??

A+
 

katerobin

XLDnaute Nouveau
Patty, mes noms de codes sont très longs par rapport à l'exemple donné c'est peut-être ceci qui bloque la macro bien que ça fonctionne dans l'exemple ci joint
De plus quelle valeur je dois modifier dans la macro si dans la feuille "codes et noms" les codes ne sont pas en colonne A mais comme dans l'exemple. Désolée Je débute en VBA.
 

Pièces jointes

  • Patty 2 Essai Recherche Nom (1) (3).xlsm
    31.2 KB · Affichages: 2

patty58

XLDnaute Occasionnel
Re

Dans la macro ChercherNoms ,la Ligne

VB:
x = Split(sh1.Cells(Lig, 1), "-")

est dans ce cas à remplacer par

Code:
x = Split(sh1.Cells(Lig, 11), "-")

Car pour Cells, le premier paramètre est la ligne, le deuxième la colonne donc a ==> 1
et K ==> 11

A+
Bon courage
 

patty58

XLDnaute Occasionnel
Re

Code:
Sub ChercherNoms()
Dim Lig As Long, DLig As Long, i As Long, ind As Long
Dim sh1 As Worksheet, sh2 As Worksheet
Dim Nom As String
Set sh1 = Sheets("Codes et noms")
Set sh2 = Sheets("Name")
DLig = sh1.Range("A65536").End(xlUp).Row
Nom = ""
ValCherche = ""
For Lig = 2 To DLig
    x = Split(sh1.Cells(Lig, 11), "-")
    For i = LBound(x) To UBound(x)
        If x(i) <> "" Then
            For ind = 1 To Len(x(i))
                If IsNumeric(Mid(x(i), ind, 1)) Then
                    ValCherche = ValCherche & Mid(x(i), ind, 1)
                End If
            Next
            Set a = sh2.Range("A:A").Find(ValCherche, lookat:=xlPart)
            If Not a Is Nothing Then
                If Nom = "" Then
                    Nom = sh2.Cells(a.Row, 12)
                Else
                    Nom = Nom & Chr(10) & sh2.Cells(a.Row, 12)
                End If
            End If
            ValCherche = ""
        End If
    Next i
    If Nom <> "" Then
        sh1.Cells(Lig, 12) = Nom
    End If
    Nom = ""
Next Lig

End Sub

Je t'ai remis la macro car la colonne résultat va aussi passer de 2 à 12

Bonne soirée
 

katerobin

XLDnaute Nouveau
Merci à toutes et tous, Patthy j'ai enfin compris quelles variables je devais modifier en fonction de l'emplacement dans le fichier complexe et ta macro fonctionne très bien
Boisgontier je regarderai ta formule elle me semble à 1 ere vue très intéressante, il faut que je regarde plus en détail si je comprends le fonctionnement

Encore merci j'ai ce qu'il me faut ma demande est résolue
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 897
Membres
101 833
dernier inscrit
sandra25