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:

Incrémenter un N° de dossier avec lettre, chiffre et année
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Application pour écrire les chiffre en lettre - Télécharger - Outils professionnels
Dossier appdata - Guide
Mettre un mot de passe sur un dossier - Guide
Excel trier par ordre croissant chiffre - Guide

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+

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.

Réponse 2 / 3

eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 239
23 avril 2013 à 19:50

Bonjour,

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

eric

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'

eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 239
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

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.

Discussions similaires

convertir des trimestres en ans mois et jours

comment donner les droits sur fichier partage

Extraire le contenu de plusieurs fichiers