XL 2010 afficher cellule sélectionnée

[esper85]

Bonjour à tous
j'ai fais un tableau qui de par sa structure n'est pas facile à lire
j'ai essayé beaucoup de pistes en vain
par exemple lorsque je clique sur la cellule BQ9
je voudrais que le contenu de la cellule C9 s'affiche en B2
ou se mette en surbrillance ou autre

 

[chris]

Bonjour

Dans le module de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("E5:CJ" & WorksheetFunction.CountA(Range("C:C")) + 4)) Is Nothing Then Exit Sub
    Range("B2").Value = Range("C" & Target.Row).Value
End Sub

 

[esper85]

Merci, c'est exactement ce que je cherchais