XL 2019 Aide tableur Excel probabilités à la roulette

Laniak13 · 27 Février 2023

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.

sylvanu · 27 Février 2023

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.

Laniak13 · 28 Février 2023

sylvanu à dit:

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 ?

sylvanu · 28 Février 2023

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.

Laniak13 · 28 Février 2023

sylvanu à dit:
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.

sylvanu · 28 Février 2023

Re,
PJ à vérifier.
J'ai mis la plage à analyser en variable, c'est plus simple.

Laniak13 · 28 Février 2023

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 · 28 Février 2023

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 :

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

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

Laniak13 · 28 Février 2023

Moi j'obtiens ça quand j'ouvre le fichier V3 et que je tape numéro 34 et 5 nombres à analyser.

sylvanu · 28 Février 2023

Le mieux est l'ennemi du bien.
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é.

Laniak13 · 28 Février 2023

Merci beaucoup c'est niquel la, génial !

qlimax101 · 6 Novembre 2023

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

sylvanu · 6 Novembre 2023

Bonsoir,
Un essai rapide en PJ.

qlimax101 · 6 Novembre 2023

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 ?

sylvanu · 6 Novembre 2023

Regardez la macro, c'est déjà le cas. Le changement de sens change l'ordre de la matrice qui est triée.

XL 2019 Aide tableur Excel probabilités à la roulette

Laniak13

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Laniak13

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Laniak13

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Laniak13

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Laniak13

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Laniak13

XLDnaute Nouveau

qlimax101

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

qlimax101

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Discussions similaires