Sujet Précédent Sujet Suivant

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

Résolu/Fermé
Mighty12 Messages postés 4 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 25 avril 2013 - Modifié par Mighty12 le 22/04/2013 à 23:25
Mighty12 Messages postés 4 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 25 avril 2013 - 25 avril 2013 à 00:57
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

Réponse 1 / 3
Maurice
23 avril 2013 à 18:14
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 4 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 25 avril 2013
23 avril 2013 à 22:48
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
Réponse 2 / 3
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 209
23 avril 2013 à 19:50
Bonjour,

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

eric
0
Mighty12 Messages postés 4 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 25 avril 2013
23 avril 2013 à 22:57
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 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 209
23 avril 2013 à 23:22
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
Réponse 3 / 3
Mighty12 Messages postés 4 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 25 avril 2013
25 avril 2013 à 00:57
Je vous remerci beaucoup à vous deux. Avec vos idées combinées j'y suis arriver.
0

Discussions similaires

Pix
Anyssa -
vibe -

4 réponses
Extraire le contenu de plusieurs fichiers
politicus -
Syl_tls1 -

11 réponses
Trouver le mot réellement écrit en lettres capitales PIX
ETHAN -
kirikou -

4 réponses
Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses
en chiffre un milliard un million mille un
pout -
chossette9 -

3 réponses