Copie valeur cellule active à condition

Bonjour,
je voudrais vous demander de m'aider pour faire un macro
en appuyant sur une cellule de A2 à A500 "Feuille A"
copier la cellule Active ( condition de A2 à A500 )

Coller la valeur dans la cellule D1 d'une autre feuille appelle B

Je vous remercie beaucoup

1 réponse

  1. Bonsoir

    Macro possible déclenché par double-clic dans une cellule :
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column > 1 Or Target.Row < 2 Or Target.Row > 500 Then Exit Sub
    Sheets("B").Range("D1") = Target.Value
    End Sub


    Cdlmnt
    Via
    0
    1. Merci pour la réponse, pourquoi 2 clique et pas 1 clique ?
      0
    2. @a.achrafParce que le clic droit ou gauche sont réservés pour d'autres actions
      0