Copier coller à la suite VBA Fermé

Question

Bonjour, 

je suis un novice sur VBA, donc j'ai quelques souci pour un code.
Mon code est ts simple:
En cliquant sur un bouton de commande, la macro doit copier coller une plage sur une feuille, doit aller sur une autre feuille. A partir de la, elle doit chercher la premiere cellule non vide (en partant du bas), et coller la selection.
Voici mon code:

Sub bouton()
Dim WB_Principal As Workbook
Set WB_Principal = ActiveWorkbook
Sheets("Macro1").Range("J20:K24").Copy
Workbooks("Machin.xlsx").Activate
Sheets("col").Activate
Do Until Not IsEmpty((ActiveCell))
Range("A65536").Offset(1, 0).End(xlUp).Select
Selection.Paste
Loop

WB_Principal.Activate
End Sub

A partir de cette ligne: Range("A65536").Offset(1, 0).End(xlUp).Select
j'ai l'erreur 1004 "erreur définie par l'application ou par l'objet"
Donc j'aimerai bien savoir pq j'ai cette erreur et par la suite avoir si possible une solution.

Merci de votre aide

Stevou


Configuration: Windows 7 / Internet Explorer 9.0

Patrice33740 · Answer

Range("A65536").Offset(1, 0).End(xlUp).Select   
C'est comme  
Range("A65537").End(xlUp).Select   
c'est une cause d'erreur sur un fichier .xls (mais pas sur un xlsx), il faudrait écrire :  
Range("A65536").End(xlUp).Offset(1, 0).Select  
et pour un xlsx :  
Range("A1048576").End(xlUp).Offset(1, 0).Select  

plus universel :  
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select  

Je préfère utiliser un objet Range :  
Dim rng As Range  
Set rng = ActiveSheet.Columns("A").Find("*", , , , , xlPrevious)  
If Not rng Is Nothing Then  
  Set rng = rng.Offset(1, 0)
  ' ....  
End If  

   
Cordialement  
Patrice

Copier coller à la suite VBA

1 réponse

Discussions similaires