Numérotation automatique dans formulaire

Bonjour à tous,

Je dispose d'un formulaire de saisie qui affiche automatiquement à l'ouverture dans un textbox un numéro d'ordre qui suit le dernier numéro saisie.
Le format de ce numéro est
Format(Date, "yymm") soit 1905 suivi du chiffre 1,2,3 etc
ce qui donne
19051
19052
19053
19054
etc
Ce que je souhaite avoir, c'est
1905001
1905002
1905003
1905004
etc

Voilà le code que j'utilise du formulaire "Ben" correspondant à ce numéro

Code:

---

1 2 3 4 5 6 7 8 9

Set f = Workbooks("GB.xlsx").Sheets("Bens") Ligne = f.Range("A65536").End(xlUp).Row If Ligne = 1 Then Ben.N_I = Format(Date, "yymm") & "1" Else Ben.N_I = Format(Date, "yymm") & Right(f.Cells(Ligne, 1), Len(f.Cells(Ligne, 1)) - 4) + 1 End If

---

Comment modifier ce code pour obtenir le résultat souhaité?
Merci infiniment pour vos réponses

Bonjour,
J'ai écrit une fonction personnalisée qui renvoie le prochain numéro.
Voir ce billet titré Incrémenter un numéro de facture, devis, à l’aide d’une fonction personnalisée

Bonsoir
Merci pour votre réponse, j'ai regardé votre fonction mais c'est peut être un peu compliqué pour moi...
pour reprendre tout ça
Alors j'ai modifié mon code comme ceci pour avancer

Code:

---

1 2 3 4 5 6

Set f = Workbooks("GB.xlsx").Sheets("Bens") Ligne = f.Range("A65536").End(xlUp).Row n = Right(f.Cells(Ligne, 1).Value, 3) Num = Format(n + 1, "000") Ben.N_I = Format(Date, "yymm") & Num

---

c'est un peu tiré par les cheveux car je suis obligé dans ce cas de mettre une valeur de champ comme par exemple TOTO_000
mais ça fonctionne
Peut être auriez vous la solution quelque soit la valeur du champ?

Bonjour,

Citation:

---

Merci pour votre réponse, j'ai regardé votre fonction mais c'est peut être un peu compliqué pour moi...
pour reprendre tout ça

---

Je ne vois pas où est la difficulté, c'est une fonction "clé sur porte" qu'il suffit de copier dans un module standard et ensuite l'invoquer
En VBA

Code:

---

Variable = Counter(AncienNuméro)

---

ou

Code:

---

Range("A2").Value = Counter(AncienNuméro)

---

et en Excel si l'ancien numéro se trouve en cellule B2 de la feuille nommée Parameter (Cellule que l'on peut nommer bien entendu)

Code:

---

=Counter(Parameter!B2)

---

et pour l'avoir formaté 1905-005 (Exemple pour le n° 5 pour le 16/05/2019)

Code:

---

=TEXTE(AUJOURDHUI();"aamm") & "-" & TEXTE(Counter(Parameter!B2);"000")

---

Mais cette fonction peut aussi recommencer la numérotation par période (Année, Trimestre, Mois, Hebdomadaire et Jour)

Merci Philippe pour vos réponses
je vais appliquer votre fonction et je reviens vers vous si j'ai des difficultés
Bonne soirée