Selection jusqu'à dernière ligne

[guenfood]

Bonjour,

Dans une macro, je cherche à compléter un tableau excel avec un autre (même format de colonnes) avec le code suivant :

Workbooks("ALLER.xls").Activate
    Range("A4:A65536").End(xlUp).Select
    Selection.Cut
Workbooks("BNPP.xls").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

Mais cela bloque sur le collage "ActiveSheet.Paste".

Je cherche à prendre de la ligne 4 à la dernière ligne écrite de mon fichier ALLER.xls pour l'ajouter à la première ligne vide de mon fichier BNPP.xls.

Où se situe mon erreur ?

 

[Robert]

Re : Selection jusqu'à dernière ligne

Bonjour Guenfood, bonjour le forum,

Essaie comme ça :

Sub Macro1()
 
Workbooks("ALLER.xls").Activate
Range("A4:A" [COLOR=red]& Range("A65536").End(xlUp).Row).Cut[/COLOR]
Workbooks("BNPP.xls").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
 
End Sub

 

[guenfood]

Re : Selection jusqu'à dernière ligne

Merci pour cette réponse rapide.
Le hic, c'est que cela ne me prend que la colonne A.
Mes données à prendre sont entre la colonne A et la colonne K.

 

[Temjeh]

Re : Selection jusqu'à dernière ligne

Bonjour

Si c'est sous un bouton tu doit lui mettre le nom de la feuil aussi(je pense):

Workbooks("ALLER.xls").Activate
Sheets("Feuil1").Range("A4:K" & Range("K65536").End(xlUp).Row).Select
Selection.Cut
Workbooks("BNPP.xls").Activate
Sheets("Feuil1").Select
If Sheets("Feuil1").Range("A1") = "" Then
Sheets("Feuil1").Range("A1").Select
ActiveSheet.Paste
Else
Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End If


Mais j'irais plus avec la fonction Transpose aulieu des select et paste

A+

Temjeh

Avec le select jusqu'à K


Oups bonjour Robert

 

[Catrice]

Re : Selection jusqu'à dernière ligne

Bonjour,

Tu peux egalement essayer ceci :

Sub test()
Workbooks("ALLER.xls").ActiveSheet.Range("A65536").End(xlUp).EntireRow.Cut (Workbooks("BNPP.xls").ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0))
End Sub