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 -
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,
À 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+ -
Bonjour,
Tu peux utiliser une cellule où tu inscris le dernier n° utilisé.
eric
-
Je vous remerci beaucoup à vous deux. Avec vos idées combinées j'y suis arriver.
