Generateur de nombre aleatoire

[djtoto78]

Bonjour a toute et a tous...

Je cherche comment faire pour avoir un generateur de nombre de 0 a 100. De façon a avoir un nombre par cellule de A10 à A510.

Quelqu'un sait comment faire?

Merci d'avance

 

[Hulk]

Re : Generateur de nombre aleatoire

Hello,

Si j'ai bien compris...

    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.

 

[JHA]

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

 

[Victor21]

Re : Generateur de nombre aleatoire

Bonjour à tous.

Essayez :

=ALEA.ENTRE.BORNES(0;100)

à recopier vers le bas

 

[néné06]

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

 

[Victor21]

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 ? 😉

 

[néné06]

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

 

[djtoto78]

Re : Generateur de nombre aleatoire

Merci à tous pour vos réponse.

Je vais tester tout ça.

Encore merci

Dj Toto78

 

[néné06]

Re : Generateur de nombre aleatoire

Une solution pour des non entier

A+