Dim i As Integer, S As String, N As Integer Const Charset As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" Randomize 'initialise le générateur de nombres aléatoires For i = 1 To 16 S = S & Mid(Charset, Int(Rnd() * Len(Charset)) + 1, 1) Next i S = Mid(S, 1, 4) & "-" & Mid(S, 5, 4) & "-" & Mid(S, 9, 4) & "-" & Mid(S, 13, 4) MsgBox S
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question