XL 2010 Remplacer la valeur d'une cellule par la valeur de la cellule voisine

[Alkyno]

Bonjour,

Le titre n'est pas très clair, un exemple sera plus parlant.

Je vous joins le fichier Excel.

En cellule A7, si on écrit "114", j'aimerais que la valeur de la même cellule change automatiquement en "Ordinateur".
Même chose si on écrit "101" en A8, la valeur de la même cellule doit devenir "Ecran".

J'ai essayé avec RechercheV mais sans grand succès.
J'arrive à le faire quand on modifie la valeur de la cellule d'à côté mais je n'arrive pas à modifier la même cellule.

Merci par avance !

 

[youky(BJ)]

Bienvenu pour le 1er message,
Ce qui est demandé n'est pas possible en formule.
En macro c'est bon, activer les macros à l'ouverture du fichier.
Il faudra retoucher je pense la macro dans le vrai fichier.
Bruno

 

[Alkyno]

C'est exactement ça merci beaucoup !

 

[Alkyno]

Comment est-ce que je peux afficher la macro créée ?
J'ai activé le mode développeur mais je ne trouve pas la macro.

 

[youky(BJ)]

Hihi,
Habituellement les macros sont en Module1 mais là je joue avec les événements
celui du Change dans la feuille.
Donc pour visualiser le code, click avec le bouton droit de la souris sur le nom de l'onglet (en bas)
et Visualiser le code. Le voici à savoir Target est la cellule modifiée

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Or Target.Value = "" Then Exit Sub 'que colonne A et non vide
lig = Application.Match(Target.Value, [A1:A5], 0) 'renvoie le N° de ligne
If IsNumeric(lig) Then Target.Value = Cells(lig, 2) 'si trouvé on copie
End Sub

Bruno

 

[Alkyno]

Ah oui en effet, j'aurais dû mieux chercher !
Merci Bruno, à moi de m'amuser avec la macro pour l'adapter à mon fichier Excel original.