Numérotation automatique
#1
Débutant XLPages

Inscription: 23/05/2008

Messages: 3

Système d'exploitation:
PC
Version Excel utilisée:
2002
Posté le : 23-05-2008 14h56
Bonjour,

Je fais les factures de mon mari sous excel, quand j'étais sous excel 97 j'avais fait une macro qui me permettait la numérotation automatique, mais hélas elle ne fonctionne pas avec excel 2002 et 2007.
Pouvez vous m'aider à modifier ou à créer une nouvelle macro ?
merci par avance.

Lunécume
Hors Ligne
Rapport   Haut 

Re: Numérotation automatique
#2
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 23-05-2008 16h47
Bonjour à tous,

Dans le ThisWorkBook et dans le code évènementiel de ton choix (je pense que _BeforePrint est le plus judicieux :


Image redimensionnée

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1").Value Range("A1").Value 1
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cells(11).Value Cells(11).Value 1
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
[
A1].Value = [A1].Value 1
End Sub


Attention un des trois codes, suivant tes habitudes de codages ou celui qui te "parle" le plus

Ici on suppose que la numérotation est en A1.

Au plaisir de te lire
A+ à tous

PS : Merci de bien vouloir compléter ton Profil en indiquant la Plate Forme et ta version Office


Cordialement
Hors Ligne
Rapport   Haut 

Re: Numérotation automatique
#3
Débutant XLPages

Inscription: 23/05/2008

Messages: 3

Système d'exploitation:
PC
Version Excel utilisée:
2002
Posté le : 23-05-2008 17h15
Merci beaucoup pour la rapidité de ta réponse, c'est super sympa.

j'ai essayé cela marche pas, cela me numérote les classeurs.
pour plus d'information j'ai crée un modéle de facture, et c'est la cellule I6 que je numérote.
voila la macro qui fonctionne avec excel 97 mais pas avec excel 2007
_____________________________________________________________________
Private Sub Workbook_Open()
If ActiveWorkbook.Path = "" Then
[numFact] = [numFact] + 1
ActiveWorkbook.Saved = True
ActiveWorkbook.SaveCopyAs (Application.TemplatesPath & "Fact.xlt")
End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
chemXlt = Application.TemplatesPath & "Fact.xlt"
If ActiveWorkbook.Path = "" Then
Set wbk = Workbooks.Open(chemXlt)
With wbk.ActiveSheet
.Range("NumFact") = .Range("NumFact") - 1
End With
wbk.Close True
End If
End Sub
___________________________________________________________________
En sachant que fact.xlt est mon modéle de facture.

Encore merci Lunécume
Hors Ligne
Rapport   Haut 

Re: Numérotation automatique
#4
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 23-05-2008 17h38
Re,

Dans le _Open, tu mets [numFact] = [numFact] + 1

Dans le _BeforeClose, tu mets .Range("NumFact") = .Range("NumFact") - 1

Ton .Range("NumFact") se retrouve au même incrément qu'a l'ouverture du fichier...

Enfin si j'ai bien compris ton code.

A+

PS : Merci pour la mise à jour de ton Profil


Cordialement
Hors Ligne
Rapport   Haut 

Re: Numérotation automatique
#5
Débutant XLPages

Inscription: 20/08/2007

Messages: 6

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 24-05-2008 00h37
Bonsoir,Citation :
quand j'étais sous excel 97 j'avais fait une macro qui me permettait la numérotation automatique, mais hélas elle ne fonctionne pas avec excel 2002 et 2007.
Pourrais tu expliciter ce qui ne fonctionne plus ?
Car ton code, au détail près de ce qu'indique JCGL, tourne...

Cordialement
Hors Ligne
Rapport   Haut 

Re: Numérotation automatique
#6
Débutant XLPages

Inscription: 23/01/2018
De GABON

Messages: 1

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 23-01 16h12

Bonjour, je ne suis pas très calé en excel mais j'aimerai incrémenter un numéro de facture sur excel. La forme que j'aimerai avoir est la suivante: numéro/date du jour/client . (Ex: FA001/23012018/SIAT) . Pourriez-vous m'aider s'il vous plait?

 

Merci d'avance

 

Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes