Incrémenter un N° de dossier avec lettre, chiffre et année

Résolu
Mighty12 Messages postés 6 Statut Membre -  
Mighty12 Messages postés 6 Statut Membre -
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,
A voir également:

3 réponses

Maurice
 
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+
1
Mighty12 Messages postés 6 Statut Membre
 
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.
0
eriiic Messages postés 25847 Statut Contributeur 7 279
 
Bonjour,

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

eric
0
Mighty12 Messages postés 6 Statut Membre
 
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'
0
eriiic Messages postés 25847 Statut Contributeur 7 279
 
Non, je disais utiliser une cellule pour stocker le dernier n°, fabriquer ta ref à partir de celui-ci et incrémenter celle-ci.
eric
0
Mighty12 Messages postés 6 Statut Membre
 
Je vous remerci beaucoup à vous deux. Avec vos idées combinées j'y suis arriver.
0