XL 2010 Formule VBA pour remplacer un mot

[zizou026]

Bonjour,
Je cherche une formule VBA pour chercher les mots de la colonne L et le remplacer dans la colonne C.
Exemple : Si on trouve "Pomme" remplacer par "Fruit" dans la colonne C.
Si L "Raisin" Remplacer par "Fruit"
Si L "Haricot" Remplacer par "Légume"

Mots.xlsx

Le service des pièces jointes, CJoint.com est un service de partage de fichier gratuit pour partager vos documents dans vos courriels, sur les forums ou dans vos petites annonces.

www.cjoint.com

Par avance, je vous remercie de votre aide.
Cordialement,
Zizou026

 

[sylvanu]

Bonjour Zizou,
Ce que vous demandez est impossible si on ne dispose pas d'une liste de correspondance : Pommes -> Fruit, Haricot -> Légume ....
On peut remplacer les deux exemples que vous avez donné mais pour le reste ?
Si on trouve Citron, Rutabaga, Letchi, Salsifis, Goyave, Carambole ..... comment savoir comment les catalogués ?

 

[zizou026]

Bonsoir sylvanu,
Merci pour votre réponse, faut-il créer une liste? La liste pourrait être dans un classeur fermé? Et, peut-on le faire évoluer? Excellente soirée.

 

[sylvanu]

Bonsoir,
Le VBA n'est pas très futé. Il lui faut d'une façon ou d'une autre qu'il sache qu'une carotte est un légume et qu'un citron un fruit.
Mettre la liste dans un fichier fermé va ralentir la recherche, si c'est possible dans le fichier même serait beaucoup plus simple. La liste peut être cachée et ne pas être accessible simplement à l'utilisateur.

Un exemple en PJ avec :

=RECHERCHEV(L2;Liste;2)

La liste est dans la feuille cachée Liste.