High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

Incrémenter des numéros de factures

Dernière réponse le 17 jui 2009 à 11:04:43 flobat, le 4 jui 2005 à 11:13:57 
 Signaler ce message aux modérateurs

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.

Meilleures réponses pour « incrémenter des numéros de factures » dans :
Voir ses factures Free VoirAllez ICI Entrez votre numéro de téléphone et votre mot de passe. Votre mot de passe se trouve sur le formulaire papier que vous avez reçu avec votre Freebox. Cliquez sur le lien "Mon abonnement" puis sur "Mes factures"
Opérateurs de téléphonie mobile et les numéros utiles VoirCoordonnées des opérateurs de téléphonie mobile et les numéros utiles Liste non exhaustive SFR Orange Bouygues Telecom Virgin Mobile Tele2 NRJ Mobile M6 Mobile Neuf Mobile Debitel Breizh Mobile Coriolis Fnac Mobile
[Logiciels] Numéro de série Trend Micro PC Cillin VoirPour effacer votre ancien de numéro de série et mettre le nouveau Allez dans la base de registre : Démarrer Exécuter Dans "Ouvrir", tapez REGEDIT OK Une fenètre va s'ouvrir, à gauche vous allez voir "Poste de travail", cliquez sur...
Posez votre question Répondre

1

Erucia, le 4 jui 2005 à 14:53:41

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.. **Tant va la cruche à l'eau, qu'à la fin elle se brise**
°°--|€ruci@|--°°

   
Répondre à Erucia

2

flobat, le 4 jui 2005 à 21:52:05

Merci quand même pour ta réponse.
Je suis de ton avis, je pense qu'il faut utiliser une macro VBA. J'ai fait un essai non concluant, mais je ne désespère pas.

   
Répondre à flobat

3

gbinforme, le 5 jui 2005 à 22:38:56

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 ?

toujours zen

   
Répondre à gbinforme

4

flobat, le 6 jui 2005 à 11:20:03

C'est génial, ça marche !!!

Je n'avais pas encore trouvé la solution, mais grâce à toi, c'est fait.
Merci beaucoup pour ton aide, c'est exactement ce que je voulais.

   
Répondre à flobat

8

Émilie, le 22 mai 2008 à 16:36:53

Bonjour, je suis désolée de m'interposer de la sorte dans la discussion mais j'ai trouvé presque'exactement ce que je voulais dans ton énoncé. Sauf que mon numéro de facture comporte au début 4 lettres, du genre ABEF20080001. Je devrais donc extraire les quatres derniers chiffres auxquels je devrais rajouter 1. Est-ce que tu peux m'aider. merci et bonne journée

   
Répondre à Émilie

9

gbinforme, le 22 mai 2008 à 20:22:09

Bonjour

Il suffit de mettre ce code et cela fonctionnera comme tu le souhaites. 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Range("no_facture").Value = Left(Range("no_facture").Value, 8) _
        & Format(Right(Range("no_facture").Value, 4) + 1, "0000")
End Sub

Toujours zen

   
Répondre à gbinforme

5

must, le 27 déc 2007 à 22:18:02

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

   
Répondre à must

6

gbinforme, le 27 déc 2007 à 23:17:59

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.


toujours zen

   
Répondre à gbinforme

10

KIKI53, le 1 mar 2009 à 11:44:13

Bonjour

J'ai un petit souci, la macro faite par un internaute via ce forum fonctionne mais lorsque je souhaite incrémenter un nouveau numéro en repartant sur une nouvelle facture à paritr de mon modèle et en appuyant sur le bouton "incrmenter numéro" il me déclanche un numéro suivant : 10.09.01.1900 sachant que je souhaite que ma numérotation commence toujours par le n°.j.m.a par exemple n° 51.2.03.09 et ainsi de suite en tenant bien compte du jour et du mois. Je pense qu'en principe excel peu tenir compte de jour en question même si il y a une ou plusieurs factures dans la même journée ou si nous changeons de journée, par exemple : 51.2.03.09 puis
52.2.03.09 par contre 53.3.03.09.

D'autre part j'ai créé un bouton "nouvelle facture" afin qu'en cliquant sur ce bouton j'arrive directement sur mon modèle.

Pouvez-vous m'aider car je bloque complètement, ci-joint le fichier excel : http://cjoint.com/?ddlSsqfOIh

Par avance je vous remercie.
KIKI53

   
Répondre à KIKI53

7

reponse, le 23 mar 2008 à 10:09:11

Merci d'avance deme permettre de poser la question

   
Répondre à reponse

11

gbinforme, le 1 mar 2009 à 15:55:47

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

   
Répondre à gbinforme

12

 shoune34, le 17 jui 2009 à 11:04:43

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 .

   
Répondre à shoune34
Posez votre question Répondre
Ils ont besoin de votre aide