Incrémenter un N° de dossier avec lettre, chiffre et année [Résolu/Fermé]

Signaler
Messages postés
4
Date d'inscription
lundi 22 avril 2013
Statut
Membre
Dernière intervention
25 avril 2013
-
Messages postés
4
Date d'inscription
lundi 22 avril 2013
Statut
Membre
Dernière intervention
25 avril 2013
-
Bonjour,

À l'aide d'un UserForm j'aimerais pouvoir incrémenter dans excel 2003 via VBA un N° de dossier avec une lettre, le n° de dossier et les deux dernier chiffre de l'année. Exemple: R0001-13

J'ai présentement réussi à le faire, mais seulement avec une série de chiffre commencant par 1. Le UserForm est lié à une baque de donné et quand j'ouvre mon UserForm le prochain numero s'incrit.

Voici le code que j'utilise en ce moment :

Private Sub Userform_Activate()
If Nouveau = True Then TextBox1 = WorksheetFunction.Max(Sheets("Bdd").Range("b2:b65536")) + 1
End Sub

Merci d'avance,

3 réponses

Bonjour
je pense a un truc comme ca

ex: en D1 = R0001

TextBox1 = Left(Range("D1"), 1) & Format(CInt(Right(Range("D1"), 4)) + 1, "0000") & "-" & Format(DateValue(Now), "yy")

A+
Messages postés
4
Date d'inscription
lundi 22 avril 2013
Statut
Membre
Dernière intervention
25 avril 2013

Merci sa fonctionne bien, mais j'aimerais que les n° de dossier ce suive automatiquement. Exemple: R0001-13, R0002-13, R0003-13.....

Ma base de donné ce situe dans la feuille nommé "Bdd" et les numero de dossier s'inscrive dans B2 à la vertical

Merci.
Messages postés
23485
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
17 septembre 2020
6 349
Bonjour,

Tu peux utiliser une cellule où tu inscris le dernier n° utilisé.

eric
Messages postés
4
Date d'inscription
lundi 22 avril 2013
Statut
Membre
Dernière intervention
25 avril 2013

Oui, quand je clic sur 'ENTRER' de mon formulaire le numero de dossier s'inscrit les un à la suite des autres en B2 de ma feuille nommé 'Bdd'
Messages postés
23485
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
17 septembre 2020
6 349
Non, je disais utiliser une cellule pour stocker le dernier n°, fabriquer ta ref à partir de celui-ci et incrémenter celle-ci.
eric
Messages postés
4
Date d'inscription
lundi 22 avril 2013
Statut
Membre
Dernière intervention
25 avril 2013

Je vous remerci beaucoup à vous deux. Avec vos idées combinées j'y suis arriver.