Discussion :

[nic79]

Bonjour,

J'ai développé il y a quelques années une base de données sous Excel. Cette base comprend une numérotation de dossiers sous la forme année-000.

Malheureusement, il y a eu des fusions de dossiers avec plusieurs entités. Les dossiers réceptionnés ont pris un préfixe N, C, G.

Les nouveaux dossiers créés prendront la numérotation sous la forme N000-2009.

La création d'un nouvel enregistrement se fait à travers un formulaire (UserFormFaillite). Lors de la création du dossier, je souhaites que le numéro de dossier s'incrémente automatiquement et indique la valeur dans une zone de texte intitulée NDossier.

La base étant importante est téléchargeable à l'adresse :
http://www.nicolas79.ch/GestFaillites.zip

Débutant en vba j'ai un peu de peine pour réaliser ceci et souhaiterai avoir un peu d'aide.

[rjamin]

Bonjour,
Ce que je propose ici n'est pas la réponse direct que vous attendez car vous passez par un formulaire, ce que je ne maîtrise pas encore.

Mais pour calculer vos n° de dossier directement dans une feuille voici une formule qui fonctionne.

En A2 j'ai mis le n° de départ
N000-2009

Formule placée en A3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(B3>0;"N"&TEXTE(CNUM(STXT(A2;2;3)+1);"000")&DROITE(A2;5);"")

Elle n'affiche rien si la cellule B3 est vide
Elle peut être tirée vers le bas pour avoir l'incrémentation de 1 pour les 3 chiffres qui suivent le N
Ceci pourrait peut-être vous donner une idée.

[Abed_H]

Bonjour
une piste,incrémentation d'un numéro automatique ici N000-2009 en K6.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("K6") = "N" & Format(CDbl(Mid(Range("K6"), 2, 3)) + 1, "000") & "-2009"

Bonne journée.