Function RandomString(cb As Integer) As String Randomize Dim rgch As String rgch = "abcdefghijklmnopqrstuvwxyz" rgch = rgch & UCase(rgch) & "0123456789" Dim i As Long For i = 1 To cb RandomString = RandomString & Mid$(rgch, Int(Rnd() * Len(rgch) + 1), 1) Next End Function
je n'ai trouvais que des codes qui génère la référence dans une message box impossible de le copier.
Function code_alea()
Randomize
carac = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
lettre_aleatoire = ""
For i = 1 To 6
nombre_aleatoire = Int(Len(carac) * Rnd) + 1
lettre_aleatoire = lettre_aleatoire & Mid(carac, nombre_aleatoire, 1)
If i = 3 Then lettre_aleatoire = lettre_aleatoire & "-"
Next
End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Function code_alea() As String ' -->> typée en String
Randomize
carac = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
For i = 1 To 6
nombre_aleatoire = Int(Len(carac) * Rnd) + 1
' et donne à la fonction ce qu'elle doit retourner
code_alea = code_alea & Mid(carac, nombre_aleatoire, 1)
If i = 3 Then code_alea = code_alea & "-"
Next
End Function
= code_alea()
Public Function code_alea() As String
Randomize
carac = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
For i = 1 To 6
code_alea = code_alea & Mid(carac, Int(Len(carac) * Rnd) + 1, 1)
Next
code_alea = Format(code_alea, "@@@-@@@")
End Function