Incrementation numero automatique chiffre+lettre

Bonjour,

j'essai de trouver un moyen d'incrementer un numero de facture automatiquement (voir piece jointe) et de l'associer au bouton ce afin de generer une nouvelle facture et un nouveau numero.

Merci pour toutes vos suggestions.

Bonjour,

je suppose que le dernier N° de facture se trouvera dans la feuille "Historique Facture".

un essai :

Dim AncienNumFac As String, NumFac As String, Num As Long
AncienNumFac = "FA00000148"  ' coder la récupération de ce N° dans la feuille qui va bien
Num = CLng(Right(AncienNumFac, 8)) + 1
NumFac = Left(AncienNumFac, 2) & Format(Num, "00000000")
Worksheets("Facture").Range("A27").Value = NumFac

A+

Merci

j essaierai sa demain matin et te tiens au courant