Copier valeur d'une cellule en cliquant dessus

[gourdin]

Bonjour,

Comment en cliquant sur n'importe laquelle d'une cellule d'une colonne , est-il possible que la valeur de cette cellule se copie dans une autre cellule ?

Voir exemple simplifié joint.

Merci et bonne journée

 

[job75]

Re : Copier valeur d'une cellule en cliquant dessus

Bonjour,
Copiez la macro suivante dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = ActiveCell
If Target.Column <> 2 Or Target.Value = "" Then Exit Sub
Sheets("Feuil1").Range("F7").Value = Target.Value
End Sub

A+

 

[gourdin]

Re : Copier valeur d'une cellule en cliquant dessus

Bonjour,
Copiez la macro suivante dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = ActiveCell
If Target.Column <> 2 Or Target.Value = "" Then Exit Sub
Sheets("Feuil1").Range("F7").Value = Target.Value
End Sub

A+

MERCI BEAUCOUP, C'EST PARFAIT !