format dans une formule

[bientot50]

Bonjour tout le monde

Une fois de plus, je fais encore appel à vous pour pouvoir avancer.J'ai une formule dans une cellule :
=ANNEE(maintenant())&MOIS(maintenant())&001
ce qui me donne à l'affichage :
200811

je voudrais avoir en réalité
200801001 ------ annéemois001
c'est à dire le mois sur 2 chiffres et mon premier numéro de facture concernant ce mois sur 3 chiffres.

Je me sers de cette cellule pour incrementer un numero de facture a chaque ouverture du modèle par une macro que j'ai trouvé sur mon site favori bien sur.

Private Sub Workbook_Open()
If ActiveWorkbook.Path = "" Then
[numFact] = [numFact] + 1
ActiveWorkbook.Saved = True
ActiveWorkbook.SaveCopyAs(Application.TemplatesPath & "Fact.xls")
End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
chemXls = Application.TemplatesPath & "Fact.xls"
If ActiveWorkbook.Path = "" Then
Set wbk = Workbooks.Open(chemXls)
With wbk.ActiveSheet
.Range("NumFact") = .Range("NumFact") - 1
End With
wbk.Close True
End If
End Sub


Avec tous mes remerciements.
Alain

 

[Tibo]

Re : format dans une formule

Bonjour,

Pour la formule, tu peux essayer ceci :

=ANNEE(MAINTENANT())&TEXTE(MOIS(MAINTENANT());"00")&001

@+

 

[bientot50]

Re : format dans une formule

Merci Tibo, mais ca ne me prend pas les zeros.
J'ai fait autrement en mettant par exemple 2008md (qui représente l'année) dans une cellule et 0001(le numero dans une autre contigue en format 0000 et la à l'affichage ca peut aller.

Merci encore de ta disponibilité, merci à ce forum si précieux pour beaucoup de monde.
Alain

 

[Tibo]

Re : format dans une formule

re,

Sous réserve d'avoir compris, on pourvait appliquer aussi la fonction TEXTE pour l'année :

=TEXTE(ANNEE(MAINTENANT());"00")&TEXTE(MOIS(MAINTENANT());"00" )&001

Tout ça sans trop savoir si ça correspond à ce que tu veux.

Bonne journée

@+

 

[npas]

Re : format dans une formule

Bonjour,

Pour l'avoir au format texte, essaie la formule suivante :

=TEXTE(AUJOURDHUI();"aaaamm")&TEXTE(Numero de la facture;"000"))

Explication du TEXTE(AUJOURDHUI();"aaaamm") : ecrire la date avec l'année sur 4 chiffres (code aaaa) et le mois sur 2 chiffres (code mm).

Pour l'avoir au format numérique; 2 solutions :

- soit
=CNUM(TEXTE(AUJOURDHUI();"aaaamm")&TEXTE(Numero de la facture;"000")))

- soit
=ANNEE(AUJOURDHUI())*100000+MOIS(AUJOURDHUI())*1000+Numero de la facture

Espérant avoir répondu à ta question, bonne journée