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.

Rechercher des sujets similaires à "bjr tirage keno"