Erreur 400 sur copie de données !!

[excelman]

Bonjour au forum
Heu pardon c'est une

erreur d'execution "1004"
erreur définie par l'application ou par l'objet


J'ai un petit soucis avec la macro suivante

Sub findejournee()
Worksheets("caisse").Range("a1").Select
Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _
tbl.Columns.Count).Copy
Sheets("caissemois").Select
Range("a1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
End Sub

Elle me sert à copier les lignes pleines de la feuille "caisse" à la feuille "caissemois"...
Pourriez vous m'expliquer pourquoi cela me fait une erreur 400 sur la ligne

Range("a1").End(xlDown).Offset(1, 0).Select

Cordialement

A+

 

[Roland_M]

Re : Erreur 400 sur copie de données !!

bonjour

c'est vrai, pouquoi faire simple quand on peut faire compliqué !?

essais comme ceci :
Range("a2").End(xlDown).Select

EDIT :

à savoir que si tout est vide c'est la dernière cellule du bas qui est sélectionnée !?

RE-EDIT : faire comme indiqué par Mromain

 

[mromain]

Re : Erreur 400 sur copie de données !!

bonsoir excelman, Roland_M,

ou alors

Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

a+

 

[excelman]

Re : Erreur 400 sur copie de données !!

bonsoir Romain, Roland_M

Effectivement la solution de Romain fonctionne parfaitement bien...

Merci beaucoup du coup de main

Cdt

A+