Numérotation d'une facture - lettre et chiffre

[Kate37]

Bonjour à tous,

je reviens vers vous pour cette fois une histoire de numérotation de facture. Je sus sur une facture Excel et je souhaite avoir une sorte de numérotation automatique. Je fais un classeur de facture pour chaque mois.
Mon numérotation de facture est le suivant: FGJ0609-057
FGJ pour nos initial, 0609 pour le mois et l'année et 057 pour le numéro de la facture.

Existe-t'il une formulequi permet de modifier le numéro de la facture à chaque nouvelle facture et de modifier le mois et l'année à chaque changement de classeur.

J'espère mettre fait comprendre...

Merci pour votre aide
Bonne journée

 

[youky(BJ)]

Re : Numérotation d'une facture - lettre et chiffre

Bonjour kate,
je crois qu'il faut en passer par macro.
ceci à mettre sous un bouton ou autre pour valider la facture
La macro va s'occuper de mettre le bon N° et repart à 001 dés changement de mois
Attention cette macro crée un fichier "N°facture.txt" dans le mm répertoire que ton fichier, celui-ci peut être effacé ou modifié.
Avantage de passer par un fichier externe, plus besoin d'enregister quoi que ça soit, que si tu veux conserver les factures.
Change seulement la derniere ligne en fonction de tes besoins

Dim nf As String
deb = "FGJ" & Right(Month(Now) + 100, 2) & Right(Year(Now), 2) & "-"
On Error Resume Next
canal = FreeFile
Open chemin & "\N°facture.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 8) = deb Then
nf = deb & Format(Val(Right(nf, 3) + 1), "000")
Else
nf = CStr(deb & "001")
End If
Open chemin & "\N°facture.txt" For Output As #canal
Print #canal, nf
Close #canal
sheets("Facture").[F12]=nf

 

[Dull]

Re : Numérotation d'une facture - lettre et chiffre

Salut Kate le Forum

je te propose cette formule à tirer vers le bas

="FGJ"&TEXTE(MOIS(AUJOURDHUI());"mm")&TEXTE(ANNEE(AUJOURDHUI());"aa")&"-"&REPT(0;3-NBCAR(LIGNE()-1))&LIGNE()-1

EDITION: Salut Youki(BJ)

ReEdith: ne tiens pas compte de ma proposition j'ai mal lu l'énoncé

Bonne Journée

 

[sersib]

Re : Numérotation d'une facture - lettre et chiffre

Bonjour,
Désolé de déterrer ce post, mais la réponse de youky m'intéresse fortement.
La seule chose, c'est que cela ne créé pas le fichier .txt, et donc n'incremente pas le numéro 🙁 .
Une idée svp ?
Merci d'avance.

 

[youky(BJ)]

Re : Numérotation d'une facture - lettre et chiffre

Bonjour,
Je tombe sur ce message vraiment par hasard.
En effet il manque une ligne de code

chemin=ThisWorkbook.Path

Bruno

Dim nf As String
Dim chemin As String
chemin=ThisWorkbook.Path
deb = "FGJ" & Right(Month(Now) + 100, 2) & Right(Year(Now), 2) & "-"
On Error Resume Next
canal = FreeFile
Open chemin & "\N°facture.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 8) = deb Then
nf = deb & Format(Val(Right(nf, 3) + 1), "000")
Else
nf = CStr(deb & "001")
End If
Open chemin & "\N°facture.txt" For Output As #canal
Print #canal, nf
Close #canal
sheets("Facture").[F12]=nf