Discussion :

[dodo69]

Bonjour à tous,

J'aimerai obtenir de la manière la plus aléatoire possible, un des 4 chiffres ( 1 2 3 ou 4)
Comment faire pour que la répartition soit parfaitement équitable

dois-je utiliser la fonction randomize?

Merci d'avance
Cordialement
DoDo

[mercatog]

Bonjour,
une fonction générale

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Function Aleatoire(ByVal bInf As Integer, ByVal bSup As Integer) As Integer
 
Randomize
Aleatoire = Int((bSup - bInf + 1) * Rnd() + bInf)
End Function

Qu'on peut utiliser ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
Dim i As Integer
 
For i = 1 To 100
    Range("A" & i) = Aleatoire(1, 4)
Next i
End Sub

Sinon, pour ne pas reconstruire la roue, la fonction intrinsèque d'excel (au moins dans la version 2007)

=ALEA.ENTRE.BORNES(1;4)

qui est traduite en vba par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1").value = Application.WorksheetFunction.RandBetween(1, 4)

[dodo69]

Bonjour mercatog,

j'aime beaucoup l'idée de la fonction

Merci

Cdt
DoDo