Formule Excel pour le jeu De la roulette européenne,
dmsd33
Messages postés
3
Statut
Membre
-
dmsd33 Messages postés 3 Statut Membre -
dmsd33 Messages postés 3 Statut Membre -
2 réponses
-
Bonjour,
Tu cherches une formule. En voici une :=CHOISIR(A1;32;15;19;4;21;2;25;17;34;6;27;13;36;11;30;8;23;10;5;24;16;33;1;20;14;31;9;22;18;29;7;28;12;35;3;26;0)
Avant, j'arrivais jamais à finir mes phrases... mais maintenant je-
Sinon, en VBA, avec la possibilité de faire plusieurs tours de roue :
Function Roulette(NumCases As Integer) As Integer Dim ArrValeurs, i As Byte ArrValeurs = Array(32, 15, 19, 4, 21, 2, 25, 17, 34, 6, 27, 13, 36, 11, 30, 8, 23, 10, 5, 24, 16, 33, 1, 20, 14, 31, 9, 22, 18, 29, 7, 28, 12, 35, 3, 26, 0) If NumCases > 37 Then If NumCases Mod 37 = 0 Then i = 36 Else: i = (NumCases Mod 37) - 1 End If Else: i = NumCases - 1 End If Roulette = ArrValeurs(i) End Function
-
-
Bonjour Merci
Pour les infos voici un exemple aux cas où je ne me suis pas bien exprimé.
Je t’envoie une image suite à l’autre.
Une bonne journée à vous.
merci bien

