éliminer les doublons dans une série de nombres aléatoires

Question

j'ai besoin d'une série de x nombres aléatoires, tous différents.
Comment faire pour éliminer les doublons, tout en ayant la quantité de nombres requise ?
Merci

crenaud76 · Answer

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)


Ca doit le faire normalement

Christophe R.

crenaud76 · Answer

voici le bon code :

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)


Christophe R.

éliminer les doublons dans une série de nombres aléatoires

2 réponses

Discussions similaires