Copier-coller cellules avec un double clic

Bonjour le forum,

J'ai une macro qui me permet de copier certaines cellules sur un autre onglet quand je double clic sur une cellule en particulier:

Quand je double clique sur une cellule de la colonne B en face d'un nom en colonne A:

• le nom en A se copie dans la colonne C de l'autre onglet
• la date en colonne D se copie en colonne E de l'autre onglet

Le problème est que le nom ne se copie sur toute la plage au lieu de se copier dans une seule cellule.

Exemple en PJ

Merci à vous et bonne après-midi !

Bonjour

Si j'ai compris ce que tu voulais

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Dc As Integer, Nf As String, i As Integer, x As Integer
Dim Dl As Range, Nom As String
Dim Ligne As Long

x = 0
If Target.Column = 2 And Target.Row > 1 Then
  Cancel = True
  For i = Target.Row To 1 Step -1
    If Target.Offset(x, -1) = "" Then
      x = x - 1
    Else
      Nf = Right(Target.Offset(x, -1), 1)
      Nom = Target.Offset(x, -1).Value
      Exit For
    End If
  Next i
  With Sheets("Feuil1")
    Ligne = .Range("C" & Rows.Count).End(xlUp).Row + 1
    .Range("C" & Ligne) = Nom
    .Range("E" & Ligne) = Target.Offset(0, 2)
    'Set Dl = .Range("C18:C29")
    'Dl = Nom
    'Dl(1, 3) = Target(1, 3).Value
  End With
End If
End Sub

Bonjour Banzai64,

C'est exactement ça, merci bien pour ton aide ça m'aide beaucoup !

Bonne soirée et @+

Re,

J'ai essayé de modifier la macro pour ne prendre en compte que les ligne 18 à 2à parce que je souhaite mettre d'autre informations ligne 30, j'essaye les codes suivants qui ne fonctionnent pas:

Ligne = .Range("C" & Rows.Count).Range("C29").Row

Ligne = ;Range("C18:C28")

Avez-vous une idée ?

Merci