XL 2019 Aide tableur Excel probabilités à la roulette

Laniak13

XLDnaute Nouveau
Bonjour à tous, je cherche une âme charitable qui pourrait m'aider, je m'explique :

Lorsque j'ai été au casino j'ai noté sur une feuille les 291 derniers tirages dans l'ordre dans lesquels les numéros sont sortis.

J'ai besoin d'avoir un tableur Excel qui me permet que lorsque je rentrerai un numéro de référence il me calcule automatiquement les trois numéros qui sont sortis le plus de fois juste après ce même numéro de référence.

EXEMPLE : je choisis comme numéro de référence le numéro 30.

Dans les 291 tirages imaginons que j'ai noté que le numéro 30 est sorti 10 fois en tout.

Je cherche donc à savoir sur les 10 numéros à la suite, quels sont les 3 numéros qui sont le plus sorti après mon numéro de référence qui est le 30

Les chiffres qui ont suivi le numéro 30 ont été :

- une fois le numéro 6

- une fois le numéro 20

- une fois le numéro 22

- une fois le numéro 6

- une fois le numéro 36

- une fois le numéro 22

- une fois le numéro 6

- une fois le numéro 16

- une fois le numéro 36

- une fois le numéro 22

Excel devrait me calculer automatiquement que le numéro 6 est sorti trois fois juste après mon numéro de référence qui est le 30.

Le numéro 22 est sorti trois fois également juste après mon numéro de référence.

Et le numéro 36 est sorti deux fois juste après mon numéro de référence.

Les trois numéros d'après mes 291 tirages qui sortent le plus juste après le 30 sont donc le 6, le 22 et le 36.

Merci d'avance je vous joins l'Excel que j'ai fait avec les 291 tirages dans l'ordre que j'ai écrit dans la colonne A de A1 à A291.
 

Pièces jointes

  • proba. roulette.xlsx
    11.5 KB · Affichages: 24

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Laniak, et bienvenu sur XLD,
Un essai en PJ avec :
VB:
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B2]) Is Nothing Then
         Dim DL%, N%, tablo, T2, Valeur
         Application.ScreenUpdating = False
         DL = Sheets("Tirages").[A65500].End(xlUp).Row
         tablo = Sheets("Tirages").Range("A1:A" & DL + 3)
         [E1:E37].ClearContents
         [D1:D37].Resize(37).Sort key1:=[D1:D37], order1:=xlAscending, Header:=xlNo
         ReDim T2(0 To 40)
         For N = 1 To UBound(tablo)
            If tablo(N, 1) = Target Then
                Valeur = tablo(N + 1, 1): T2(Valeur) = T2(Valeur) + 1
                Valeur = tablo(N + 2, 1): T2(Valeur) = T2(Valeur) + 1
                Valeur = tablo(N + 3, 1): T2(Valeur) = T2(Valeur) + 1
            End If
         Next N
         [E1].Resize(37, 1).Value = Application.Transpose(T2)
         [D1:E37].Resize(37).Sort key1:=[E1:E37], order1:=xlDescending, Header:=xlNo
    End If
Fin:
Application.ScreenUpdating = True
End Sub
La macro s'exécuté automatiquement lorsqu'on modifie la valeur recherchée (cellule en jaune )

NB: Il reste une ambiguïté sur la demande. J'ai compté les trois nombres qui suivaient le nombre demandé.
Ou faut il considérer les 10 nombres qui suivent le nombre de référence. Dans ce cas utilisé la V2.
 

Pièces jointes

  • proba. roulette (1).xlsm
    22.2 KB · Affichages: 9
  • proba. roulette (V2).xlsm
    21.3 KB · Affichages: 11
Dernière édition:

Laniak13

XLDnaute Nouveau
Bonsoir Laniak, et bienvenu sur XLD,
Un essai en PJ avec :
VB:
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B2]) Is Nothing Then
         Dim DL%, N%, tablo, T2, Valeur
         Application.ScreenUpdating = False
         DL = Sheets("Tirages").[A65500].End(xlUp).Row
         tablo = Sheets("Tirages").Range("A1:A" & DL + 3)
         [E1:E37].ClearContents
         [D1:D37].Resize(37).Sort key1:=[D1:D37], order1:=xlAscending, Header:=xlNo
         ReDim T2(0 To 40)
         For N = 1 To UBound(tablo)
            If tablo(N, 1) = Target Then
                Valeur = tablo(N + 1, 1): T2(Valeur) = T2(Valeur) + 1
                Valeur = tablo(N + 2, 1): T2(Valeur) = T2(Valeur) + 1
                Valeur = tablo(N + 3, 1): T2(Valeur) = T2(Valeur) + 1
            End If
         Next N
         [E1].Resize(37, 1).Value = Application.Transpose(T2)
         [D1:E37].Resize(37).Sort key1:=[E1:E37], order1:=xlDescending, Header:=xlNo
    End If
Fin:
Application.ScreenUpdating = True
End Sub
La macro s'exécuté automatiquement lorsqu'on modifie la valeur recherchée (cellule en jaune )

NB: Il reste une ambiguïté sur la demande. J'ai compté les trois nombres qui suivaient le nombre demandé.
Ou faut il considérer les 10 nombres qui suivent le nombre de référence. Dans ce cas utilisé la V2.
Bonjour sylvanu, merci beaucoup de ton aide.
Imaginons maintenant que je veuille rajouter des numéros à la suite de mes 291 tirages que j'avais déjà écrit, je n'ai rien à faire cela va les prendre en compte et va se mettre à jour automatiquement ?
 

Laniak13

XLDnaute Nouveau
Bonjour,
Cela marchera quelque soit la taille des données d'entrées.
La seule constante est que les nombres restent dans la plage 0..36.
Ok super, c'est top merci beaucoup. Serait-ce possible si disponible de m'envoyer une V3 avec non pas les 3 numéros qui suivent, ni les 10 numéros qui suivent mais plutôt les 5 numéros qui suivent le numéro demandé de référence.
Merci d'avance.
 

Laniak13

XLDnaute Nouveau
Je trouve pas mal d'erreurs quand je vérifie en comptant moi-même. Exemple avec le numéro 34 sur les 5 chiffres qui suivent cela devrait être le 15 qui est sorti 5 fois. Or la, cela m'indique le numéro 14 qui est sorti 4 fois mais quand je compte dans les 5 chiffres qui suivent le numéro 34 je compte que 1 fois le numéro 14.
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Peut être serait ce utile de fournir un fichier pour comprendre.
Par ex avec le seul fichier à ma disposition, avec le 34 et 5 nombres à analyser, je trouve :
1677577971791.png

et lorsque je vérifie à la mano j'obtiens :
1677578150448.png

Plonger vous dans la macro, je ne vois pas de bug flagrant. Peut être verrez vous une erreur d'interprétation.
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Le mieux est l'ennemi du bien. :rolleyes:
Ca ne marche que si la cellule modifiée en dernier est le N° choisis car j'utilisais Target comme recherche.
Et comme Target peut maintenant évolué puisqu'il y en a deux, il peut y avoir erreur.

En PJ c'est rectifié.
 

Pièces jointes

  • proba. roulette (V4).xlsm
    22.1 KB · Affichages: 22

qlimax101

XLDnaute Nouveau
Bonsoir, je ne sais pas si vous êtes tjs actifs haha car j'ai une question. Je cherchais la même chose que Laniak donc ça tombe bien, cependant j'aimerais prendre en compte le sens de la roulette. Le problème c'est que je suis un peu paumé pour la formule que je pourrais appliquer. Donc pour résumé ce serait cool d'avoir les 5 numéros suivants comme sur votre fichier excel, mais en prenant en compte dans quel sens le cylindre tournait... Ce qui ne donnera surement pas les mêmes résultats que si on enregistre simplement tous les chiffres qui sortent comme çà ... Merci à ceux qui liront ce message =p
 

qlimax101

XLDnaute Nouveau
Merci sylvanu :) ! ça m'a l'air d’être bon mais je pense que le symbole de "sens" doit être intégré dans la partie tirage non ? Sinon comment le système va connaitre le sens du tour quand j'encode les numéros :p ?
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
313 316
Messages
2 097 102
Membres
106 837
dernier inscrit
MICHEL44