Numéro année sur Excel 2003
Résolu
DJAMALOS
Messages postés
332
Date d'inscription
Statut
Membre
Dernière intervention
-
djamalos -
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
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
A voir également:
- Numéro année sur Excel 2003
- Numero prive - Guide
- Liste déroulante excel - Guide
- Numéro père noël whatsapp - Accueil - Messagerie instantanée
- Word et excel gratuit - Guide
- Comment trier par ordre alphabétique sur excel - Guide
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
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
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