Microsoft 365 Changement valeur de cellule en cliquant sur une autre cellule

[Eric Dé]

Bonjour,

Dans ma feuille Excel, j'ai une série de cellules de A14 à A61.

En cliquant sur l'une d'elle (A20) par exemple, je souhaiterais que la valeur de la cellule D2 prenne la valeur de la cellule A20.

Mais je ne souhaite pas que la valeur de D2 change si je clique ailleurs que sur les cellules A14 à A61.

Est-ce faisable ?

Merci d'avance pour vos idées.

 

[Dudu2]

Bonjour,
Je mettrais ça dans le code de la feuille correspondante et enregistrerais le classeur en .xlsm.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, [A14:A61]) Is Nothing Then Exit Sub
    [D2].Value = Target.Value
End Sub

 

[Eric Dé]

Merci Barbatruc,
Ça fonctionne !

 

[Dudu2]

Avec plaisir Occasionnel 😁