incrémenter le n° de facture Excel Résolu

Question

Bonjour à tous, 

Pour commencer je voudrais vous souhaiter une excellente année 2008 qu'elle soit remplie de problèmes résolus!!!

Voilà, j'ai donc mon modèle de facture avec en cellule H8 mon numéro de facture dont voici le format :

mv/08/01000

mv étant les initiales, 08 l'année, 01 le mois, 000, le numéro de facture qui commencera biensur par 0001 et ensuite 002 .....

Je voudrais donc que le numéro de facture s'incrémente de 1 et que le mois s'incrémente  aussi de 1 à chaque changement de mois (attention, je fais plusieurs factures le meme mois donc il faut qu'il incrémente le mois lorsque nous sommes le mois suivant uniquement)

Ce qui voudrait dire qu'au mois de mars je pourrais très bien avoir ce genre de n°:

mv/08/03015

Ce qui serait génial c'est que cette macro fonction a chaque copie de feuille il faut savoir que j'ai déjà une macro qui tourne sur cette facture et qui en gros : fait une copie de ma facture modèle, la renomme, et efface certaine zone de la facture modèle (mais pas le numéro de facture )voici le code si cela peut vous etre utilie :

 Sub copie_facture()
'
' copie_facture Macro
' copie renome efface facture modèle
'
' Keyboard Shortcut: Ctrl+j
'
    Sheets("Facture_Modele").Copy Before:=Sheets(3)
    Selection.Copy
    Sheets("Facture_Modele (2)").Select
    Sheets("Facture_Modele (2)").Name = "00000000000"
    Sheets("Facture_Modele").Select
    Range("B11:B16").Select   ======> plage de cellule ou se trouve le nom du client
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("H7").Select         ====> ca c'est la cellule de la date
    Selection.ClearContents
    Range("detail").Select    =====> c'est la plage de cellule que j'ai nommée "détail" (le corps de la facture ou se trouvent les prestations)
    Selection.ClearContents
    
End Sub

D'avance je vous remercie 
E

gbinforme · Answer

bonjour

Si j'ai bien compris ton désir je te propose de modifier ta macro ainsi :
 Sub copie_facture()
'
' copie_facture Macro
' copie renome efface facture modèle
'
' Keyboard Shortcut: Ctrl+j
'
Sheets("Facture_Modele").Copy Before:=Sheets(3)
ActiveSheet.Name = Replace(Range("H8").Value, "/", "-")     ' le nom de l'onglet n'accepte pas /
Sheets("Facture_Modele").Select
Range("B11:B16").ClearContents
Range("H7").ClearContents
Range("detail").ClearContents
If Val(Mid(Range("H8").Value, 7, 2)) = Month(Date) Then
    Range("H8").Value = Left(Range("H8").Value, 8) _
        & Format(Val(Right(Range("H8").Value, 3)) + 1, "000")   'même mois facture +1
Else
    Range("H8").Value = Left(Range("H8").Value, 6) _
        & Format(Month(Date), "00") & Format(1, "000")   ' mois différent facture 1
End If
End Sub
Pour effacer une zone il est inutile de la sélectionner.
Ton onglet de copie est nommé du N° de facture en remplaçant "/" par "-"

Si tu factures beaucoup, ce que je te souhaite, ton classeur va rapidement prendre une taille importante.

ella12 · Answer

Merci beaucoup, 

C'est génial!!!!
Juste une chose lorsque le mois change, l'incrémentation des 3 derniers nombre de la facture doit absolument continuer

par exemple au mois d'avril il est possible que j'ai ce n° de facture

mv/08/04013

Un tout grand merci 
E

gbinforme · Answer

bonjour

Si tu n'espère pas faire plus de 999 factures, alors :
  
Else
    Range("H8").Value = Left(Range("H8").Value, 6) _
        & Format(Month(Date), "00") & Format(Val(Right(Range("H8").Value, 3)) + 1, "000")   ' mois différent facture + 1

ella12 · Answer

Merci beaucoup.  Ca fonctionne très bien
Normalement je devrais avoir en fin d'année entre 25 et max 40 factures. Je travaille plusieurs jours par mois pour le meme  clients et donc j'ai en général 2 à 3 factures par mois 

Un tout grand merci encore
E

pomponette64 · Answer

Bonjour,

J'ai lu ton post et je suis très interessée par ta macro, c'est tout a fait ce que je recherche mais je n'arrive pas à la réaliser, il faut dire que je n'y connait rien en VBA, mais rien de rien. Si quelqu'un pouvait m'envoyer une feuille avec la macro, ce serai formidable.
Merci
A tous, EXCELlente journée.

Thy · Answer

bonjour, 

Je voudrais que excel garde une copie de ma facture 110101 (année:11, mois 01 et numéro:01) et un fichiser dans lequel les infos constituants la facture (date, prix HTVA, nom, adresse client, ...) et que quand je l ouvre il crée de suite un nouveau numéro et enregistre les anciennes dnnées.
Est-ce possible?

chibronator · Answer

Bonjour,

En partant de cette discussion, je me suis permis d'utiliser le script proposé par gbinforme que je remercie et de le modifier en fonction de ce que je voulais obtenir, à savoir exécuter la macro sur le modèle que j'ai enregistré. Je souhaite que le numéro de facture apparaisse en cellule B4, mais que les numéros de factures se suivent sur l'année et reparte à zéro l'année suivante. et non chaque mois.
La macro sera adaptée à chaque client.
Le problème qui se passe est que le numéro n'évolue pas lorsque je rouvre le document., ce qui est un souci, car cela créée des factures différentes avec le même numéro.
Auriez vous une solution à m'apporter.
Merci par avance de votre aide.

Voici le script modifié pour ma facture

Sub Numéro_Facture()
'
'
'
'
'
Range("E18:E30").ClearContents

If Val(Mid(Range("B4").Value, 7, 2)) = Year(Date) Then
    Range("B4").Value = "DGB-"
    Range("B4").Value = Left(Range("B4").Value, 8) _
        & Format(Val(Right(Range("B4").Value, 3)) + 1, "000")   'même mois facture +1

Else
    Range("B4").Value = "DGB-"
    Range("B4").Value = Left(Range("B4").Value, 6) _
        & Format(Year(Date), "00") & Format(1, "000")   ' année différente facture 1
End If
End Sub

Incrémenter le n° de facture Excel

7 réponses

Discussions similaires

Newsletters