Générer une suite de chiffres aléatoire

Salut tt le monde, voila mon probleme
J'ai besoin pour un affichage aléatoire de resultat d'une table de générer des id tous différents

Jusque la rien de compliqué mais quand je fais tourner les quelques lignes de codes suivantes j'obtiens toujours des doublons

Quelqu'un a t il une idée?
Vu que j'ai deja un bon gros mal de crane je vous en supli de pouvoir m'aider.

bien a vous,

Randomize Timer
i=1
dim tab(7)
while i<7
for j=1 to i step 1
tab(i)=Int(Rnd * 7)+1
while tab(i) = tab(j) and j<8
j=j+1
wend
if j<8 then
i=i+1
end if
next
wend

C bon, j'ai trouvé donc je m'auto répond pour ceux ke ca interesserai, sait on jamais voila la soluce, ici ca génére 7 chiffres tous differents les uns des autres, sans doublons assurés

Randomize Timer
i=1
dim tab_nbq(7)
dim tab_fin(7)

for i=1 to i=7
tab_fin(i)=0
next
i=1
while i<=7
tmp=int(rnd*7)+1
test=0
j=0
while j<7
if tmp=tab_fin(j) then
test=test+1
end if
j=j+1
wend
if test=0 then
tab_fin(i)=tmp
i=i+1
end if
wend