Discussion :

[laflouill]

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

[jfontaine]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[laflouill]

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????

[jfontaine]

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

[laflouill]

Ah! je te remerci ça fonctionne