Vba excel erreur 1004 impossible de coller
Résolu
skereol
Messages postés
2
Statut
Membre
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Merci par avance pour votre aide, cordialement,
En fait, j'essaie de copier des données d'une colonne A défini avec des lignes variables de la feuille 3 vers une colonne de la feuille 2 du même classeur , mais les lignes sont variables sur les 2 feuilles.
mon code:
Sub DerniereCelluleremplie2()
Dim i
Dim n
Dim k, c, l As Integer
Dim li
Dim Plage
li = Range([A2], [A2].End(xlDown)).Rows.Count
For k = 2 To li
Worksheets("Feuil3").Activate
Cells(2, 1).Activate
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Range(Cells(2, 1), Cells(li, 1)).Copy
Worksheets("feuil2").Activate
Range("B2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Next k
...
End Sub
Merci par avance pour votre aide, cordialement,
En fait, j'essaie de copier des données d'une colonne A défini avec des lignes variables de la feuille 3 vers une colonne de la feuille 2 du même classeur , mais les lignes sont variables sur les 2 feuilles.
mon code:
Sub DerniereCelluleremplie2()
Dim i
Dim n
Dim k, c, l As Integer
Dim li
Dim Plage
li = Range([A2], [A2].End(xlDown)).Rows.Count
For k = 2 To li
Worksheets("Feuil3").Activate
Cells(2, 1).Activate
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Range(Cells(2, 1), Cells(li, 1)).Copy
Worksheets("feuil2").Activate
Range("B2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Next k
...
End Sub
1 réponse
-
Bonjour,
Le code suivant devrait convenir :
Sub DerniereCelluleremplie2() Dim rng As Range Dim dst As Range 'Définition de la zone source Set rng = Worksheets("Feuil3").Range("A2") Set rng = rng.Resize(rng.End(xlDown).Row - rng.Row + 1) 'Définition de cellule cible Set dst = Worksheets("Feuil2").Range("B2") Set dst = dst.Offset(dst.End(xlDown).Row - dst.Row + 1) 'Copie rng.Copy Destination:=dst End Sub
