incrémenter des numéros de factures Fermé

Question

Bonjour,J'ai un problème avec Excel. Je travaille régulièrement sur des factures et j'aimerais incrémenter les numéros de factures automatiquement après chaque enregistrement (ancien numéro + 1). Comment faire ?Merci d'avance pour votre aide.

Erucia · Accepted Answer

Bonjour,ça me rappelle un exercice que j'avais fait à l'école, malheureusement c'est bien loin tout ça, je pencherais pour l'option faire du code en vba..à creuser..

gbinforme · Answer

bonjourje ne sais pas si tu as trouvé ta solution mais je te propose celle-ci :dans ta feuille,  tu nommes la cellule qui contient le numéro de facture : "no_facture" pour mon exemple mais tu peux choisir un autre nom.avec ALT + F11 tu ouvres VBA et dans thisworkbook tu copies cette macro :Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)    Range("no_facture").Value = Range("no_facture").Value + 1End Subà chaque fois que tu va sauver ton classeur, ton numéro de factureest automatiquement incrémenté.il me semble que c'était bien ce que tu voulais ?

must · Answer

hello,
franchement super ton vba !
est il possible de faire pareil pour incrément les onglets, exemple : j'ai un onglet qui s'appelle facture 1 en la copiant j'aimerais que l'onglet (nom de la feuille) s'incrémente automatiquement.
Merci d'avance,
must

gbinforme · Answer

bonjour

Pourrais-tu détailler un peu la procédure que tu utilises.

Si tu crées une nouvelle feuille il est possible de lui donner un nom particulier en VBA et éventuellement de copier une feuille.

Si tu fais une copie de feuille ce n'est pas un événement.

reponse · Answer

merci d'avance deme permettre de poser la question

gbinforme · Answer

bonjour

Ta codification est presque correcte et si tu changes cette ligne, cela devrait mieux te convenir.
    nFact = Num & "." & Format(Date, "dd.mm.yyyy")
En fait, pour obtenir le formatage du jour de facture, il faut que tu utilises la date du jour et non ton numéro car lui ne contient en aucune façon la date.

shoune34 · Answer

Bonjour, 
J'ai trouvé pour incrementer un n° auto pour chaque facture dans un nouveau classeur mais ils commencent par 1
Comment je pourrai faire pour incrementer un n° de facture commençant par 2000 en VBA

Merci beaucoup pour votre aide .

electra85 · Answer

en access 2007 j'ai fait Une table tblFacture qui  regroupe les factures établies par le service commercial.
• Les factures seront numérotées : FAYYMMXXX de telle sorte que pour chaque mois (MM) de
l'année (YY) un compteur (XXX) soit incrémenté à partir de 1 à chaque nouveau mois, la valeur du champ Indice redémarre à 1. La mise en forme du numéro de facture peut alors être obtenu à l'aide de l'expression suivante :

="FA" & Format([DateFacture];"yymm") & Format([Indice];"000")

mon code VBA est le suivant tt marche bien sauf que le résultat obtenu n'affiche pas l'année par exemple ds le mois 01 de l'année 2010 j'obtient "FAyy01001" pouvez me donner une rep!!! il est ou le prob.???

CODE EN VBA:

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim oRst As DAO.Recordset
If Me.NewRecord Then
Set oRst = CurrentDb.OpenRecordset( _
"SELECT Max(Indice) FROM tblFacture_ac2007 WHERE Format(DateFacture,""yymm"")=" & _
Chr(34) & Format(Me.DateFacture, "yymm") & Chr(34))
With oRst
If Not .EOF Then
Me![Indice].Value = Nz(.Fields(0).Value, 0) + 1
Else
Me![Indice].Value = 1
End If
.Close
End With
End If
End Sub

Incrémenter des numéros de factures

8 réponses

Discussions similaires