Copie de lignes vers une autre feuille sans ecraser
Bonsoir,
Je suis nouvelle sur le forum et je tiens a vous féliciter pour ce site qui donne de bonnes bases.
Dans mon fichier, j'aimerai que les lignes de la feuille "liste_pdf", soient copiés à la suite des lignes de la feuilles "CSV". Sauf que la macro que j'ai créée écrase.(fichier joint)
Voici la macro utilisée:
Sub ajouter()
Dim nbli As Integer
Dim nbcol As Integer
nbli = Cells(1, 1).CurrentRegion.Rows.Count
nbcol = Cells(1, 1).CurrentRegion.Columns.Count
For i = 1 To nbli 'i = première ligne
For j = 1 To nbcol 'j = à la première colonne
Sheets("CSV").Cells(i, j).Value = Sheets("liste_pdf").Cells(i, j)
Next j
Next i
End Sub
Merci d'avance de voir là ou j'ai fait des erreurs
Bonne soirée,
Enidan033
Bonjour et binevenue sur le forum,
Essai ce code dans un module. Affecte le au bouton.
Sub CopieLignes()
Dim l As Worksheet, csv As Worksheet, DerL%, a
Set l = Sheets("Liste_pdf"): Set csv = Sheets("csv")
a = l.Range("A2:M" & l.Range("A" & Rows.Count).End(xlUp).Row).Value
DerL = csv.Range("A" & Rows.Count).End(xlUp).Row + 1
csv.Range("A" & DerL).Resize(UBound(a, 1), UBound(a, 2)) = a
End SubCordialement
Merci ddetp88 ,
Ça marche nickel§
Bonne soirée,