nombres aléatoires différents

R

Roland

Guest

• 11 Janvier 2004

• #2

Bonsoir Syl R

il te suffit de répéter 10 la fonction =ALEA()
le contenu des dix cases sera différent et évoluera à chaque calcul de la feuille

A+ Roland

 

Vote positif 0 Vote négatif

S

Syl R

Guest

• 11 Janvier 2004

• #3

Salut Roland,

Merci beaucoup, simplement un rectificatif, je souhaiterai obtenir des nombres supérieurs à 1 sans avoir à les multiplier par 100, et sans décimale et tous différents biensur !
Cette solution ne me permet pas d'obtenir des nombres différents si j'enlève les décimales, par exemple les résultats obtenus peuvent être

62.001 = 62
62.003 = 62
etc.

encore merci

A bientôt

 

Vote positif 0 Vote négatif

R

Roland

Guest

• 11 Janvier 2004

• #4

Re


Pourquoi ne pas multiplier par 100 car ceci marche ?
=ENT(ALEA()*100)


Roland

 

Vote positif 0 Vote négatif

R

Roland

Guest

• 11 Janvier 2004

• #5

Re

Ceci marche trés bien aussi et ton souhait de ne pas multiplier est exaucer

Roland

 

Vote positif 0 Vote négatif

R

Roland

Guest

• 11 Janvier 2004

• #6

Re
Avec l'exemple c'est plus facile
=ALEA.ENTRE.BORNES(1;100)

 

Vote positif 0 Vote négatif

T

Ti

Guest

• 11 Janvier 2004

• #7

attention, en utilisant Alea() sans autre précaution, on peut avoir plusieurs fois la même valeur, c'est la définition même de l'aléatoire... J'ai fait un (même 2) fichier pour générer de l'aléatoire sans doublons, mais je ne peux plus le retrouver. Si Celeda passe par là, peut-être retrouvera-t-elle les différents fils

 

Vote positif 0 Vote négatif

M

Myta

Guest

• 11 Janvier 2004

• #8

Bonsoir le forum

Dix nombres aleatoires de 1 à 100 sans doublons dans A1 à A10

Option Explicit
Sub Aleatoire()

Dim Myvalue As Byte
Dim Colonne As Byte

Myvalue = 100

Randomize

[A1] = Int(Myvalue * Rnd + 1)

For Colonne = 1 To 9

Do
Cells(1, 1).Offset(0, Colonne).Value = Int(Myvalue * Rnd + 1)
Loop Until IsError(Application.Match(Cells(1, 1). _
Offset(0, Colonne), Cells(1, 1).Resize(1, Colonne), 0))
Next Colonne

End Sub

Mytå

 

Vote positif 0 Vote négatif

S

Syl R

Guest

• 11 Janvier 2004

• #9

Rebonsoir,

Grand merci à Roland, Ti et Myta pour ce travail de qualité, peut-on juste me donner sur 10 lignes pas sur 10 colonnes.

Je débute ...

A bientôt

 

Vote positif 0 Vote négatif

M

Myta

Guest

• 11 Janvier 2004

• #10

Oups Re le forum

Excuse Syl_R

la bonne macro de A1 a A10 (l'autre etait de A1 a J1)

Option Explicit
Sub Aleatoire()

Dim Myvalue As Byte
Dim Ligne As Byte

Myvalue = 100

Randomize

[A1] = Int(Myvalue * Rnd + 1)

For Ligne = 1 To 9

Do
Cells(1, 1).Offset(Ligne, 0).Value = Int(Myvalue * Rnd + 1)
Loop Until IsError(Application.Match(Cells(1, 1). _
Offset(Ligne, 0), Cells(1, 1).Resize(Ligne, 1), 0))
Next Ligne

End Sub

Mytå

 

Vote positif 0 Vote négatif

S

Syl R

Guest

• 11 Janvier 2004

• #11

Y'a pas de mal,

il y a surtout du bien dans l'aide que vous m'avez apporté,
merci beaucoup !
Bonne soirée ("nuit" !) et bon courage pour la semaine

Syl R

 

Vote positif 0 Vote négatif