Numéro année sur Excel 2003

Résolu

DJAMALOS Messages postés 356 Date d'inscription Statut Membre Dernière intervention -
djamalos - 10 août 2008 à 21:08

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

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
  1. algoplus > djamalos
    
    Ben.....
    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
  2. algoplus > djamalos
    
    voila,
    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
  3. djamalos > algoplus
    
    merci pour votre aide (ca n'a pas marché)
    
    0
Réponse 2 / 2
algoplus

autre solution

mettre en A2 : ="/" & ANNEE(MAINTENANT())
0
1. eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention 7 281
  
  Bonjour,
  
  oulalaaaa non, maintenant() dépend de la date d'ouverture du fichier.
  Mieux vaut rester sur year(now())
  
  eric
  
  0

Numéro année sur Excel 2003

2 réponses

Discussions similaires

Newsletters