[imputation sur feuille]

Bonjour,

J'ai besoin d'une aide sur ce fichier "test". J'aimerais lorsque je double clique dans une cellule en feuille 1 colonne B que la date s'affiche. Pour cela j'ai insérè un code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

With Target

If .Column = 2 Then .Value = Date: Cancel = True

End With

End Sub

J'ai besoin de votre aide sur la 2eme partie de mon fichier, sur ce même code j'aimerais lorsque je double clique toujours en colonne B feuille 1 que la donnée saisie en colonne A de la feuille 1 soit retranscrit en feuille 2 colonne D à partir de la ligne 12.

Merci d'avance pour votre aide.

Bonjour

A tester

c'est exactement cela mais il y a erreur de ma part ! c'est la colonne K concerné en feuille 1.

Fichier en pièce jointe

Bonjour

Modifies ta macro

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  With Target
    If .Column = 11 Then
      .Value = Date: Cancel = True
      Sheets("Base déclaré restitué ").Range("D" & Rows.Count).End(xlUp).Offset(1, 0) =Range("A" & Target.Row)
    End If
  End With
End Sub

Parfait !!!! j'ai adapté le code a mon fichier sa fonctionne nickel