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

[katerobin]

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é.

 

[patty58]

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]

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]

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.

 

[patty58]

Re

Dans la macro ChercherNoms ,la Ligne

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

est dans ce cas à remplacer par

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]

Re

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]

Merci Patthy je testerai demain
Bonne Soirée

 

[BOISGONTIER]

Bonjour,

Avec une fonction perso:


=SIERREUR(rechplusieurs(A2;code;result;" ");"")


Boisgontier

 

[katerobin]

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