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

 

[toune21]

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

Bonjour, Phil,
Merci ton explication est parfaite, sauf que pour le mois et le jour 'c'est pas rapport à la date de facture'
vous avez tous le droit de dire que je suis chiante..............

 

[toune21]

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

Juste enlève l'étrier, tu pourras sortir le pied, ok je suis un ch............. merci quand même

 

[patricktoulon]

bonjour
tu affecte cette macro a ton bouton

Sub NumFactIncremente()
[K7:L7] = Array(Format(Date, "yyyymmdd"), Format(Val([l7]) + 1, "0000"))
[k9] = Date
End Sub

 

[Phil69970]

Re

@voici la V2

 

[Staple1600]

Re

@toune21
ma philosophie(*) c'est d'inciter le demandeur à mouiller la chemise.
Si telle n'est pas son envie, c'est son problème
Car initialement, c'est sa question qu'il a résoudre

(*) je trouve plus gratifiant pour le demandeur d'avoir participé à la résolution de sa question.

 

[toune21]

Re

ma philosophie(*) c'est d'inciter le demandeur à mouiller la chemise.
Si telle n'est pas son envie, c'est son problème
Car initialement, c'est sa question qu'il a résoudre

(*) je trouve plus gratifiant pour le demandeur d'avoir participé à la résolution de sa question.

voilà ce que j'avais au départ,

Option Explicit
Dim x As Long, Fac_Dev As String, I As Long, K, n, NFacture As Long
Dim Xonglet, Xcel, u, numero As String, reponse As String

Sub N_Facture()
Application.ScreenUpdating = False
With Sheets("Factures")
u = Year(Now()) & "" & Format(Month(Now()), "00") & "" & Format(Day(Now()), "00")
x = .Range("A65536").End(xlUp).Row
Xcel = Format(Right(.Cells(x, 1), 4) + 1, "0000")
numero = u & " " & Xcel
End With
End Sub

Si si mon envie est là,
mais le bug était ici
Xcel = Format(Right(.Cells(x, 1), 4) + 1, "0000")

Merci à tous, je n'ai pas vos compétences,
je voulais juste en K7 avec la date de facture qui est en K9 ça 20230930 0003
je m'arrête ici avec mes questions !!!!!!!!!!
bon WE à tous

 

[Staple1600]

Re

@toune21
[Précisions]
J'indiquais simplement que les exemples fournis par les autres contributeurs étaient à étudier (car plus aboutis)
Puisque mon code n'était qu'un test illustratif
D'où mon invitation dans le message#15

Au final, tu as de quoi incrémenter ton numéro de facture ?

 

[Phil69970]

Re

Perso j'aime bien savoir quelle solution le demandeur choisi et je crois que je vais resté sur mon interrogation.
Et si c'est une solution autre cela serait bien de la connaitre car nous sommes sur un site de partage et d'autres personnes pourraient être intéressé.

 

[Staple1600]

Bonjour @Phil69970

C'est pas faute d'avoir incité le demandeur à regarder ton fichier, entre autres contributions

(cf message#15)

 

[toune21]

bonjour
tu affecte cette macro a ton bouton

Sub NumFactIncremente()
[K7:L7] = Array(Format(Date, "yyyymmdd"), Format(Val([l7]) + 1, "0000"))
[k9] = Date
End Sub

Regarde la pièce jointe 1180044

Merci impeccable en L,

Bonjour @Phil69970

C'est pas faute d'avoir incité le demandeur à regarder ton fichier, entre autres contributions

(cf message#15)

Vous étes tous bon ,
Il faut que le numéro de facture s'incrémente avec la date de facture.

Patrick c'est bien en L on bien l'incrémentation du "001 à 002"
le pire je viens de changer la date de facture au (15/09/2023) et ta macro

Sub NumFactIncremente() ' Patrick
[K7:L7] = Array(Format(Date, "yyyymmdd"), Format(Val([l7]) + 1, "0000"))
[k9] = Date
End Sub

vient de remplacer le 15, par le 30....

 

[Phil69970]

Re

Et si tu ne veux pas le F devant qui pour moi me semble pratique car il permet de différencier facilement un devis d'une facture avec la même système de numérotation, il suffit de modifier légèrement le code VBA

5 caractères à enlever ligne 2
5 caractères à enlever ligne 5 et à à ajouter ligne 3
Remplacer 12 par 11 à la 4 eme ligne

==> La V3 sans mettre les mains dans le cambouis du code VBA

Et je ne connais toujours pas le volume de facture par jour....

Le code est fait pour un volume de 100 factures par mois jour si tu as plus me dire le volume pour adapter le code

 

[toune21]

Re

Et si tu ne veux pas le F devant qui pour moi me semble pratique car il permet de différencier facilement un devis d'une facture avec la même système de numérotation, il suffit de modifier légèrement le code VBA



==> La V3 sans mettre les mains dans le cambouis du code VBA

Et je ne connais toujours pas le volume de facture par jour....

le volume n'a rien à voir. Juste si je fais ma facture le 05/08/2023 je souhaite avoir
dans K7 20230805 0006 et le numéro qui s'incrémente. tout ça dans K7.
LE F n'a rien à voir..... DANS J7 c'est du texte (FACTURE N°)

 

[Phil69970]

Re

le volume n'a rien à voir. Juste si je fais ma facture le 05/08/2023 je souhaite avoir
dans K7 20230805 0006 et le numéro qui s'incrémente. tout ça dans K7.
LE F n'a rien à voir..... DANS J7 c'est du texte (FACTURE N°)

La réponse est complétement à coté !

Et si car mon fichier et mon code et VBA fonctionne SEULEMENT pour 100 factures par jour
==> je l'ai même précisé dans mon tout 1er message

Le code est fait pour un volume de 100 factures par mois si tu as plus me dire le volume pour adapter le code

Apparemment tu ne lis pas toutes les commentaires que j'ai mis dans le code VBA c'est bien la peine que je les mettent !

LE F n'a rien à voir..... DANS J7 c'est du texte (FACTURE N°)

Quand je parle du F c'est pas la colonne F c'est seulement ceci :

De plus je vois que tu n'as pas pris le temps d'ouvrir le dernier fichier que j'ai posté car tu aurais vu ceci en appuyant sur le bouton "Nouvelle facture"

 

[toune21]

le volume n'a rien à voir. Juste si je fais ma facture le 05/08/2023 je souhaite avoir
dans K7 20230805 0006 et le numéro qui s'incrémente. tout ça dans K7.
LE F n'a rien à voir..... DANS J7 c'est du texte (FACTURE N°)

Re



La réponse est complétement à coté !


Et si car mon fichier et mon code et VBA fonctionne SEULEMENT pour 100 factures par jour
==> je l'ai même précisé dans mon tout 1er message



Apparemment tu ne lis pas toutes les commentaires que j'ai mis dans le code VBA c'est bien la peine que je les mettent !




Quand je parle du F c'est pas la colonne F c'est seulement ceci :

Regarde la pièce jointe 1180078

De plus je vois que tu n'as pas pris le temps d'ouvrir le dernier fichier que j'ai posté car tu aurais vu ceci en appuyant sur le bouton "Nouvelle facture"

Regarde la pièce jointe 1180083

J'ai bien enregistré ton dernier fichier, je reste sur ce que j'ai demandé, à savoir
quand je change la date de la facture (15/10/2023)
j'ai bien appuyer sur Nouvelle Facture et voilà le résultat.

Nous sommes d'accord cela n'incrémente pas la date.

 

[Phil69970]

Re

La date s'incrémentera demain et tous les jours elle changera comme dans la vie .....et les numéros (01,02,03...xx) s'incrémentent jusqu'à 100 et puis il reviennent à 01 (D’où la demande de connaitre le volume de factures.)

Si tu avais regardé le code VBA ou modifié la date système de ton PC (pour simuler demain .... ) et réouvert mon fichier tu l'aurais vu ....