Créer une archive

Bonjour à tous,
j' ai cherché désespérément une solution pour le boulot.
Je dois archiver les lignes 16 et 62 de la feuil1 sur un tableau de la feuil3.

Tous les jours je remplis la feuil1 et je souhaiterais archiver ces lignes (16, 62) en cliquant sur un bouton ( le bleu).


En espérant que quelqu'un souhaiteras m'aider, merci d'avance

Bonjour,

La ligne 17 a la même structure que la ligne 62. Doit ton prendre 17 à la place de 16?

Ci dessous une méthode (Comme tu utilises des cellules fusionnées, difficile de faire une copier coller)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Sub Copie()   Dim shCible As Worksheet Dim Icible As Long   Set shCible = ThisWorkbook.Sheets("Feuil3")   'Copie ligne 17 Icible = shCible.Range("C" & Rows.Count).End(xlUp).Row + 1   shCible.Range("C" & Icible).Value = Me.Range("C17").Value shCible.Range("D" & Icible).Value = Me.Range("E17").Value shCible.Range("E" & Icible).Value = Me.Range("F17").Value shCible.Range("F" & Icible).Value = Me.Range("H17").Value shCible.Range("G" & Icible).Value = Me.Range("J17").Value shCible.Range("H" & Icible).Value = Me.Range("L17").Value shCible.Range("I" & Icible).Value = Me.Range("N17").Value shCible.Range("J" & Icible).Value = Me.Range("O17").Value   'Copie ligne 62 Icible = shCible.Range("C" & Rows.Count).End(xlUp).Row + 1   shCible.Range("C" & Icible).Value = Me.Range("C62").Value shCible.Range("D" & Icible).Value = Me.Range("E62").Value shCible.Range("E" & Icible).Value = Me.Range("F62").Value shCible.Range("F" & Icible).Value = Me.Range("H62").Value shCible.Range("G" & Icible).Value = Me.Range("J62").Value shCible.Range("H" & Icible).Value = Me.Range("L62").Value shCible.Range("I" & Icible).Value = Me.Range("N62").Value shCible.Range("J" & Icible).Value = Me.Range("O62").Value   End Sub

---

merci ton aide.
C'est bien la ligne 16 que je veux copier.
en tout cas je te remerci je testerais ça demain et je te te tiens au jus

bon je viens d'essayer mais ça fonctionne pas. Il a un problème avec shCible.Range("C" & Icible).Value = Me.Range("C17").Value avec "Me" est ce que je dois le remplacer par quelque chose????

Si le code est dans un module, remplace "Me" par "Sheets("NomFeuille")"

Ah! je te remerci ça fonctionne