[EXCEL] Numérotation automatique factures

Résolu/Fermé

POSEIDON -

Bonjour,

Je saisie mes factures sur excel, mais je suis obligée de leur attribuer manuellement un nouveau numéro chaque fois.
Est-il possible d'avoir une numérotation automatique ?

Je n'ai pas le niveau pour faire des macros et j'espère une solution à ma portée pour ce problème.

Configuration: PC XP

Afficher la suite

A voir également

Numérotation automatique excel
Comment automatiser une facture sur excel - Meilleures réponses
Generer un numero de facture automatique sur excel - Meilleures réponses
Word excel gratuit - Guide
Trier tableau excel - Guide
Réponse automatique thunderbird - Guide
Supprimer liste déroulante excel - Guide
Déplacer colonne excel - Guide

9 réponses

Réponse 1 / 9 - Meilleure réponse
La meilleure réponse est la réponse qui a été validée par nos équipes.
G.David
Je n'ai pas le niveau pour faire des macros et j'espère une solution à ma portée pour ce problème.

ben tu vas le prendre
tu vas dans outil
macros
nouvelle macro

tu reponds aux question de la boite de dialogue
pour le nom tu tapes: numero
ou ce que tu veut mais qui soit clair pour toi

cliques sur une cellule et arrete l'enregistrement

outil
macros
macros
dans la liste tu as numero
tu la selectionne et tu cliques sur modifier

tu doit avoir a l'ecran un truc de ce genre
sub numero()

range("Xn").select

end sub

ça c'est ta premiere macro
on va l'ettoffer

tu rajoutes sous sub numero()
dim num as integer
(c'est pas obligatoire mais c'est une bonne habitude)

en dessous de range("Xn").select
num=range("Xn").value
num= num+1
range("Xn").value=num

ce qui mathematiquement est une heresie
mais en français cela donne
la valeur num est entiere
tu te places en Xn (ha ouais ça c'est ta cellule de numero de facture)
num prends la valeur de cette cellule
num s'incremente de 1
la cellule prends la valeur num

tu insere un bouton dans ta feuille
b(barre d'outil formulaire)
et tu lui accoles cette macro
a chaque appui sur le bouton ta cellule montera d'un numero
bon integer te limite à 32000 factures pour en mettre plus il faudra changer integer par double

Cordialement
G.David

40
1. cricri
  
  bonjour
  
  j'ai besoin de votre aide je suis vraiment nul j'arrive pas a appliqué votre méthode pour inserer un unméro de facture automatique en celule b2
  
  pouvez-vous m'aider svp
  
  et me retourner par email le déroulement total des manip a faire car une fois que j ai tout noté je ne comprend pas comment retourné en célule comme vous le dite XN QUI POUR MOI DOIT ETRE B2
  
  SOS
  
  MERCI DE VOTRE REPONSE
  
  0
2. G.David
  
  @cricriJ'aurais du mal à être pus explicite passe moi ton adresse sur ma boite je vais essayer un cours particulier
  
  0
3. pco1202
  
  Merci a Toi, pour ta soluce, je reconnais que j'avais un doute sur ma petite personne en numérotation auto, j'avais pris ce chemin réellement réussir...
  Par contre, un question a poser sur un autre sujet, concernant une gestion de stock...
  en fait je cherche un moyen d'avoir un historique de mon stock.
  c'est a dire :
  un onglet facture, un onglet stock pour faire court
  dans l'onglet Facture, je sors un produit (ex : paquet de spaghetti...), donc je retire 1 paquet dans mon stock en cours, cela est résolu par une routine Vb et formule excel somme.si...
  mais et c'est la qu'il y a deux hic...
  1) la vitesse, en effet ayant environ 11 000 références en stock, Excel fais un calcul de somme.si de chaque item de mon stock prenant du temps.
  2) je fais un point journalier de ma facturation (RAS..), et mon stock, c'est a dire que j'imprime mes sorties de stocks de la journée et je fais un reset, toujours par routine VB et la mon stock n'est plus juste en effet quand on a une formule entrée - sortie cela est égale au stock en cours, mais quand la sortie est égal à ZÉRO, après le reset de la journée, il reprends le stock antécédent...
  la question est
  1) existe t'il une routine VB permettant de remplacer "somme.si" ?
  2) comment geler mon stock journalier de façon journalière ? afin que celui ci colle au stock physique...
  Si cela n'est pas assez clair, dis le moi...
  @ plus
  pco1202
  
  0
4. G.David
  
  @pco1202Il y a toujours une solution mais... Excel n'est pas un gestionnaire de base de données il y a un bon conseil du coté d'open office cette suite intègre un système de BD (mais ce n'est pas tellement ma partie ) en plus comme tout OOo est gratuit tu peut tester sans regretter ton achat (un petit conseil si tu n'arrives pas à monter la dernière mouture commence avec des versions plus anciennes ; perso j'ai du monter la 1.5 avant que la deuze accepte de s'installer pas su pourquoi)
  
  0
5. Christian
  
  @pco1202Hello, juste pour te dire que mon programme fait tout ce que tu demandes et bien plus de façon simple et rapide. Il coûte seulement Euros 70. A disposition pour toute question. Voici le site: www.christian-roux.ch/excelgestion
  
  0
Réponse 2 / 9
Mordrick
Voilà une macro qui permet d'incrémenter (par exemple) un numéro de facture. Dans cette macro, le numéro s'affiche dans la cellule "A1", à toi de mettre la cellule de référence qui t'intéresse ^^

Sub Incrémenter_Facture()

Dim num As Integer
Range("A1").Select
num = Range("A1").Value
num = num + 1
Range("A1").Value = num

End Sub

Tu veux aussi rajouter ces lignes à la fin d'une macro imprimer, comme ça, chaque fois que tu imprimeras ta facture, la suivante sera incrémentée automatiquement :

Sub IMPRIMER()

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Dim num As Integer
Range("A1").Select
num = Range("A1").Value
num = num + 1
Range("A1").Value = num

End Sub

8
1. kissif
  
  Bonjour
  
  je voudrais (sous excel 2000) inserrer une numérotation automatique (cellule A1)
  
  -1-pour chaque impression le numéro augmente +1
  -2-si pas d'impression le numéro n'est pas incrementé
  -3-je voudrai pouvoir automatiser aussi une serie (par exemple) de 10 impressions) dans laquelle bien sûre la numérotation augmente +1 à chaque impression d'1 expemplaire.
  
  -------
  cette macro devrait résoudre les points 1 & 2 mais je n'ai pas de solution pour le point 3
  
  Sub IMPRIMER()
  
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
  Dim num As Integer
  Range("A1").Select
  num = Range("A1").Value
  num = num + 1
  Range("A1").Value = num
  
  End Sub
  
  merciiiiiiiiiiiiiiiiiiiiiiiiiiiii de votre aide ^^
  
  0
2. Utilisateur anonyme
  
  @kissif
  Sub IMPRIMER() Dim NbImpression As Interger, num As Long, strTest As String strTest = InputBox("Nombre de copies à imprimer", , "1") NbImpression = IIf(IsNumeric(strTest), CInt(strTest), 1) ActiveWindow.SelectedSheets.PrintOut Copies:=NbImpression, Collate:=True strTest = Range("A1").Value If IsNumeric(strTest) Then num = CLng(strTest) num = num + 1 Range("A1").Value = num End Sub
  
  0
3. dokayun
  
  Bonjour j ai essayer votre formule pour incrémenter les n ° de facture et tou fonctionne ! (apres des h de recherches !!!) mais ce que je n arrive pas a faire, c'est enregistrer ma facture et revenir a mon modèle vierge avec le dernier n° créer. est ce possible? ou bien a chaque nouvelle ouverture du document, créer automatiquement un nouveau n°.
  
  merci de votre aide
  
  0
4. G.David
  
  @dokayunJe ne comprends ps le truc : tu veux faire une facture puis en faire une autre au même numéro ou juste pouvoir ressortir un facture déjà faite?
  
  0
5. christelle1563
  
  @G.DavidBonsoir,
  
  merci pour ta réponse, est il possible que tu m 'envois un mail que je puisse t envoyer la trame de ce que j'ai fais pour pouvoir t'expliquer ce qui me pose problème?
  
  0
Réponse 3 / 9
G.David
regardes ci ceci te convient
http://www.cijoint.fr/cjlink.php?file=cj200903/cij9dblxPP.xls

4
Réponse 4 / 9
G.David
il faudrait que j'ai ton adresse mail .comme tu es anonyme sur le forum tu n'as pas de BAL CCM . par contre tu peuit me communiquer la tienne par ma BAL : tu cliques sur mon pseudo puis dans le profil sur lui écrire un message . Le reste c'est du 100% messagerie

2
1. Radon KAPITA
  
  Bonjour G.David je suis très ravis de vos réponse, je suis débutant en programmation et j'aimerais avoir des cours en format pdf si c'est possible. voici ma boite: fbradon@hotmail.com.
  Codiallement Radon KAPITA
  
  0
Vous n’avez pas trouvé la réponse que vous recherchez ?

La communauté CCM répond en moyenne en moins de 2h.

Posez votre question
Réponse 5 / 9
christine
G David bravo première fois que j'arrive à incrémenter. tu as su bien expliquer, il manquait un peu d'explication pour le "Xn" mais bon j'y suis arrivée. Sur les forums souvent vous imaginez pas que nous sommes des débutants et ça manque un peu de détail qui vous paraisse très stupide à vous.
merci bcp et bravo encore
christine

2
Réponse 6 / 9
antic80 Contributeur
ben sans les macros tu va pas pouvoir

1
Réponse 7 / 9
Christian
Bonjour, voici ce que je peux vous proposer, mon logiciel de facturation et gestion de stock sur Excel. Il peut "incrémenter" le numéro de vos factures. Et bien plus...
www.christian-roux.ch/excelgestion
Bien cordialement.

1
1. Keep smiling
  
  Tu as mentionné que tu avais un programme excel qui faisait la numérotaiton automatique, peux-tu m'aider, je cherche a faire la meme chose soit la numérotaiton automatique avec excel a toute les fois que je ferai imprimer, il irait générer un autre numéro ? ?
  
  0
2. pco1202
  
  Salut,
  je suis intéressé pour voir cela, tu as une version demo ?
  
  0
Réponse 8 / 9
sherred
et sur open office ca fonctionne comment?

1
Réponse 9 / 9
Utilisateur anonyme
EasyFactures est un logiciel gratuit sur Excel pour faire les Devis et Factures.

1
1. KIKI53
  
  Bonjour
  
  Pourriez-vous m'aider, je bloque complètement, je n'arrive pas à créer un nouveau bouton avec une marco permettant à chaque fois de repartir sur une feuille (nouvelle facture) c'est-à-dire, avec ma feuille identique que j'ai à l'écran, autrement dit le bon de facturation doit être vierge et en tenant compte de la numérotation automatique de cette nouvelle facture et par conséquent il ne me reste plus qu'à saisir sur les lignes.
  
  Pour info le bouton "nouvelle facture" doit être mis en cellule M4
  
  Ci-joint le fichier excel : http://www.cijoint.fr/cjlink.php?file=cj200903/cijAIWlEt3.xls
  
  Dans l'attente, je vous remercie.
  KIKI53
  
  0
2. G.David
  
  @KIKI53sur ton fichier
  affecte au bouton nouvelle facture
  Sub Bouton49_QuandClic() Range("a10:l30").clearconteents range("a1").value=range("a1").value+1 End Sub
  
  ceci videra la zone de saisie
  est incrémenrteras le n° de facture
  tu peut si ton n° de facture imprimé est en K le recréer avec
  = concatener(a1;texte(aujourdhhui();" mm.jj.aaa")
  
  (ceci à l'aperçu du format ) la formule inscrite dans la ,cellule
  par contre il te faudra supprimer la commande dans workbook open
  
  0
3. KIKI53
  
  @G.DavidMerci d'avoir répondu mais je n'arrive toujours pas à faire fonctionner le bouton "nouvelle facture" afin de repartir sur un nouveau bon identique à celui que j'ai à l'écran.
  
  Pouvez-vous m'aider ci-joint le lien où se trouve le fichier excel : http://www.cijoint.fr/cjlink.php?file=cj200903/cijiPicup7.xls
  
  D'avance merci beaucoup
  KIKI53
  
  0
4. Chris
  
  @G.DavidBonjour,
  
  Serait il possible que tu me donnes un coup de pouce pour la mise en place d'une facturation automatique?
  
  0
5. G.David
  
  @ChrisQuel est le problème que tu rencontres?
  
  0

[EXCEL] Numérotation automatique factures

9 réponses

Discussions similaires

Newsletters