résultat suivant condition(loto)

[choupette51]

Bonjour à tous;

Une requète assez hard que je propose à réaliser,
Je ne sais pas par quel bout commencer, et incapable à réaliser.
Voila je désire avoir le nombre de combinaisons de 5 chiffres au total et les afficher.
en prenant un des chiffres 1 à 10
puis un des chiffres de 11 à 20
puis 2 des chiffres de 21 à 30
puis un des chiffres de 41 à 49


1)exemple =1-12-22-29-43 devront faire parti d'une combinaison des résultats attendus
2)exemple =10-11-21-22-44 idem
merci d'avance.

 

[soenda]

Re : résultat suivant condition(loto)

Bonjour le fil, choupette51

Par exemple (en 1 à 2 sec.):

Sub Generateur()
    Dim b1%, b2%, b3%, b4%, b5%, t(99999, 4) As Integer
    Dim N As Long
 
    For b1 = 1 To 10
        For b2 = 11 To 20
            For b3 = 21 To 30
                For b4 = 31 To 40
                    For b5 = 41 To 50
 
                        t(N, 0) = b1: t(N, 1) = b2: t(N, 2) = b3: t(N, 3) = b4: t(N, 4) = b5
                        N = N + 1
 
    Next b5, b4, b3, b2, b1
 
    [A1:E100000] = t
    MsgBox "nbEnreg = " & N
 
End Sub

A plus

 

[choupette51]

Re : résultat suivant condition(loto)

Bonjour Soenda et merci d'avoir répondu rapidement

Mais le hic c'est d'avoir 2 chiffres de 21 à 30 dans toutes les combinaisons
et pas de chiffres de 31 à 40
de plus les macros c'est pas mon dada

 

[soenda]

Re : résultat suivant condition(loto)

Re,

Oups ! ... 😱

A plus

 

[soenda]

Re : résultat suivant condition(loto)

Re,

La version corrigée et ... testée

Sub Generateur()
    Dim b1%, b2%, b3%, b4%, b5%, t(44999, 4) As Integer
    Dim N As Long
 
    For b1 = 1 To 10
        For b2 = 11 To 20
            For b3 = 21 To [B][COLOR=red]29[/COLOR][/B]
                For [COLOR=red][COLOR=black]b4 =[/COLOR][B] b3 + 1 To 30[/B][/COLOR]
                    For b5 = 41 To 50
 
                        t(N, 0) = b1: t(N, 1) = b2: t(N, 2) = b3: t(N, 3) = b4: t(N, 4) = b5
                        N = N + 1
 
    Next b5, b4, b3, b2, b1
 
    [A1:E45000] = t
    MsgBox "nbEnreg = " & N
 
End Sub

A plus

 

[choupette51]

Re : résultat suivant condition(loto)

merci de cette rectification
mais comment le mettre en application ?
je suis nul en macro

 

[soenda]

Re : résultat suivant condition(loto)

Re,

Le code est à copier dans un module standard.

Dans l'aide Excel entre : module standard
tu y trouveras toutes les explications

A plus

 

[choupette51]

Re : résultat suivant condition(loto)

ok j'ai mis cette macro en application
je me suis arreter au chiffres maxi de 49 ce qui me donne 40500 combinaisons
es-ce exact ?
en modifiant cette macro je doit pouvoir jongler
si je veux modifier exemple 3 chiffres de 21 à 30
ou encore 3 chiffres de la premiere dizaine
encore merci je suis un peu moins nul qu'hier.
vous êtes trop fort , c'est pour cette raison que je trouve ce forum génial
on à toujours une réponse
Merci.

 

[choupette51]

Re : résultat suivant condition(loto)

suite, je profite une dernière fois de votre savoir
avec cette modif si vous le voulez-bien cela maideras pour la suite de modif
3 chiffres de 1 à10
1 chiffre de 11 à 20
1 chiffre de 31 à 40
donc aucun chiffres de 21 à 30 et aucun de 41 à 49

(j'ai compris que dans une boucle for/next je pouvez réduire le nombre de chiffres attendu)


Merci d'avance Soenda

 

[soenda]

Re : résultat suivant condition(loto)

Re,

- 3 nombres de 1 à10

    For b1 = 1 To 8                [B][COLOR=green] ' 8 = 10 - 2[/COLOR][/B]
        For b2 = b1 + 1 To 9        [B][COLOR=green]' b1 différent de b2 et 9 = 10 - 1[/COLOR][/B]
            For b3 = b2 + 1 To 10  [B][COLOR=green] ' b2 <> b3[/COLOR][/B]

- 1 nombre de 11 à 20 et 1 nombre de 31 à 40

    For b4 = 11 To 20
        For b5 = 31 To 40

A plus

 

[choupette51]

Re : résultat suivant condition(loto)

Merci Beaucoup de cette nouvelle modif.
a+++++++