Fonctions ALEA

[victor]

Bonjour le forum
je ne comprnds pas pourquoi il y a 2 chiffres les mêmes à la suite, quand je tire la formule sur 9 lignes, alors qu'il devrait avoir 9 chiffres différents ?

1+arrondi((9)*ALEA();0)

Ou alors il y a un problème dans la formule.

Merci à vous. Victor

 

[Emmanuel]

salut Victor, bonjour le forum

essaye ceci, avec un format de cellule, zero chiffre après la virgule
=ALEA()*(9-1)+1
nombre aléatoir compris entre 9 et 1

j'espère que cela correspond a ta demande

A bientôt
Emmanuel

 

[PhiBou]

Bonjour Victor, Emmanuel, le Forum

Victor, avec ta formule tu calcules 9 aléatoires compris entre 1 et 9

il est donc normal d'avoir des doublons puisqu'il s'agit d'1 tirage avec remise.

Par contre, si tu veux avoir les 9 chiffres dans n'importe quel ordre
comme 1 tirage sans remise tu peux utiliser cette macro.

Sub Aleatoire()
Dim i, j, Tirage, Test As Byte
Cells(1, 1) = Int(9 * Rnd() + 1)
For i = 2 To 9
Tirage = Int(9 * Rnd() + 1)
Test = 0
For j = 1 To i - 1
If Cells(j, 1) = Tirage Then Test = 1
Next j
If Test = 1 Then
i = i - 1
Else
Cells(i, 1) = Tirage
End If
Next i
End Sub

Bonne journée

PhiBou

 

[victor]

Salut Emmanuel,

Désolé mais cela ne fonctionne pas il y a 2 fois le chiffre 4 et en plus à la suite ???

Salut Philou, comme je suis nulle en macro, je ne sais pas si cela fonctionne, mais je ne met pas en doute tes capacitées.

A+ et merci à vous 2. Victor

 

[Bernard]

Bonjour Victor, Emmanuel et Phibou


Une macrodémo sans prétention qui reprend un peu la macro de Phibou.

J'espère que Victor attrapera le virus du Visual Basic à essayer de comprendre ? hi hi

Pour voir la macro faire Alt F11

Cordialement

Bernard

 

[Victor]

Salut à vous,

Merci à vous tous cela fonctionne à merveille.

Victor