Generateur de nombre aleatoire

Hulk

XLDnaute Barbatruc

• 3 Février 2012

• #2

Re : Generateur de nombre aleatoire

Hello,

Si j'ai bien compris...

Code:

    Application.ScreenUpdating = False
    
    'Pour A1:A500
    For lign = 1 To 500 'À adapter
        Cells(lign, 1).Value = Int(Rnd * 100) + 1
    Next lign
    
    Application.ScreenUpdating = True

Int(Rnd * 100) crée des nombres de 0 à 100 et + 1 pour qu'il commence à 1.

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 3 Février 2012

• #3

Re : Generateur de nombre aleatoire

Bonjour à tous,

par formule:
En "A1" tu mets "1 à 100"
ensuite exemple en "B2"
=ENT(GAUCHE($A$1;1)+ALEA()*(DROITE($A$1;3)+1-GAUCHE($A$1;1)))
puis tu tires vers le bas

Tu auras des chiffres de 1 à 100 aléatoirement

JHA

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 3 Février 2012

• #4

Re : Generateur de nombre aleatoire

Bonjour à tous.

Essayez :

=ALEA.ENTRE.BORNES(0;100)

Cliquez pour agrandir...

à recopier vers le bas

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 3 Février 2012

• #5

Re : Generateur de nombre aleatoire

bonsoir à tous.

Une méthode qui évite d'avoir des doublons


nb_nombres = 100
val_nombre = 500
Range("A:A").Clear
Set dico = CreateObject("Scripting.Dictionary")
While dico.Count < nb_nombres
Randomize
x = Int((val_nombre * Rnd))
dico(x) = x
Wend
Range("A1").Resize(dico.Count) = Application.Transpose(dico.keys)

Cordialement

 

Pièces jointes

• Aléatoire.xls

  38.5 KB · Affichages: 296
• Aléatoire.xls

  38.5 KB · Affichages: 293
• Aléatoire.xls

  38.5 KB · Affichages: 313

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 3 Février 2012

• #6

Re : Generateur de nombre aleatoire

Bonsoir, néné06.

Mais comment ne pas avoir de doublons en replissant 501 cellules avec des nombres compris entre 0 et 100 ? 😉

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 3 Février 2012

• #7

Re : Generateur de nombre aleatoire

Bonsoir Victor

J'ai fait une erreur et j'ai mal lu le message.
Dans mon cas j'ai fait l'inverse.
J'ai placé des nombres de 1 à 500 dans 100 cellules.
Dans ton message, tu as totalement raison.
Il est IMPOSSIBLE de ne pas avoir de doublons avec des entiers.

Cordialement

 

Vote positif 0 Vote négatif

D

djtoto78

Guest

• 3 Février 2012

• #8

Re : Generateur de nombre aleatoire

Merci à tous pour vos réponse.

Je vais tester tout ça.

Encore merci

Dj Toto78

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 3 Février 2012

• #9

Re : Generateur de nombre aleatoire

Une solution pour des non entier

A+

 

Pièces jointes

• Aléatoire non entier.xls

  54.5 KB · Affichages: 199

Vote positif 0 Vote négatif