Remplacer une baréviation par son appellation complète

[3xceln4ute]

Bonjour,

Je viens solliciter vos compétences pour m'aider à trouver une solution à mon tableau d'inventaire excel.
En fait, je désire remplacer une abréviation par sa dénomination complète.
Exemple:
Lorsque j'écris dans une case "Mob", je désire que "Mobilier de bureau" s'affiche, dans la même case toujours.
Aussi, je souhaite effectuer une recherchev, de tel façon que ça me permette d'afficher son code d'inventaire correspondant automatiquement.

Trouvez ci-joint un fichier explicatif.

 

[tototiti2008]

Re : Remplacer une baréviation par son appellation complète

Bonjour subirubi,

Si j'ai bien compris

remplace

If Target.Column = 4 Then

par

If Target.Column = 4 or Target.Column = 3 Then

 

[3xceln4ute]

Re : Remplacer une baréviation par son appellation complète

Re bonjour Tototiti,

Parfait mon ami 🙂 , ça marche à merveille.

Cordialement.