Recherche V avec plusieurs valeurs

[SimondeCambon]

Bonjour,

J'ai une problématique dont je ne trouve pas la solution de moi même, ni sur internet.

J'ai un tableau de données avec une couleur qui correspond à un identifiant unique :

Col A : Col B
Rouge : 1
Bleu : 2
Vert : 3

Un autre tableau avec une colonne qui contient une ou plusieurs couleur et une autre colonne où je veux le ou les identifiants correspondant :

Col A : Col B
Rouge, Bleu : Formule magique à trouver
Vert : Formule magique à trouver
Rouge : Formule magique à trouver

Le résultat à obtenir est celui-ci :

Col A : Col B
Rouge, Bleu : 1,2
Vert : 3
Rouge : 1

J'espère avoir été clair.

Merci de votre aide

 

[piga25]

Re : Recherche V avec plusieurs valeurs

Bonjour,
Merci de joindre un petit fichier avec les résultats attendus.

 

[SimondeCambon]

Re : Recherche V avec plusieurs valeurs

Voilà ci-joins un fichier exemple.

Merci de votre intérêt

 

[BOISGONTIER]

Re : Recherche V avec plusieurs valeurs

Bonsoir,

Function idMult(couleur As String, maTable As Range)
  Application.Volatile
  a = Split(couleur, ",")
  b = maTable
  For i = LBound(a) To UBound(a)
    For j = LBound(b) To UBound(b)
      If UCase(a(i)) = UCase(b(j, 1)) Then tmp = tmp & b(j, 2) & ","
    Next j
  Next i
  If tmp <> "" Then tmp = Left(tmp, Len(tmp) - 1)
  idMult = tmp
End Function

cf PJ

JB

 

[SimondeCambon]

Re : Recherche V avec plusieurs valeurs

Merci beaucoup !! Super