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

toune21 · 30 Septembre 2023

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

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

bonjour
tu affecte cette macro a ton bouton

VB:

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

Phil69970 · 30 Septembre 2023

Re

@voici la V2

Staple1600 · 30 Septembre 2023

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

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

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

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

Bonjour @Phil69970

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

(cf message#15)

toune21 · 30 Septembre 2023

patricktoulon à dit:
bonjour
tu affecte cette macro a ton bouton

VB:

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,

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

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....

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

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

Re

toune21 à dit:
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

Phil69970 à dit:
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 !

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

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

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 ....

Autres Incrémenter un numéro de facture

toune21

XLDnaute Impliqué

Pièces jointes

toune21

XLDnaute Impliqué

toune21

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

toune21

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

toune21

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

Pièces jointes

toune21

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

toune21

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

Discussions similaires