Acrimentation numéro de facture

Bonjour à tous,

Je suis en train de créer une facture sur excel, et j'essaie d'automatiser le max à l'aide du VBA. Et à chaque fois ca me dit qu'il y a une erreur au niveau de la partie surligner en jaune.

Si quelqu'un pourrait m'aider, je lui serai tres reconnaissant.

Merci !

Voici le code :

Sub Bouton1_Cliquer()
LIGNE = Sheets("HISTORIQUE FACTURES").Range("A1").End(xlDown).Row + 1
Sheets("HISTORIQUE FACTURES").Range("A" & LIGNE).Value = Sheets("FACTURE").Range("G11").Value
Sheets("HISTORIQUE FACTURES").Range("B" & LIGNE).Value = Sheets("FACTURE").Range("G14").Value
Sheets("HISTORIQUE FACTURES").Range("C" & LIGNE).Value = Sheets("FACTURE").Range("K4").Value
Sheets("HISTORIQUE FACTURES").Range("D" & LIGNE).Value = Sheets("FACTURE").Range("K5").Value
Sheets("HISTORIQUE FACTURES").Range("E" & LIGNE).Value = Sheets("FACTURE").Range("K6").Value
Sheets("HISTORIQUE FACTURES").Range("F" & LIGNE).Value = Sheets("FACTURE").Range("K7").Value
Sheets("HISTORIQUE FACTURES").Range("G" & LIGNE).Value = Sheets("FACTURE").Range("K8").Value
Sheets("HISTORIQUE FACTURES").Range("H" & LIGNE).Value = Sheets("FACTURE").Range("E17").Value
Sheets("HISTORIQUE FACTURES").Range("I" & LIGNE).Value = Sheets("FACTURE").Range("L32").Value
Sheets("HISTORIQUE FACTURES").Range("J" & LIGNE).Value = Sheets("FACTURE").Range("L34").Value
Sheets("HISTORIQUE FACTURES").Range("K" & LIGNE).Value = Sheets("FACTURE").Range("L36").Value

Sheets("FACTURE").Range("E17:L31").ClearContents
Sheets("FACTURE").Range("K4:L4").ClearContents
Sheets("FACTURE").Value = "FA" & Format("G14", "YY") & Format("G14", "MM-") & Format(Mid(Sheets("HISTORIQUE FACTURES"), 8, 3) + 1, "000")

End Sub

bonsoir,

pas grand chose de correct dans cette instruction et donc bravo de n'avoir eu aucune erreur de syntaxe.

je suppose que tu souhaites avoir un numéro de facture pour une date en cellule G14 et d'un dernier numéro de facture incrémenté de 1.

essaie ceci

G14=sheets("feuille contenant la cellule G14 avec la date").range("G14")
DF=sheets("HISTORIQUES FACTURES").range("range qui contient le dernier numéro de facture")
Sheets("FACTURE").range("range où mettre le numéro de facture").Value = "FA" & Format(G14, "YYMM-") & Format(Mid(DF, 8, 3) + 1, "000")

Bonjour,

Je te remenrci pour ton aide.

Il y a toujours un problème au niveau de la partie surligner, et aussi j'ai oublié de mentionner qu'a chaque fois il y a une ligne qui s'ajoute dans la feuille qui contient le num de facture, donc à chaque fois la ligne qui contient le numéro change.

G14=sheets("feuille contenant la cellule G14 avec la date").range("G14")

DF=sheets("HISTORIQUES FACTURES").range("range qui contient le dernier numéro de facture")

Sheets("FACTURE").range("range où mettre le numéro de facture").Value = "FA" & Format(G14, "YYMM-") & Format(Mid(DF, 8, 3) + 1, "000")