Numéro année sur Excel 2003

Résolu

DJAMALOS -

Bonjour,
Quelqun peut m'aider j'ai créer un vba sur ma facture (insertion de numéro de facture automatique, a chaque ouverture de feuille) jusqu'a la pas de probleme, esque c'est possible d'ajouter l'année (par exemple 001/2008, 002/2008 avec un vba exel 2003 merci pour votre aide

--
BRAVO POUR LA REPONSE

Configuration: Windows XP
Internet Explorer 7.0

Afficher la suite

2 réponses

Réponse 1 / 2
algoplus
autre solution

mettre en A2 : ="/" & ANNEE(MAINTENANT())

0
1. eriiic Contributeur
  
  Bonjour,
  
  oulalaaaa non, maintenant() dépend de la date d'ouverture du fichier.
  Mieux vaut rester sur year(now())
  
  eric
  
  0
Réponse 2 / 2
algoplus
bonjour
dans la definition de ton numéro tu peux rajouter: & "/" & year(now) qui rajoutera l'année de la date du jour

numero=génération du numero tel qu'il existe actuellement & "/" & year(now)

attention aux changement d'années, avec saisie de facture de l'année précédente

0
1. djamalos
  
  ou dois-je mettre la réponse & "/" & year(now) voici mon vba
  private Sub Workbook_Open()
  dim Numfacture as long
  Numfacture = sheets(1).range("a1").value
  Numfacture = Numfacture + 1
  sheets(1).range("a1").falue = Numfacture
  End Sub
  
  0
2. algoplus
  
  @djamalosBen.....
  on aurait pu le placer comme ça:
  sheets(1).range("a1").value = Numfacture & "/" & year(now)
  
  mais comme on récupère le numéro précédent en A1 pour l'incrémenter de 1, cette methode ne marchera pas puisqu'on essaira de faire par exemple :214/2008 +1.
  j'y réfléchis
  
  0
3. algoplus
  
  @djamalosvoila,
  on prend à partir de la gauche le nombre de caractère [ nombre caractère de A1 -5(nombre de caractères de "/2008")] de A1 constituant le numéro proprement dit
  on incrémentee de 1
  on rajoute "/2008"
  
  Numfacture = Left(Sheets(1).Range("A1").Value, Len(Sheets(1).Range("A1")) - 5)
  Numfacture = Numfacture + 1
  Sheets(1).Range("A1").Value = Numfacture & "/" & Year(Now)
  
  plusieurs remarques:
  Il faut que A1 soit au format texte
  il faut rajouter manuellement (ou par code) "/2008" au numéro de facture qui sera incrémenté avant utilisation
  Cette formule ne marche que jusqu'au 31/12/9999
  
  0
4. djamalos
  
  @algoplusmerci pour votre aide (ca n'a pas marché)
  
  0

Numéro année sur Excel 2003

2 réponses

Discussions similaires

Newsletters