Vba excel erreur 1004 impossible de coller
Résolu
skereol
Messages postés
2
Statut
Membre
-
Patrice33740 Messages postés 8930 Statut Membre -
Patrice33740 Messages postés 8930 Statut Membre -
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
A voir également:
- Vba excel erreur 1004 impossible de coller
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
1 réponse
Bonjour,
Le code suivant devrait convenir :
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
