Copier cellule active

[Gil_Se]

Bonjour à tous.
Je souhaite copier le contenu de la cellule active dans une cellule spécifique.
Je vous joins un fichier pour mieux comprendre ma demande.
Merci d'avance de vos réponses
Gilles

 

[Robert]

Re : Copier cellule active

Bonsoir Gil, bonsoir le forum,

En pièce jointe ton fichier avec la macro événementielle SelectionChange ci-dessous :

Private

 Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("H2:K55")) Is Nothing Then Range("A24").Value = Target.Value
End Sub

 

[Gil_Se]

Re : Copier cellule active

Parfait.
Merci Robert.
Gilles