Numérotation automatique facture

Y compris Power BI, Power Query et toute autre question en lien avec Excel
j
jeux-theme
Nouveau venu
Nouveau venu
Messages : 1
Inscrit le : 27 novembre 2013
Version d'Excel : 2007

Message par jeux-theme » 27 novembre 2013, 08:45

Bonjour ici :)

Pouvez vous m'indiquer comment je peux automatiser la numérotation de mes factures ?

Mon numéro de facture se trouve en D13, il est au format 001-2014 (année comptable, changement au 1er octobre).

Je possède office 2007.

Merci beaucoup pour vos réponses.

Anne-Lise
Facture.xlsm
(13 Kio) Téléchargé 152 fois
A
Atro
Membre fidèle
Membre fidèle
Messages : 294
Appréciations reçues : 2
Inscrit le : 15 octobre 2013
Version d'Excel : 2010 FR

Message par Atro » 27 novembre 2013, 11:17

Bonjour
Etant dans la compta je comprend le problème ;) Cependant à moins de générer une suite de chiffre aléatoire pour compléter cette facture, il ne peut pas y avoir de 1° facture au n°1, 2° facture avec le n°2 et ainsi de suite si celles-ci ne sont pas enregistrées sur le même fichier excel.

Pour cela il vous faudrait un modèle de facture vierge, vous la remplissez et par application sur un bouton ça lui donne un numéro, ça vous l'archive dans les onglets suivants et ça vous remet le modèle de facture vierge.

Il y a peut être une autre solution si c'est le cas je ne la connais pas et il faut demander aux pros excel.



Je ne sais pas si je suis assez clair prévenez moi si ce n'est pas le cas



Atro
Autodidacte.... je m'en sors pas mal mais les boucles... ça ne veut pas rentrer :oops:
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'383
Appréciations reçues : 670
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 27 novembre 2013, 12:55

Bonjour,
Bonjour Atro,
Une solution avec un fichier modèle de facture vierge (enregistré sous xltm) avec ces 2 codes dans ThisWorkbook:
Option Explicit
' http://frederic.sigonneau.free.fr/
' Classeurs, modèles, macros complémentaires, scripts
Private Sub Workbook_Open()
    If ActiveWorkbook.Path = "" Then
        [NumFact] = [NumFact] + 1
        ActiveWorkbook.Saved = True
        ActiveWorkbook.SaveCopyAs _
            Application.TemplatesPath & "NumAuto.xltm"
    End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim chemXlt As String
    chemXlt = Application.TemplatesPath & "NumAuto.xltm"
    If ActiveWorkbook.Path = "" Then
        Workbooks.Open (chemXlt)
        [NumFact] = [NumFact] - 1
        ActiveWorkbook.Close True
    End If
End Sub
Tu ouvres le fichier et tu l'enregistres sous le format xltm.
A te relire.
NumAuto.xlsm
(14.86 Kio) Téléchargé 292 fois
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
A
Atro
Membre fidèle
Membre fidèle
Messages : 294
Appréciations reçues : 2
Inscrit le : 15 octobre 2013
Version d'Excel : 2010 FR

Message par Atro » 27 novembre 2013, 16:28

C'est énorme je connaissais pas ce système j'en avais cherché un ya deux ans. Merci pour l'info
Autodidacte.... je m'en sors pas mal mais les boucles... ça ne veut pas rentrer :oops:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Numérotation de facture
    par djodjo » 21 mai 2016, 14:05 » dans Excel - VBA
    2 Réponses
    146 Vues
    Dernier message par djodjo
    21 mai 2016, 21:38
  • Numérotation automatique
    par cagouille65 » 19 août 2014, 22:26 » dans Excel - VBA
    7 Réponses
    434 Vues
    Dernier message par cagouille65
    20 août 2014, 23:07
  • Numérotation automatique
    par kira972j » 22 avril 2014, 20:57 » dans Excel - VBA
    8 Réponses
    432 Vues
    Dernier message par kira972j
    24 avril 2014, 13:01
  • Numérotation automatique
    par DD1009 » 6 juin 2018, 09:43 » dans Excel - VBA
    2 Réponses
    206 Vues
    Dernier message par DD1009
    6 juin 2018, 11:22
  • Numérotation automatique
    par Vincent71 » 17 avril 2018, 10:48 » dans Excel - VBA
    4 Réponses
    217 Vues
    Dernier message par Vincent71
    17 avril 2018, 13:19
  • Numérotation automatique
    par Fat » 21 avril 2019, 21:29 » dans Excel - VBA
    9 Réponses
    203 Vues
    Dernier message par Fat
    22 avril 2019, 13:46