Rechercher remplacer dans chaîne de caractères

[Daybouk]

Bonjour,

Je cherche à remplacer des éléments d'une chaîne de caractères (de longueur variable) par d'autres en utilisant le principe de RECHERCHEV.

Je m'explique :
- j'ai des cellules contenant des codes séparés par une virgule
Ex :
3701,3725
0504
0501,0503,0502,0504,0523,0505,0506,0550

- chaque code a un équivalent en lettre (voir onglet "Tab d'équivalence" dans le fichier joint)
Ex :
3701 = SIN
3725 = MAL
0504 = SER
etc.

- je veux remplacer chaque code par son équivalent lettre en les séparant par un tiret et en gardant l'ordre.
Ex du résultat :
3701,3725 => SIN,MAL
0504 => SER
0501,0503,0502,0504,0523,0505,0506,0550 => CRO,BOS,SLO,SER,MON,MCD,ALB,KOS

Je prends les solutions formules Excel ou VBA !

Merci pour votre aide.

 

[Dranreb]

Bonsoir.
Dans ma version la valeur d'origine n'est pas effacée, mais vous pourriez y ajouter un signe:
If DicABC.Exists(TSpl(L)) Then TSpl(L) = DicABC(TSpl(L)) else tspl(l)=tspl(l)&"—?"

 

[mapomme]

Bonsoir Daybouk, à tous,

Est-ce que vous savez comment insérer les caractères #NA lorsqu'on ne trouve pas la correspondance ? Ex : code inconnu ne faisant pas partie du tableau de référence ?

Voir le fichier joint...

 

[Bernard_XLD]

Bonjour
fonction modifiée, elle renvoie #N/A si il reste un chiffre supérieur à zéro dans la chaîne après traitement
Cordialement

Function Correspondance_Ident(Valeur_Code As String, Plage_Tab As Range)
Tab_Données = Plage_Tab.Value
For Compteur = LBound(Tab_Données) To UBound(Tab_Données)
    Valeur_Code = Replace(Valeur_Code, Tab_Données(Compteur, 1), Tab_Données(Compteur, 2))
Next Compteur
Correspondance_Ident = Replace(Valeur_Code, ",", "-")
If Val(Correspondance_Ident) > 0 Then Correspondance_Ident = "#N/A"
End Function