Combinaison de nombres

JNP

XLDnaute Barbatruc

• 13 Mai 2010

• #2

Re : Combinaison de nombres

salut Renauder 🙂,
Via BVA, il suffit de faire 5 boucles.
Fait une recherche sur Loto sur le forum, tu trouveras pas mal de réponse sur le dénombrement, sinon, reviens vers nous 😉.
A + 😎

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 13 Mai 2010

• #3

Re : Combinaison de nombres

Bonjour le fil, JNP, RENAUDER

Code:

Sub Extraction()
    Dim n1%, n2%, n3%, n4%, n5%, t() As Integer
    Dim L As Long
 
    ReDim t(WorksheetFunction.Combin(18, 5) - 1, 4)
 
    For n1 = 1 To 14
        For n2 = n1 + 1 To 15
            For n3 = n2 + 1 To 16
                For n4 = n3 + 1 To 17
                    For n5 = n4 + 1 To 18
 
                        t(L, 0) = n1: t(L, 1) = n2: t(L, 2) = n3: t(L, 3) = n4: t(L, 4) = n5
                        L = L + 1
 
    Next n5, n4, n3, n2, n1
 
    Feuil1.[A1:E1].Resize(L) = t
 
End Sub

A plus

 

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 13 Mai 2010

• #4

Re : Combinaison de nombres

Bonjour,
Merci Soenda, ça fonctionne parfaitement.
A+

 

Vote positif 0 Vote négatif

J

julien clerc

Guest

• 5 Mars 2012

• #5

Re : Combinaison de nombres

salut a vous g juste un problème j'ais augmenté le nombre de combinaisons soit (40;5)
lorsque je lance la vba g le message suivant :

Erreur d'exécution '1004' :

Erreur définie par l'application ou par l'objet

merci de votre aide

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 5 Mars 2012

• #6

Re : Combinaison de nombres

Bonjour Julien

julien clerc à dit:

salut a vous g juste un problème j'ais augmenté le nombre de combinaisons soit (40;5)
lorsque je lance la vba g le message suivant :

Erreur d'exécution '1004' :

Erreur définie par l'application ou par l'objet

merci de votre aide

Cliquez pour agrandir...

la formule =COMBIN(40;5) donne le résultat 658008
si tu travailles avec la version 2003, tu as seulement 65536 lignes sur la feuille

c'est sans doute cela qui te donne une erreur

la version 2007 permet 1048576 lignes


à+
Philippe

[TABLE="width: 80"]
[TR]
[TD="width: 80, align: right"][/TD]
[/TR]
[/TABLE]

 

Vote positif 0 Vote négatif

J

julien clerc

Guest

• 5 Mars 2012

• #7

Re : Combinaison de nombres

salut philippe
justement je travail avec la version 2007

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 5 Mars 2012

• #8

Re : Combinaison de nombres

Re,

sur l'autre fil de discussion que tu as créé, il est question de combinaison (49;5)
dans ce cas tu dépasses de plus de 850.000 le nombre de lignes

à+
Philippe

 

Vote positif 0 Vote négatif

J

julien clerc

Guest

• 5 Mars 2012

• #9

Re : Combinaison de nombres

ok mercii beaucoup!

 

Vote positif 0 Vote négatif

J

julien clerc

Guest

• 5 Mars 2012

• #10

Re : Combinaison de nombres

juste si ça ne tien pas sur 1feuille peut tu me donner le code pour écrire la suite en deuxième page ?
encore merci

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 5 Mars 2012

• #11

Re : Combinaison de nombres

Re,

tu as une réponse au post#3 sur l'autre fil de discussion
clique ci-dessous
https://www.excel-downloads.com/threads/code-vba-combinaison-5-numero-sur-49.179923/

à+
Philippe

 

Vote positif 0 Vote négatif