Numérotation automatique

ouzzin Messages postés 268 Date d'inscription   Statut Membre Dernière intervention   -  
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
mon prmier numéro de facture commance par F001 alors comment faire pour que les autre suivent automatiquement le numéro précédent.

Merci
Configuration: Windows XP Internet Explorer 6.0

5 réponses

  1. tech_57
     
    Bonjour,

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

    A+
    0
  2. ouzzin Messages postés 268 Date d'inscription   Statut Membre Dernière intervention   29
     
    exuse moi c'est avec access.

    Merci
    0
  3. tech_57
     
    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+.
    0
  4. ouzzin Messages postés 268 Date d'inscription   Statut Membre Dernière intervention   29
     
    Merci
    ça marche
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Bonjour,
    Peut-être un peu plus simple ?... 
    Function NumSuivant(AncNum As String)
    NumSuivant = Format(Mid(AncNum, 2) + 1, "F00#")
End Function

    A+
    0