Generateur de code

Bonjour,

Dans mon tableau "T_bleu" Ma première colone matricule contient des matricule a 4 ou 5 chiffre et des matricule avec lettre et chiffres est t il possible de creer un userform qui propose un matricule inventé par le fichier mais qui n existe pas dans mon tableau

tout en choisissant si l ont veut generer un matricule a 4 ,5 ,6 chiffre avec ou sans lettre ?

merci

bonjour, avez vou un exemple de votre tableau "T_bleu" et une ou quelque propositions de matricules svp.

Oui voici

Les matricules utilisé ne sont pas les bons

et je ne les ai pas avec moi maintenant mais ca ressemble a cela

5782

68988

dt5678

ghj6788

bonjour,

la création des codes n'est pas difficile, cela dépend de votre goût, Y-a-t-il des restrictions ?

Sub Aleatoire()
     Dim aA, aOut, ptr
     aA = Range("T_Bleu").Columns(1).Value2
     ReDim aOut(1 To 24)

     For I = 1 To 10000                      'exagéré !!!
          s = ""
          For j = 1 To 4 + (ptr \ 6)
               If ptr < 12 Or j <= 4 Then
                    x = WorksheetFunction.RandBetween(48, 57)
               Else
                    x = WorksheetFunction.RandBetween(65, 90)
               End If
               s = Chr(x) & s
          Next
          r = Application.Match(s, aA, 0)    'ne pas dans T_bleu
          If Not IsNumeric(r) Then
               r = Application.Match(s, aOut, 0)     'ne pas dans aOut
               If Not IsNumeric(r) Then
                    ptr = ptr + 1
                    aOut(ptr) = s
                    If ptr Mod 6 = 5 Then ptr = ptr + 1
               End If
          End If
          If ptr >= UBound(aOut) Then Exit For
     Next
     MsgBox Join(aOut, vbLf), vbInformation, "20 codes possible"

End Sub

Je ne sais pas trop les codes sont tous différents

Les lettres sont choisies mais les chiffres ne doivent pas etres les même

Pour exemple je doit integrer ces code en pj

la pj