Tableau avec tirage sans remise

Bonjour,

voilà je voudrais savoir si il est possible de faire un tirage sans remise de 4 nombres compris entre 1 et 80

ceci x fois tout en gardant le compte des fois précédentes

ex: 1,2,3,4; 80,4,2,79; 4,60,50,40

1=1

2=2

3=1

4=3

80=1

40=1

30=1

50=1

60=1

c'est a dire pas de remise pour les 4 tirages mais remise une fois les 4 terminer (un peu comme le loto quoi)

ensuite de compter

le nombre de fois (sur x tirage) où un paire/impaire sort

le nombre de fois (sur x tirage) où la 1re, 2eme,... dizaine est sortie

Salut LYONDU2b

Peux tu nous éclair encore

Bonjour,

une solution pour les tirages et le comptage des numéros sortis.

Sub aargh()
    Dim ctr(1 To 80), tirage()
    Randomize Timer
    Cells.Clear
    nombre_de_tirage = 10000
    ReDim tirage(1 To nombre_de_tirage, 1 To 4)
    For i = 1 To nombre_de_tirage
        For j = 1 To 4    '4 tirages sans remise
            Do
                q = Application.RandBetween(1, 80)
            Loop While InStr(s, Chr(q + 64)) <> 0
            s = s & Chr(q + 64)
            tirage(i, j) = q
            ctr(q) = ctr(q) + 1
        Next j
        s = ""
    Next i
    Cells(1, 1) = 1
    With Cells(2, 1).Resize(79)
        .Formula = "=A1+1"
        .Value = .Value
    End With
    Cells(1, 2).Resize(80, 1) = Application.Transpose(ctr)
    Cells(1, 4).Resize(10000, 4) = tirage
End Sub

Salut h2so4

je t'avoue que je ne comprends pas ce qu'il veut

Bonjour, Bonjour H2so4 & Amir,

un essai avec 10 tirages sans macro

ensuite, reste à compter ... je te laisse faire car je n'ai pas compris !

LYONDU2b a écrit :

ensuite de compter

le nombre de fois (sur x tirage) où un paire/impaire sort

le nombre de fois (sur x tirage) où la 1re, 2eme,... dizaine est sortie

Refais F9 pour nouvelle série de 10