Autres Incrémenter un numéro de facture

toune21 · 30 Septembre 2023

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"

VB:

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

Je vous remercie, Marie

Staple1600 · 30 Septembre 2023

Bonjour @toune21

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

toune21 · 30 Septembre 2023

Staple1600 à dit:
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 · 30 Septembre 2023

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 · 30 Septembre 2023

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 · 30 Septembre 2023

mutzik à dit:
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 · 30 Septembre 2023

toune21 à dit:
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 · 30 Septembre 2023

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

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

toune21 · 30 Septembre 2023

Staple1600 à dit:
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 · 30 Septembre 2023

en voila une

Staple1600 · 30 Septembre 2023

Re

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

Code:

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 · 30 Septembre 2023

mutzik à dit:
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 · 30 Septembre 2023

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 · 30 Septembre 2023

Staple1600 à dit:
Re

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

Code:

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 · 30 Septembre 2023

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

Autres Incrémenter un numéro de facture

toune21

XLDnaute Impliqué

Pièces jointes

Staple1600

XLDnaute Barbatruc

toune21

XLDnaute Impliqué

mutzik

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

toune21

XLDnaute Impliqué

toune21

XLDnaute Impliqué

toune21

XLDnaute Impliqué

toune21

XLDnaute Impliqué

mutzik

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

toune21

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

Pièces jointes

toune21

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Discussions similaires