Incrémenter des numéros de factures

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

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 ?

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

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.

merci d'avance deme permettre de poser la question

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.

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 .

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