Liste de nombres aléatoires

Supo - 13 oct. 2001 à 02:48
lesilmarien Messages postés 2 Date d'inscription jeudi 23 mars 2006 Statut Membre Dernière intervention 28 mars 2006 - 28 mars 2006 à 08:59
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.

6 réponses

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
0
C'est quoi du VBA Excel?
0
-------------------------------
Réponse au message :
-------------------------------

C'est quoi du VBA Excel?

c'est le langage visual basic pour excel
tu utilise quel langage ?
-------------------------------
0
lesilmarien Messages postés 2 Date d'inscription jeudi 23 mars 2006 Statut Membre Dernière intervention 28 mars 2006
23 mars 2006 à 13:46
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 ?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
PhilocheMan Messages postés 55 Date d'inscription jeudi 28 juillet 2005 Statut Membre Dernière intervention 23 mars 2006 1
23 mars 2006 à 14:02
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%
0
lesilmarien Messages postés 2 Date d'inscription jeudi 23 mars 2006 Statut Membre Dernière intervention 28 mars 2006
28 mars 2006 à 08:59
Merci beaucoups.
0
Rejoignez-nous