View original (French)

Excel formula for European roulette game.

dmsd33 Posted messages 3 Status Member -  
dmsd33 Posted messages 3 Status Member -
Bonjour, je souhaite créer une formule avec Excel pour le jeu de la roulette européenne.
Pour la roue de la roulette, en partant de zéro et en comptant 5 cases dans le sens des aiguilles d'une montre, je voudrais obtenir le résultat N°21. Et cela pour les autres numéros.

2 answers

  1.
    pijaku Posted messages 13513 Registration date   Status Moderator Last intervention   2 773
     
    Hello,

    You're looking for a formula. Here it is: 
    =CHOOSE(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)


    Before, I could never finish my sentences... but now I
    3
    1. pijaku Posted messages 13513 Registration date   Status Moderator Last intervention   2 773
       
      Otherwise, in VBA, with the option to make several spins: 
      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
      1
  2. dmsd33 Posted messages 3 Status Member 1
     
    Hello, thank you
    For the information, here is an example in case I didn't express myself well.
    I am sending you one image after another.
    Have a good day.
    Thank you very much
    1
    1. pijaku Posted messages 13513 Registration date   Status Moderator Last intervention   2 773
       
      Hello,
      Have you tried my solutions?
      0
    2. dmsd33 Posted messages 3 Status Member 1
       
      Hello

      Thank you for the information, I’ll keep that in mind, as I don’t use Excel every day. I will look into it again as I admit I am a bit lost and don’t know where to start
      Thank you very much for the information.
      0