Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Erreur exécution 1004 VBA

Amelie67

XLDnaute Nouveau
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

XLDnaute Barbatruc
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+
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…