Résultats pour "keno"

5 résultats pour cette recherche

Bonjour à tous, Jai un petit tableau ou j'aimerais avoir: l'écart actuel, l'écart moyen, l'écart maxi et le nombre de sortie.

juste savoir si c'est possible avec Excel ?

je joint mon fichier.

23ecart-keno.xlsx (128.47 Ko)

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

Je voudrais savoir si on peut trouver avec Excel va, trouver avec un tirage qui est sortir avoir sur tous les tirages de françaises des jeux , retrouver des numéros identiques des combinaisons8,9, 10, 11, 12, 13 .

Un classeur en vba macro Excel KENO JEUX sur internet si une personne pourrais regarder et envoyer et corriger pour essayer d’avoir le classeur pour qui fonctionnes.

Bonjour à tous,

Je cherche une macro qui me permettrait de trier automatiquement le tirage des 20 numéros sortis sur les 70 cases possibles.

J'ai vu des sujets traitant du keno, mais je n'ai pas trouver la réponse à mon tri.

Merci pour votre aide (parceque la je le fais à la main, et je crois que j'en ai encore pour quelques années, lol)

120echantillon.xlsx (18.39 Ko)

bonjour a tous

j ai un fichier excel 2000 pour mon keno

1 ère colonne date

2 ème colonne heure

3 ème colonne jusqu'à 20 les numéros sortis

ex

date / heure / boule 1/ boule 2/ boule 3.................boule 20

28.03 / 13 h / 1 / 6 / 8 / 15 .....

28.03/ 21 h / 7 / 25 / 65 / ..................

je voudrais faire un filtre où je rentre deux chiffres exemple "12.20"

et ou ca m affiche les ligne ou sont présent ces deux chiffres...

merci a vous..

Recherches récentes

desactiver actualisation vbapmu json heuregestion maintenanceweballer feuillearduinorecherchev liste deroulantecode couleur vbacode couleurdoublons videscontientsauvegarde automatiquedate textboxquerymasquer lignes filtreshourfonctionformulecalcul satisfaction clientcsv recherche vba