Problème numérotation facture et macro enregistrement

[hyperion66]

Bonjour,

Pour le moment, ma facture porte un numéro "aléatoire" alors que la législation impose d'incrémenter ce numéro de 1 à chaque fois.
J'aimerais donc avoir un numéro de facture comme celui-ci :
Pour un facture en date du 17/09/07, le n° serait 20070901
Le second client de la journée aurait 20070902, etc....
J'ai essayé de scinder les deux cellules I15 et J15 et de mettre dans I15 la date au format yyyymm et dans J15 un numéro rentré manuellement, ça ne marche pas ensuite quand j'utilise la macro d'enregistrement.
Quelqu'un pourrait m'aider ?

Merci

 

[Bebere]

Re : Problème numérotation facture et macro enregistrement

bonsoir Hyperion
un exemple
en numfact =ANNEE(Date)&TEXTE(MOIS(Date);"00")&TEXTE(J15;"00"),en J15=1
à bientôt

 

[Staple1600]

Re : Problème numérotation facture et macro enregistrement

Bonsoir


Une approche légèrement différente

1) Insertion/Nom
NUM=TEXTE(AUJOURDHUI();"aaaamm")
ERO=SECONDE(MAINTENANT())
edit:ERO=SECONDE(MAINTENANT())+1 (ici de 1 à 60)


2) en J15 saisir =NUM&ERO

(à peaufiner car dans ce cas les numéros vont de 0 à 59)

 

[JCGL]

Re : Problème numérotation facture et macro enregistrement

Re,

En I5 =

=TEXTE(Date;"aaaammjj")&"_"&TEXTE(L1;"000")

Incrémentation de 1 à chaque RAZ (tu peux mettre Sheets("Facture").Range("L1").Value = Sheets("Facture").Range("L1").Value + 1 dans la macro Enregistrement() si tu préfères)

Sub Zero()

Sheets("Facture").Range("L1").Value = Sheets("Facture").Range("L1").Value + 1

Range("Designation").ClearContents
Range("Qté").ClearContents
Range("Commentaire").ClearContents
Range("Remise").ClearContents
Range("Adresse").ClearContents
Range("B16").Formula = "2"
Range("G7").Select
End Sub

J'ai un peu raccourci ta macro Zero() (l'emploi de Select ralenti l'exécution)

Bonne soirée