vba excel erreur 1004 impossible de coller Résolu/Fermé

Question

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  



Configuration: Windows XP / Internet Explorer 7.0

Patrice33740 · Answer

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

Vba excel erreur 1004 impossible de coller

1 réponse

Discussions similaires