Autres Incrémenter un numéro de facture

[toune21]

Bonjour à tous,
Il y à très longtemps que je n'ai pas posé de questions. Je sollicite votre aide,
Je souhaiterais incrémenter "en K7" un numéro de facture un peu bizarre. A partir de la date facture, "année, mois, jour"

With Sheets("Factures")
    u = Year(Now()) & "" & Format(Month(Now()), "00") & "" & Format(Day(Now()), "00")

Je vous remercie, Marie

 

[Staple1600]

Bonjour @toune21

Une petite simplification
u= Format(Now(), "yyyymmdd")
devrait donner la même chose, non ?

 

[toune21]

Bonjour @toune21

Une petite simplification
u= Format(Now(), "yyyymmdd")
devrait donner la même chose, non ?

Je repard à ZERO dans le fichier que j'ai joint (je n'ai pas de macro)
Pourriez vous (me faire cette macro... "je sais que vous ne faites le travail à ma place" une petite aide.
'Cliquer sur nouvelle facture pour incrémenter "0003"

 

[mutzik]

Coucou,
oui mais si tu fais deux factures le même jour, les deux ne peuvent(comptablement) porter le même numéro !!
et le lendemain, on continue 0005 0006 ... ou on repart de 0001 ?

 

[Staple1600]

Re, Bonjour @mutzik


@toune21
Précisions
Le message#2 n'était qu'une suggestion pour alléger ta syntaxe
Car
u = Year(Now()) & "" & Format(Month(Now()), "00") & "" & Format(Day(Now()), "00")
et
u=Format(Now(), "yyyymmdd")
donne la même chose

Pour incrémenter un numéro de facture, je t'invite à regarder les nombreux exemples dans les Discussions similaires ou dans les archives du forum.

 

[toune21]

Coucou,
oui mais si tu fais deux factures le même jour, les deux ne peuvent(comptablement) porter le même numéro !!

Bonjour Bertrand,
Oui c'est le but de ma question, je veux incrémenter la fin du numéro de facture c'est à dire le "0003 en 0004"

 

[toune21]

Bonjour Bertrand,
Oui c'est le but de ma question, je veux incrémenter la fin du numéro de facture c'est à dire le "0003 en 0004"

 

[toune21]

et le lendemain, on continue 0005 0006 ... ou on repart de 0001 ?

le lendemain nous seront le premier octobre donc '20231001 ' 0005

 

[toune21]

Pour incrémenter un numéro de facture, je t'invite à regarder les nombreux exemples dans les Discussions similaires ou dans les archives du forum.

Merci j'ai déjà regardé et cherché, mais pas dans mon délire de (prendre la date de facture) et ajouté quatre chiffre après '0001...0008,')
Merci vous tous sympa juste une petite solution

 

[mutzik]

en voila une

 

[Staple1600]

Re

Testes-ceci sur une feuille vierge
(en lançant la macro plusieurs fois de suite)

Sub Test_Facture()
Dim NouvNumFac As Long
NouvNumFac = Range("A1") + 1
Range("A1").Value = NouvNumFac
Range("B1").Value = Format(Date, "yyyymmdd-") & Format(NouvNumFac, "0000")
End Sub

C'est ce que tu veux obtenir ?

 

[toune21]

en voila une

Merci pour l'incrémentation, elle passe bien de 20230930 0006 A "0005 A 0006"
sauf que si tu changes la date (de facturation "qui était dans ton exemple le 30/09/2023 ")
date de facture qui se trouve en K9 le 05/09/2023
nous n'avons plus le même numéro. ce qu'il faut (20230905 0006)

 

[Phil69970]

Bonjour à tous

@toune21
Je te propose ce fichier
Le code est fait pour un volume de 100 factures par mois si tu as plus me dire le volume pour adapter le code
Toutes les explications sont dans le fichier

Merci de ton retour

 

[toune21]

Re

Testes-ceci sur une feuille vierge
(en lançant la macro plusieurs fois de suite)

Sub Test_Facture()
Dim NouvNumFac As Long
NouvNumFac = Range("A1") + 1
Range("A1").Value = NouvNumFac
Range("B1").Value = Format(Date, "yyyymmdd-") & Format(NouvNumFac, "0000")
End Sub

C'est ce que tu veux obtenir ?

Oui c'est un peu ce que je désire, j'ai fait l'essai dans K7 cela fonctionne, il faut que je trouve ou mettre (ton A1) dans ma facture !!!!!!!
Merci

 

[Staple1600]

Re

@toune21
Ou étudie les exemples fournis par @mutzik et @Phil69970
Mon code n'était qu'un petit exemple sommaire
Une sorte de pied à l'étrier