Dim Nb as Long,Result as String, N as Long,T() as Long Nb = 10 ' On veut dix nombre Result = vbNullChar While Nb >0 N = Int(Rnd*100) If Result Not Like "*" & vbNullChar & CStr(N) & vbNullChar & "*" Then Result = Result & CStr(N) & vbNullChar N = N - 1 End If Wend Result = Mid$(Result,2,Len(result)-2) T = Split(Result,vbNullChar)
Dim Nb As Long, Result As String, N As Long, T() As Long Nb = 20 ' On veut dix nombre Result = vbNullChar While Nb > 0 N = Int(Rnd * 20) + 1 If Not Result Like "*" & vbNullChar & CStr(N) & vbNullChar & "*" Then Result = Result & CStr(N) & vbNullChar Nb = Nb - 1 End If Wend Result = Mid$(Result, 2, Len(Result) - 2) T = Split(Result, vbNullChar)