Formule Excel pour le jeu De la roulette européenne,
Fermé
dmsd33
Messages postés
3
Date d'inscription
lundi 1 février 2016
Statut
Membre
Dernière intervention
4 février 2016
-
1 févr. 2016 à 10:08
dmsd33 Messages postés 3 Date d'inscription lundi 1 février 2016 Statut Membre Dernière intervention 4 février 2016 - 4 févr. 2016 à 07:45
dmsd33 Messages postés 3 Date d'inscription lundi 1 février 2016 Statut Membre Dernière intervention 4 février 2016 - 4 févr. 2016 à 07:45
A voir également:
- Excel roulette
- Liste déroulante excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
- Déplacer une colonne excel - Guide
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
Modifié par pijaku le 1/02/2016 à 13:24
Modifié par pijaku le 1/02/2016 à 13:24
Bonjour,
Tu cherches une formule. En voici une :
Avant, j'arrivais jamais à finir mes phrases... mais maintenant je
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
Modifié par pijaku le 1/02/2016 à 13:57
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