Modérateurs: RAMBO, jackman, fenix62
bonjour,
suite à des cours ennuyants, j'ai décidé de noté la liste de numéro sortie sur dublin bet pour essayer de comprendre comment calculer les "hot numbers"?
donc voila les resultats des splins:
serie n1:
22
4
24
32
2
7
1
27
19
16
30
32
33
10
35
9
17
20
18
9
29
5
31
0
8
26
19
17
16
3
16
26
34
34
8
1
6
13
16
24
21
6
0
6
8
36
21
13
34
14
32
19
17
2
15
4
11
21
30
9
31
20
2
36
36
34
3
29
2
18
5
17
19
17
5
2
2
2
6
2
25
16
27
3
0
36
11
27
27
2
0
10
15
29
33
4
20
14
30
2
6
36
12
15
19
13
24
14
7
16
25
6
33
12
33
32
34
27
4
1
27
24
20
4
19
31
11
29
27
17
20
30
33
27
31
25
23
3
12
18
22
25
0
18
26
30
14
16
8
27
27
finalement je vous mets qu'une seul serie au sinon ça fera un poste trop long
donc je me demandai comment je peut mettre toute ces données dans un tableau pour voir leur pourcentage de sortie? par série de 50 et voir si il y a une stabilité de sortie merci
j'espere je me suis fait comprendre
ps: désolé pour les fautes d'orthographes, j'essaye de m'ameliorer








Module 1
Dim nCompteurPair As Long
Dim nCompteurImpair As Long
Sub SortiesChancesSimples()
Dim cResult As String
Dim nCurValue As Integer
Dim oCurCell As Range
Dim nColonne As Integer
Dim nCompteur As Long
' Initialisation des compteurs
If nCompteurPair = Null Then
nCompteurPair = 0
nCompteurImpair = 0
End If
'Valeur de la cellule active (Sortie saisie)
nCurValue = ActiveCell.Value
'------------------------------
' Etude des chances Pair/Impair
'------------------------------
'On met le code I (impair) ou P(pair) dans la variable cResult
'grâce à l'appel de la procédure ChancesPairImpair
ChancesPairImpair cResult, nCurValue
'Numéro de colonne selon le résultat pair/impair
Select Case cResult
Case "P"
nColonne = 7
nCompteurPair = nCompteurPair + 1
nCompteur = nCompteurPair
Case "I"
nColonne = 8
nCompteurImpair = nCompteurImpair + 1
nCompteur = nCompteurImpair
Case Else
'c'est un 0 ou une erreur de saisie
End Select
'Comptage du nombre de sorties de la chance dans la colonne adéquate
Set oCurCell = Worksheets("Sorties").Cells(ActiveCell.Row, nColonne)
oCurCell.Value = nCompteur
'Si on veut afficher la valeur dans une couleur de police différence
'Ici, en rouge par ex (plus utile pour les chances rouge/noir !)
If cResult = "P" Then oCurCell.Font.ColorIndex = 3
'Si on veut colorer le fond de la cellule
'ici en orange par exemple
With oCurCell.Interior
.ColorIndex = 44
End With
'-------------------------------
' Etude des chances Passe/Manque
'-------------------------------
ChancesPasseManque cResult, nCurValue
' Ensuite, on fait la même chose que pour Pair/Impair
' en changeant les numéros de colonnes, les couleurs, ...
'-----------------------------
' Etude des chances Rouge/Noir
'-----------------------------
' A faire sur le même modèle que l'analyse des chances précédentes
'Avant de sortir de la macro et d'aller saisir le spin suivant
'activation de la cellule suivante
Set oCurCell = Worksheets("Sorties").Cells(ActiveCell.Row + 1, 1)
oCurCell.Select
End Sub
Module 1
Sub ChancesPasseManque(vcPasseManque, vnValue)
Select Case vnValue
Case 0
vcPasseManque = "0"
Case Is < 18
vcPasseManque = "M"
Case Is < 37
vcPasseManqe = "P"
Case Else
MsgBox ("Erreur")
End Select
End Sub
Module 1
Sub ChancesPairImpair(vcPairImpair, vnValue)
Dim nReste As Integer
Select Case vnValue
Case Is < 0
MsgBox ("Erreur")
vcPairImpair = "E"
Case Is > 36
MsgBox ("Erreur")
vcPairImpair = "E"
Case 0
vcPairImpair = "0"
Case 1
vcPairImpair = "I"
Case Else
nReste = (vnValue Mod 2)
If nReste = 0 Then
vcPairImpair = "P"
Else
vcPairImpair = "I"
End If
End Select
End Sub
Melimelo a écrit:c'est pas doublé c'est +1 / -1
(mais j'espère bien progresser !)Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité