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

youky(BJ)

XLDnaute Barbatruc

• 5 Juin 2019

• #2

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

 

Pièces jointes

• exemple (2).xlsm

  17 KB · Affichages: 6

Vote positif 0 Vote négatif

A

Alkyno

XLDnaute Nouveau

• 5 Juin 2019

• #3

C'est exactement ça merci beaucoup !

 

Vote positif 0 Vote négatif

A

Alkyno

XLDnaute Nouveau

• 5 Juin 2019

• #4

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.

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 5 Juin 2019

• #5

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

VB:

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

 

Vote positif 0 Vote négatif

A

Alkyno

XLDnaute Nouveau

• 5 Juin 2019

• #6

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. 🙂

 

Vote positif 0 Vote négatif