Macro pour copier coller

Bonjour à tous,

J'ai une macro qui copie-colle des données d'une feuille à une autre quand je double-clic sur une cellule. Le problème est que je n'arrive pas à définir ma zone de collage :

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

J'essaye de modifier cette ligne:

Ligne = .Range("C" & Rows.Count).End(xlUp).Row + 1

Mais sans succès :/.

Avez-vous une idée de comment faire ?

Merci et bonne journée !

Bonjour,

tu es entrain de copier les valeurs de la colonne A aprés la dernière ligne de la colonne C,

Qu'est ce que tu veux exactement???

Bonjour,

Oui c'est ce que je souhaite faire: colonne A vers C et colonne D vers E.

Le fichier n'apparait pas? Pourtant je le vois.

Merci !

Bonjour Auré,

Si j'ai bien compris tu souhaites après un double clic en page "Base" que le nom ainsi que la date soit retranscris en Feuil1.

Petite restriction tu souhaites que la copie s'intègre à la suite de ton tableau en Feuil1 dont les coordonnées sont : C18:E29. Tu as donc 12 cellules vides à l'origines.

Question qui semble être bête : Supposons que le tableau est pleins mais que tu double clic sur un 13ème nom. Que doit il se passer?!

Le temps que tu me répondes, je confectionne un code qui sera bien plus simples que celui que tu as présenté

Rebonjour,

Voici un premier test.

Un message d'alerte s'affiche lorsque le tableau souhaité est plein et que vous avez encore double cliquez pour rajouter un nom et une date.

Cela vous convient il ?

Bonne fin de journée.

Bonsoir Greg.leo,

Wahou! C'est super merci beaucoup, c'est sympa d'avoir commenté le code j'ai tout saisis.

Désolé de ne pas t'avoir répondu avant, j'avais pas de PC avec moi :/.

Encore merci pour ton aide, bon week !

Bonjour Auré,

j'espère que tu verras encore ce message parce que je viens de m'apercevoir que le code comporte une erreur... Cette erreur réside dans la vérification si le tableau en feuil4 est plein ou non !

Voici le fichier avec le code rectifié

Bonsoir Greg.Ieo,

Merci d'être revenu à ce post .

Je crois que vais laisser les deux avertissements, un ou il faut écrire dans C2 et l'autre quand le tableau est plein. Avec ça je ne devrais pas me tromper

Encore merci pour ton aide et bonne soirée !