Numérotation automatique

Bonjour,

Tu oublie de dire l'essentiel: Pour quelle application? Quel langage?

A+

exuse moi c'est avec access.

Merci

Bonjour,

Avec Access c'est du VBA

Donc cette petite fonction devrait faire l'affaire:

Function num_suiv(NP As String) As String
Dim l1 As String, l2 As String, N As Long, NS As Long, i As Integer
l1 = Left(NP, 1)
l2 = Right(NP, (Len(NP) - 1))
N = 1
For i = 1 To Len(NP)
N = N * 10
Next
NS = N + Val(l2) + 1
num_suiv = l1 & Right(Str(NS), Len(NP) - 1)
End Function

Tu appelle cette fonction avec le dernier numéro de facture en paramètre et elle te renvoie le numéro suivant comme le montre cet exemple

Sub test()
Dim num_fact As String
num_fact = "F0019"
num_fact = num_suiv(num_fact)
MsgBox num_fact
num_fact = "X10019"
num_fact = num_suiv(num_fact)
MsgBox num_fact
End Sub

A+.

Merci
ça marche

Bonjour,
Peut-être un peu plus simple ?...

Function NumSuivant(AncNum As String)
    NumSuivant = Format(Mid(AncNum, 2) + 1, "F00#")
End Function

A+