Discussion :

[rolando06]

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 :

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

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

[Philippe Tulliez]

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

[rolando06]

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 :

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

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?

[Philippe Tulliez]

Bonjour,

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 :

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

Variable = Counter(AncienNuméro)

ou

Code :

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

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 :

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

=Counter(Parameter!B2)

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

Code :

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

=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)

[rolando06]

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