XL 2013 Erreur exécution 1004 VBA

[Amelie67]

Bonjour,

j'essaye de créer une VBA pour coller les données d'une facture dans un tableau récap et réinitialiser ma facture avec nouveau n° de fact
J'ai une erreur 1004 "Erreur définie par l'application ou par l'objet" que je n'arrive pas à résoudre sur ma première ligne Sheets

Voici ma VBA :
Sub ArchiverFactRemise()


'Historique

ligne = Sheets("Historique_facture_remise").Range("A2").End(xlDown).Row + 1
Sheets("Historique_facture_remise").Range("A" & ligne).Value = Sheets("Facture remise").Range("H21").Value
Sheets("Historique_facture_remise").Range("B" & ligne).Value = Sheets("Facture remise").Range("N17").Value
Sheets("Historique_facture_remise").Range("C" & ligne).Value = Sheets("Facture remise").Range("N19").Value
Sheets("Historique_facture_remise").Range("D" & ligne).Value = Sheets("Facture remise").Range("N20").Value
Sheets("Historique_facture_remise").Range("E" & ligne).Value = Sheets("Facture remise").Range("N21").Value
Sheets("Historique_facture_remise").Range("F" & ligne).Value = Sheets("Facture remise").Range("B19").Value
Sheets("Historique_facture_remise").Range("G" & ligne).Value = Sheets("Facture remise").Range("O59").Value
Sheets("Historique_facture_remise").Range("H" & ligne).Value = Sheets("Facture remise").Range("O58").Value
Sheets("Historique_facture_remise").Range("I" & ligne).Value = Sheets("Facture remise").Range("O63").Value
Sheets("Historique_facture_remise").Range("J" & ligne).Value = Sheets("Facture remise").Range("N22").Value

'Remise à zéro facture + mise à jour du numéro
Sheets("Facture remise").Range("B26:B56").ClearContents
Sheets("Facture remise").Range("L26:L56").ClearContents
Sheets("Facture remise").Range("C16").ClearContents
Sheets("Facture remise").Range("C23").ClearContents
Sheets("Facture remise").Range("H21").Value = Sheets("Facture").Range("H21").Value + 1

End Sub


Merci pour votre aide!

 

[job75]

Bonjour Amelie67,

si A2 est la dernière cellule de la colonne A la 2ème ligne de la macro beugue, c'est normal car alors ligne = 1048577.

Au lieu de .Range("A2").End(xlDown).Row utilisez .Range("A1048576").End(xlUp).Row

A+

 

[Amelie67]

Merci !
Mais du coup ça enregistre dans le sens inverse... Et mon n° de facture ne s'actualise plus...
Ca enregistre tout le temps dans A1, sans descendre dans A2...

 

[eriiic]

Bonjour à tous,

job t'indiquait la dernière ligne utilisée.
Faire +1 dessus
eric