Liste de nombres aléatoires

Hello j'voudrais savoir comment on fait une liste de nombre aléatoire QUI NE RÉPÈTE JAMAIS 2 FOIS LE MÊME NOMBRE.

AVEC Le VBA excel:
pour generer 100 nombres aleatoires de 1 a 1000
qui se repete pas on peut faire comme ça:

sub genere()
dim chiffre(99),i,j as integer
dim doublons as boolean


doublons=true
while doublons=true
for i=0 to 99
chiffre(i)=int((1000*rnd)+1)
next

for i=1 to 99
for j= 0 to i-1
if chiffre(i)=chiffre(j) then
doublons=true
goto recommence
else
doublons=false
endif
next
next
recommence:
wend

for i=0 to 99
sheets("feuil1").range("a1").offset(i)=chiffre(i)
next

end sub





-------------------------------
Réponse au message :
-------------------------------

Hello j'voudrais savoir comment on fait une liste de nombre aléatoire QUI NE RÉPÈTE JAMAIS 2 FOIS LE MÊME NOMBRE.

C'est quoi du VBA Excel?



-------------------------------
Réponse au message :
-------------------------------

AVEC Le VBA excel:
pour generer 100 nombres aleatoires de 1 a 1000
qui se repete pas on peut faire comme ça:

sub genere()
dim chiffre(99),i,j as integer
dim doublons as boolean


doublons=true
while doublons=true
for i=0 to 99
chiffre(i)=int((1000*rnd)+1)
next

for i=1 to 99
for j= 0 to i-1
if chiffre(i)=chiffre(j) then
doublons=true
goto recommence
else
doublons=false
endif
next
next
recommence:
wend

for i=0 to 99
sheets("feuil1").range("a1").offset(i)=chiffre(i)
next

end sub





-------------------------------
Réponse au message :
-------------------------------

Hello j'voudrais savoir comment on fait une liste de nombre aléatoire QUI NE RÉPÈTE JAMAIS 2 FOIS LE MÊME NOMBRE.

-------------------------------
Réponse au message :
-------------------------------

C'est quoi du VBA Excel?


c'est le langage visual basic pour excel
tu utilise quel langage ?
-------------------------------

Bonjour,
est-il possible (en VB), de remplir un tableau de 8 cases avec des nombres aléatoires sans doublons et sans utiliser de goto ?

Salut,

Dim NbAleat(1 to 8)
For i% = 1 to 8
   NbAleat(i%) = int((50*rnd)+1)
   For j% = 1 to i%
      if NbAleat(i%) = NbAleat(j%) then i% = i% -1
   Next j%
Next i%

Merci beaucoups.