BJR tirage du keno
Oui c c’est bien ça un fichier Excel datant de 2008 se nommant KENO JEUX
PROGRAMME QUI EST DU MODULE
Mais sur la feuille userform on ne peut limite à N°5.
Ce que rechercher tout monde c’est avoir et comparer tous les tirages de FDJ
16 septembre 1993 a 05/02/2018
C’est un tirage qui suit, mais si on met un autre tirage qui n’est pas l’identique de retrouver
Les numéros qui sont indiquer en rouges.
7-10-13-22-27-29-31-36-37-40-43-45-52-55-57-58-59-60-63-66
1-2-4-5-7-13-15-20-22-26-27-34-35-42-45-46-47-55-65-69
Dans ce fichier il y a des erreurs c’est sur
Sub MAJ()
Sheets("Feuil1").Select
Application.ScreenUpdating = False
Dim Nb As Integer
Dim Ladate As String, Debut As String
Dim Fin As String, Jous As String
Dim Nbr As Integer
ChDir "i:\Keno\HISTORIQUE"
Workbooks.Open Filename:= _
"i:\Keno\HISTORIQUE\keno.xls"
nblignes = Sheets("keno").UsedRange.Rows.Count
nl = nblignes
Columns("C:D").Select
Selection.Delete Shift:=xlToLeft
Columns("W:iv").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
Range("A1").Select
ActiveCell.FormulaR1C1 = "N° de Tirage"
Range("B1").Select
Cells.Select
Cells.EntireColumn.AutoFit
Range("W2").Select
ActiveCell.FormulaR1C1 = _
"=RC[-20]&""-""&RC[-19]&""-""&RC[-18]&""-""&RC[-17]&""-""&RC[-16]&""-""&RC[-15]&""-""&RC[-14]&""-""&RC[-13]&""-""&RC[-12]&""-""&RC[-11]&""-""&RC[-10]&""-""&RC[-9]&""-""&RC[-8]&""-""&RC[-7]&""-""&RC[-6]&""-""&RC[-5]&""-""&RC[-4]&""-""&RC[-3]&""-""&RC[-2]&""-""&RC[-1]"
Range("W3").Select
Columns("W:W").EntireColumn.AutoFit
Range("W2").Select
Selection.AutoFill Destination:=Range("W2:W" & nl), Type:=xlFillDefault
Range("W2:W" & nl).Select
Range("A1").Select
Range("W1").Select
ActiveCell.FormulaR1C1 = "Touts"
Range("W1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("a1:w" & nl).Select
Selection.Copy
Windows("KENO JEUX.xls").Activate
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
Range("A4").Select
Windows("keno.xls").Activate
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
Range("B5:B" & nl + 15).Select
Selection.NumberFormat = "General"
Range("A4").Select
'numerotation en ordre décroissant
Nb = Sheets("Feuil1").Range("A1").Value
For i = Nb To 1 Step -1
Sheets("feuil1").Range("A" & i + 4).Value = Nb + 1 - i 'Nb + 1-i
Sheets("feuil3").Range("A" & i + 10).Value = Nb + 1 - i 'Nb + 1-i
Next
M = [a1].Value
For i = 1 To M
Sheets("Feuil1").Range("B" & i + 4).Select
If Sheets("Feuil1").Range("B" & i + 4).Value = 0 Then Exit Sub
Ladate = Sheets("Feuil1").Range("B" & i + 4).Value 'i+4
Nb = Len(Ladate)
Debut = Left(Ladate, 4)
Fin = Right(Ladate, 4)
Debut = Debut & "-" & Fin
Debut = Left(Debut, 7)
Jous = Right(Ladate, 2)
Debut = Debut & "-" & Jous
ActiveCell.NumberFormat = "dd-mmm-yyyy"
Sheets("Feuil1").Range("B" & i + 4).Value = Debut
Next
Range("A4").Select
Call Transfert_Tirage
Application.ScreenUpdating = True
End Sub
Sub Transfert_Tirage()
Dim Tx As String, NTirage As Integer, Tirage As String
Dim Nb As Integer, NbT As Integer, Caractere As String
Dim i As Integer, X As Integer, J As Integer, Y As String, Dx As Integer
Nb = Sheets("Feuil1").Range("A1").Value
Sheets("Feuil3").Select
Range("b11:bs" & Nb + 10).Select
Selection.ClearContents
Caractere = "-" 'sert de séparateur au numéro
For i = 1 To Nb
NTirage = Sheets("Feuil1").Range("A" & i + 4).Value
If NTirage = Nb + 1 - i Then
Tirage = Sheets("Feuil1").Range("w" & i + 4).Value
Tirage = Tirage & "-" 'ajoute un tiret au numero
NbT = Len(Tirage)
W = 0
Tx = ""
For X = 1 To NbT
Y = Mid(Tirage, X, 1)
Tx = Tx & Y
If Y = "-" Then
W = W + 1
Tx = Left(Tx, Len(Tx) - 1)
Dx = CInt(Tx)
Sheets("Feuil3").Range("A" & i + 10).Select
Sheets("Feuil3").Range("A" & i + 10).Offset(0, Dx).Value = Tx
' MsgBox Dx
Tx = ""
End If
Next
End If
Next
End Sub
Sub lotos()
UserForm1.Show
End Sub
Sub Effacer_Resultat()
Sheets("Feuil2").Select
Nb2 = Sheets("Feuil2").Range("A1").Value
Sheets("Feuil2").Range("A5 :E" & Nb2 + 5).Value = ""
Label283.Caption = Sheets("Feuil2").Range("A1").Value
TextBox17.Value = ""
Label286.Caption = ""
Label288.Caption = ""
Sheets("Feuil4").Range("C2").Value = ""
End Sub
Sub Effacer()
Dim Nbs As Integer, i As Integer
Sheets("Feuil10").Select
Nbs = Sheets("Feuil10").Range("A1").Value
For i = 0 To Nbs
Sheets("Feuil10").Range("A" & i + 20).Value = ""
Next
End Sub
Sub Fermer() 'Sauver-Fermer
ActiveWorkbook.Save
Application.DisplayAlerts = False
Application.Quit
End Sub
Sub Numero()
For i = 10000 To 1 Step -1
Sheets("feuil3").Range("A" & i + 4).Value = "" '10000 - i
Next
End Sub
Sub Doublon20()
doubl = 0
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
Dim Collec As New Collection, Cell As Range, plage As Range
On Error Resume Next
DERNIERVALEUR = Worksheets("feuil2").Range("c5").End(xlDown).Address
Range("c5:" & DERNIERVALEUR & "").Select
Set plage = Selection
If IsEmpty(plage) Then Exit Sub
For Each Cell In plage
If Cell.Value <> "" Then
Collec.Add Cell.Value, CStr(Cell.Value)
If Err <> 0 Then
Err.Clear
Cell.Interior.ColorIndex = 4
doubl = doubl + 1
Else
Cell.Interior.ColorIndex = xlNone
End If
End If
Next Cell
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
Range("c5").Select
End Sub
Je vous écris pour voir si vous dire comme avec stat-kéno
PROGRAMME QUI EST DU MODULE
Filtrer et afficher Num1 Num 2
Mais on ne peu mettre que N°2 cela va fonctionnera peut mettre le touts les tirages
Pour avoirs pareilles en haut qui nous donnerais les tirages sortis dans française DFJ
1 4 6 11 12 13 19 21 31 32 33 34 35 42 56 61 62 63 66
2 6 7 8 10 11 26 27 29 30 37 41 44 45 47 50 52 59 62
27 32 45 47 58 60 64 65 67 69 70
28 31 41 44 46 48 53 54 62 66 70
Sub filtre ()
Application.ScreenUpdating = False
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
Range("A4:V" & [A15000].End(xlUp).Row).Name = "base"
If Application.CountA(Range("C2:D2")) = 2 Then
Range("E2").FormulaR1C1 = _
"=COUNTIF(R[3]C3:R[3]C22,R2C3)+COUNTIF(R[3]C3:R[3]C22,R2C4)=2"
Range("base").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range( _
"E1:E2"), Unique:=False
[E2].Clear
End If
End Sub
Sub affiche()
On Error Resume Next
ActiveSheet.ShowAllData
End Sub
Je suis comme pas mal de personnes sur internet, ne sachant pas dans Excel programmer en VBA
, mais je peux vous dire et c’est sur vous aurais des grilles à 10 numéros pas besoin de statistique car
13400 tirages sur un tirages vous avez au 200 de 10 numéros preuves que je vous donne.
1 2 3 5 9 11 13 14 24 27 32 45 47 58 60 64 65 67 69
02-05-11-24-27-32-64-65-69-70
01-03-05-09-13-24-58-64-65-67
03-05-11-13-24-45-47-58-64-69
02-03-09-14-24-45-47-58-67-70
01-02-09-11-45-47-58-64-65-67-70
01-05-09-11-27-45-47-58-65-70
01-02-03-05-09-32-45-60-65-70
01-03-05-11-13-14-60-64-65-67
01-02-05-09-11-27-45-60-65-70
01-02-11-13-14-27-45-47-67-70
01-02-03-05-13-32-47-64-65-67
09-11-24-32-47-58-60-64-69-70
01-02-09-11-45-47-60-64-65-67
01-05-11-13-14-27-47-64-67-69
02-03-05-13-14-32-45-64-65-70
01-05-13-14-47-58-60-64-65-67
Bonsoir
Quelle indigestion tout ce code non indenté...
Donne plutôt ton fichier...
Sinon, moi, je me suis amusée à faire des tirages aléatoires du keno... pour éviter de chercher quels numéros mettre lorsque je voulais jouer... De toute façon, voir les tirages précédents malheureusement ne peut pas aider à trouver les bons numéros... cela se saurait
A+
J ais marquer que l’on est sûr de gagner car il a 13400 tirages mais avec un logiciel que vous achetez et payer des sommes comme keno expert qui vaux 150 euros et ne pas être sûr de gagner, et Keno : un carcassonnais aurait trouvé le mécanisme du jeu et porte plainte. Alors cette sais très bien qui n’y a pas de triche vu plusieurs s tirages les mêmes.
. ON ne doit pas faire des tirages aléatoires du keno car j’ai un logiciel, il falloir au moins 4 ans pour marquer tous les tirages de FDJ.
On essais de faire un programme avec Excel pour aller plus vites.
Bonsoir
Ecoute je te laisse.
Je ne sais pas si quelqu'un pourra t'aider, sans fichier et avec un langage incompréhensible.
Bonne chance à toi
Tirage du jeudi 18 mai 1995 - Tirage 1
2 35
4 37
5 38
10 39
11 49
17 53
24 64
26 65
27 69
32 70
Cette combinaison était
gagnante à 200 000 €
1 32
2 45
3 47
5 58
9 60
11 64
13 65
14 67
24 69
27 70
Cette combinaison était
gagnante à 200 000 €
je veux dire c est logiciel qui as indiquer ces numeros.