Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Numéro Auto

Numéro Auto

5 réponses
Avatar
Pascal
Bonjour je suis en train de faire une appli "Facturation".
J'aimerais qu'un Numéro de facture soit généré automatiquement sous un
format 3 lettres+ la date du jour(Par exemple les 3 premiéres lettres du nom
du client style: PAS191203 et bien sur qu'il soit unique.


Merci
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AV
format 3 lettres+ la date du jour(Par exemple les 3 premiéres lettres du nom
du client style: PAS191203
Left(leNom, 3) & Format(Date, "ddmmyy")


et bien sur qu'il soit unique.
Il faut le comparer à quoi ?


AV

Avatar
Ricky [MVP]
Bonjour *Pascal* (et tous les lecteurs)
| Bonjour je suis en train de faire une appli "Facturation".
| J'aimerais qu'un Numéro de facture soit généré automatiquement sous
| un format 3 lettres+ la date du jour(Par exemple les 3 premiéres
| lettres du nom du client style: PAS191203 et bien sur qu'il soit
| unique.

Attention.
Dans une compta la numérotation des factures doit obligatoirement être
continue sans doublons et sans trous.
Le style étant laissé à ton appréciation.
--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faq.ms.word.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Avatar
Pascal
Salut Alain,

Aux Numéros déjà existants qui correspondent à un Nom d'onglet qui lui même
sert à l'enregistrement d'un classeur. Mais j'avance un peu.
Donc en fait ce numéro donne le nom d'un classeur Tous classeurs étant
sauvegardés dans le même répertoire.
J'ai fait cela
=CONCATENER(GAUCHE(F8;5);TEXTE(G13;"jjmmaa"))
ou F8 est une raison Sociale et G13 une date.
Maintenant si quelqu'un a une solution pour faire avec toutes ces factures,
une base reprenant la raison Sociale, le montant facturé, la date, et le
numéro de facture, je suis preneur

Pascal


"AV" a écrit dans le message de
news:
format 3 lettres+ la date du jour(Par exemple les 3 premiéres lettres du
nom


du client style: PAS191203
Left(leNom, 3) & Format(Date, "ddmmyy")


et bien sur qu'il soit unique.
Il faut le comparer à quoi ?


AV





Avatar
AV
Il faut le comparer à quoi ?


Aux Numéros déjà existants qui correspondent à un Nom d'onglet qui lui même
sert à l'enregistrement d'un classeur.


A adapter :
Sub zzzzzz()
leNom = "abcdef"
nomF = Left(leNom, 3) & Format(Date, "ddmmyy")
On Error Resume Next
test = Sheets(nomF).[A1]
If Err.Number = 0 Then
MsgBox "existe déjà !"
Exit Sub
End If
Application.ScreenUpdating = False
Sheets.Add.Name = nomF
Sheets("Facture").Cells.Copy
Sheets(nomF).Select
Cells.PasteSpecial Paste:=xlValues
Cells.PasteSpecial Paste:=xlFormats
[A1].Select
Application.CutCopyMode = False
End Sub

AV


Avatar
Pascal
Je le mets où?
La dedans:?
ActiveWorkbook.SaveAs Filename:= _
"C:TotoZazaBureausauve" & ActiveSheet.name _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
MsgBox " Votre facture est maintenant sauvegardée dans le dossier" &
Chr(10) _
& Chr(10) & _
"Sauvegarde facture qui se trouve sur votre bureau"

Mais où?



"AV" a écrit dans le message de
news:
Il faut le comparer à quoi ?


Aux Numéros déjà existants qui correspondent à un Nom d'onglet qui lui
même


sert à l'enregistrement d'un classeur.


A adapter :
Sub zzzzzz()
leNom = "abcdef"
nomF = Left(leNom, 3) & Format(Date, "ddmmyy")
On Error Resume Next
test = Sheets(nomF).[A1]
If Err.Number = 0 Then
MsgBox "existe déjà !"
Exit Sub
End If
Application.ScreenUpdating = False
Sheets.Add.Name = nomF
Sheets("Facture").Cells.Copy
Sheets(nomF).Select
Cells.PasteSpecial Paste:=xlValues
Cells.PasteSpecial Paste:=xlFormats
[A1].Select
Application.CutCopyMode = False
End Sub

AV