Help!

[melle_lilou]

Bonjour tout le monde,

Ca fait un petit moment maintenant que je consulte ce forum. j'y ai toujours trouver les sollutions à mes problèmes!
Sauf aujourd'hui... alors je me suis décidé à poster.

Alors voila mon problème :
J'ai, dans la colonne A, une liste de noms de produits qui contiennent chacun plusieurs types d'infos (type de produit, couleur et taille). Ex : en A1 j'ai "t-shirt rouge 36"
Pour simplifier, mon pb est que je souhaite faire apparaître en colonne B la traduction en anglais de la couleur de l'article. Or la liste est très longue!

J'ai à coté une plage de données C110 qui contient l'ensemble des couleurs à remplacer (rouge, rose pale, vert bouteille...) en colonne C et leur équivalent en anglais en colonne D.

On a donc :

Colonne A
t-shirt rouge 36
jupe rose pale 38
etc...

Colonne B


Colonne C
Vert
rouge
etc..


Colonne D
green
red
etc...


Ma question est la suivante : comment faire pour dire à mon cher petit ordinateur de mettre le mot "red" dans la colonne B dès qu'il voit le mot "rouge" dans la colonne A???

Merci beaucoup pour votre aide !!!

 

[Efgé]

Re : Help!

Bonjour melle_lilou
Il est toujours plus simple pour tout le monde, de mettre un fichier exemple
Je vous propose une formule:
En partant d'un exemple de Mutzik . Je suis incapable de l'expliquer mais elle fonctionne

=RECHERCHEV(GAUCHE(DROITE($A2;NBCAR($A2)-CHERCHE(" ";$A2));CHERCHE(" ";DROITE($A2;NBCAR($A2)-CHERCHE(" ";$A2)))-1);$C$2:$D$3;2;0)

Cordialement

 

[pierrejean]

Re : Help!

bonjour melle lilou

Une fonction personnalisée

Edit: Salut Efgé

 

[melle_lilou]

Re : Help!

Merci bcp pour vos réponses!! c'est canon ca marche!!

Petite question : pierre jean, comment je fais pour enregistrer cette nouvelle fonction sur mon ordi???

merci encore !!! vous m'avez fait gagner bcp de temps!

 

[pierrejean]

Re : Help!

Re

Dans le fichier que je t'ai fourni tu copie ceci et tu le mets dans un module standard
(pour le module faire Alt F11 :aller en visual Basic editor , puis Insertion et enfin Module

Function couleur(X As String, couleurs As Range)
couleur = "#Valeur"
Z = Split(X, " ")
plage = couleurs
For n = LBound(Z) To UBound(Z)
  For m = LBound(plage, 1) To UBound(plage, 1)
    If UCase(Z(n)) = UCase(plage(m, 1)) Then
      couleur = plage(m, 2)
    End If
  Next m
Next n
End Function