Macro pour coller une cellule prédéfinie

Bonjour Forum !

Je voudrais écrire une macro mais je ne sais pas comment faire.

Voilà le fonctionnement que j'imagine :

• je sélectionne une cellule
• je lance la macro
• la macro colle une copie de la cellule L3C6 dans la cellule située dans la colonne 6 de la ligne de la cellule active

Exemple :

• je sélectionne la cellule L15C3
• je lance la macro
• elle colle une copie de L3C6 en L15C6
• la cellule active reste L15C3

C'est sûrement basique pour des experts, mais au-delà de mes connaissances.

Merci à tous ceux qui pourront m'aider !

Bonjour

Pas très claire ta demande

Cette macro copie la cellule de la ligne 3, colonne + 3 de la colonne de la cellule active dans la cellule ligne de la cellule active, colonne + 3 de la colonne de la cellule active

même moi je m'y perd

Sub copie()
Dim Ligne As Long
Dim Colonne As Integer

  Ligne = ActiveCell.Row
  Colonne = ActiveCell.Column
  Cells(3, Colonne + 3).Copy Cells(Ligne, Colonne + 3)
End Sub

Remarque : Tu es un des seul (à mon souvenir) à utiliser les références L1C1

Salut,

Voici une possibilité :

Sub xx()
Cells(ActiveCell.Row, 6) = Cells(3, 6)
End Sub

Cordialement.

Edit : Salut Banzai

Bonjour à tous,

Autre proposition, par double-clic :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cells(Target.Row, 6) = [F3]
    Cancel = True
End Sub

eric

Merci à tous et désolé si ma demande n'était pas claire - j'ai pourtant cherché la manière la + claire de l'énoncer !

@Yvouille : c'est nickel !

@Eriiic : ça marche aussi, et le double-clic est très chic !

@Banzai_64 : ta macro ne fait pas ce que j'attendais, mais c'est parce que j'ai du mal expliquer mon problème.

Mais maintenant que je dispose de 2 macros opérationnelles, je suis paré.

Quant à l'usage des références L1C1, je trouve ça super clair et au contraire, je suis perdu avec l'autre système, dont je ne comprends pas l'intérêt... Mais bon, je suis autodidacte !

Merci à tous en tous cas.