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!
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!