Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Formule n° facture

Formule n° facture

3 réponses
Avatar
CL
Bonjour à tous et toutes,

Je souhaiterais pouvoir à partir d'une matrice de facture, devis, ...etc
pourvoir insérer un n° de facture qui à chaque ouverture de la matrice
prenne +1.

Ex: une première ouverture me donnerais le n° 0603.001 (pour 1ère facture de
l'an 2006, du mois de mars)
une deuxième ouverture donnerais le n° 0603.002 (pour 2ème facture de l'an
2006, du mois de mars)
et ainsi de suite
une n-ième ouverture donnerais le n° 0604.00n-ième (pour n-ième facture de
l'an 2006, du mois d'avril)

Pouvez-vous m'aider,
Par avance merci
CL
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Va voir chez Misange dans la recherche tu tapes numero, il y a un classeur
exemple à télécharger
http://www.excelabo.net/moteurs/recherche.php

Cordialement
Pascal

"CL" a écrit dans le message de news:
%
Bonjour à tous et toutes,

Je souhaiterais pouvoir à partir d'une matrice de facture, devis, ...etc
pourvoir insérer un n° de facture qui à chaque ouverture de la matrice
prenne +1.

Ex: une première ouverture me donnerais le n° 0603.001 (pour 1ère facture
de l'an 2006, du mois de mars)
une deuxième ouverture donnerais le n° 0603.002 (pour 2ème facture de l'an
2006, du mois de mars)
et ainsi de suite
une n-ième ouverture donnerais le n° 0604.00n-ième (pour n-ième facture de
l'an 2006, du mois d'avril)

Pouvez-vous m'aider,
Par avance merci
CL






Avatar
JB
Bonjour,

http://cjoint.com/?eoqwCZlgJk

-Le compteur se trouve dans un onglet Compteur: 2006.04.007

-La macro affecte un numéro à la sauvegarde et incrémente le
compteur de 1
-Le compteur est remis à 1 chaque mois
-Le classeur est enregistré avec le nom Facturexxxx
-Le bouton est caché après exécution pour que la macro ne puisse pas
être exécutée 2 fois

Private Sub b_sauve_Click()
compteur = Sheets("compteur").Range("a1")
If Val(Mid(compteur, 6, 2)) = Month(Date) Then
Sheets("compteur").Range("a1") = Left(compteur, 8) &
Format(Val(Right(compteur, 3)) + 1, "000")
Else
Sheets("compteur").Range("a1") = Left(compteur, 5) &
Format(Month(Date), "00.") & "001"
End If
ActiveWorkbook.Save ' sauvegarde modèle
Me.b_sauve.Visible = False
Range("E1") = Sheets("compteur").Range("a1")
ActiveWorkbook.SaveAs Filename:="Facture" &
Sheets("compteur").Range("a1")
End Sub

Cordialement JB
Avatar
CL
Vos réponses me conviennent parfaitement, merci pour votre aide, et à
bientôt

CL

"JB" a écrit dans le message de news:

Bonjour,

http://cjoint.com/?eoqwCZlgJk

-Le compteur se trouve dans un onglet Compteur: 2006.04.007

-La macro affecte un numéro à la sauvegarde et incrémente le
compteur de 1
-Le compteur est remis à 1 chaque mois
-Le classeur est enregistré avec le nom Facturexxxx
-Le bouton est caché après exécution pour que la macro ne puisse pas
être exécutée 2 fois

Private Sub b_sauve_Click()
compteur = Sheets("compteur").Range("a1")
If Val(Mid(compteur, 6, 2)) = Month(Date) Then
Sheets("compteur").Range("a1") = Left(compteur, 8) &
Format(Val(Right(compteur, 3)) + 1, "000")
Else
Sheets("compteur").Range("a1") = Left(compteur, 5) &
Format(Month(Date), "00.") & "001"
End If
ActiveWorkbook.Save ' sauvegarde modèle
Me.b_sauve.Visible = False
Range("E1") = Sheets("compteur").Range("a1")
ActiveWorkbook.SaveAs Filename:="Facture" &
Sheets("compteur").Range("a1")
End Sub

Cordialement JB